Luis Mondelo

Te mando mi solución con esta macro: Sub ejemplo() 'por luismondelo For Each celda In Range("H7:O1464") If celda.Value = 0 Then celda.Value = "" Next End Sub no olvides finalizar la consulta

Te mando mi solución con esta macro: Sub ejemplo() 'por luismondelo Range("f2").Select Do While ActiveCell.Value <> "" ActiveCell.Offset(1, 0).Select For x = 1 To 23 ActiveCell.EntireRow.Insert Next Range(ActiveCell.Offset(-1, 0),...

Me surgen unas dudas: -¿Si hay que dejar solo una línea de cada minuto cual dejamos? ¿La primera? -Necesito saber el rango que ocupa la tabla, se decir por ejemplo: Empieza en A1 y tiene 5 columnas...

Mándame el archivo con los datos de ejemplo para poder ayudarte mejor. [email protected]

Te mando mi solución con esta macro-evento que tienes que copiar en el objeto hoja que estás tratando (no en un módulo) En este ejemplo lo he programado para que funcione cada vez que hagas click en la celda A1 de la hoja en cuestión. Public k...

Te mando mi solución con esta macro: (Me imagino que los datos de la hoja datos están desde A1 hacia abajo) Sub ejemplo() 'por luismondelo Sheets("datos").Select nombre = InputBox("Qué nombre desea poner a la nueva hoja con los datos filtrados???")...

Ok, tomo tu consulta y te mandaré la solución. un momento...

En el siguiente enlace te dejo un archivo con mi solución http://share.cx.com/mVWp5G No olvides finalizar la consulta

Te mando mi solución con esta macro: Sub ejemplo() 'por luismondelo On Error GoTo salida nombre = Range("a1").Value Set navegador = CreateObject("shell.application") carpeta = navegador.browseforfolder(0, "SELECCIONE CARPETA DESTINO", 0,...

Seguramente es porque tienes una instrucción como esta: Option explicit Que obliga a declarar las variables. Mira a ver si la encuentras y si la quitas funcionará