Luis Mondelo

Esta es la macro que lo consigue. De todas formas te lo voy a mandar por mail Sub valor_minimo() Range("b3").Select Do While ActiveCell.Value <> "" ubica = ActiveCell.Address fila = ActiveCell.Row valormin =...

Te mando mi solución. Con esta macro copiaras las columnas que solicitas en la hoja2. Sub copiado() Range("a13:b" & Range("a65000").End(xlUp).Row).Copy Destination:=Sheets("hoja2").Cells(1, 1) Range("g13:i" & Range("g65000").End(xlUp).Row).Copy...

Sería bueno que me enviases el archivo excel con los datos y además que me hagas un ejemplo a mano de lo que quieres. [email protected]

Te mando mi solución mediante una pequeña macro: Copia esta macro a un módulo y ejecutala estando posicionado en la hoja donde están dichos datos. Sub direccion() valor = Range("l111").Value For Each celda In Range("i1:t92") If celda.Value = valor...

Utiliza esta sentencia en lugar de tu on error... ON ERROR RESUME NEXT

Te mando una solución: =contar.si.conjunto(A1:A100;">=15/1/2012";A1:A100;"<=18/3/2012";B1:B100;"papel") recuerda finalizar la consulta

Para hacer una selección múltiple deberás usar un listbox y no un combobox

Te mando mi solución. He construido tu rango de datos en el rango A1:D4. Ahora en otra celda escribe lo siguiente: =INDICE(A1:D4;COINCIDIR("a";A1:A4;0);COINCIDIR("enero";A1:D1;0)) un saludo y recuerda finalizar y puntuar la consulta

Te mando mi solución. En mi caso voy a evaluar el contenido de la columna A empezando desde A2. Esta sería la fórmula que pondríamos en la celda B2: =SI(A2="";"";SI(A2>30;"mas de 30";SI(A2>20;"entre 20 y 30";SI(A2>10;"entre 10 y 20";SI(A2>5;"entre 5...

Supongo que te refieres a como hacerlo mediante VBA. Sería asi: activecell.offset(1,-1).select