Para luismondelo. Modificar Macro
Me proporcionaste esta macro que funciona perfecta.
Copia tantas celdas a partir de M6 como valor introducido en G17, saltándose las celdas en blanco y me las pega en un documento txt.
Sub ejemplo()
'por luismondelo
Open "archivo.txt" For Output As #1
Range("m6").Select
tope = Range("g17").Value
Control = 0
Do While Control <> tope
If ActiveCell.Value <> "" Then
Print #1, ActiveCell
Control = Control + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
Close #1
End Sub
Si no fuera mucha molestia, necesito la misma macro, pero que no me pegue los datos en ningún archivo. Solo copiar para pegarlos yo manualmente.
Muchas gracias.
1 respuesta
Si quieres pegarlos tu y tenemos los datos salteados con celdas en blanco, deberemos primero pegarlos en alguna columna anexa todos juntos para luego hacer un copiado de esa columna a otro destino
¿Ok?
Ok.
Me vale, por ejemplo, en Q6
Ok, aquí tienes la macro:
Sub ejemplo()
'por luismondelo
fila = 6
Range("m6").Select
tope = Range("g17").Value
Control = 0
Do While Control <> tope
If ActiveCell.Value <> "" Then
Cells(fila, 17).Value = ActiveCell
fila = fila + 1
Control = Control + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
End Subrecuerda finalizar la consulta
