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.
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
