Macro. copiar contenido de dos celdas a una hoja
Publicado por ricardo (1 intervención) el 24/03/2017 19:53:06
Se que hay muchos temas similares, sin embargo no he podido resolver mi problema.
Lo que requiero hacer es que al darle click a un boton que contega una macro se copie el texto que este en ese momento en la celda a1 y la c1 y guarde el registro en la hoja 2 en el siguiente espacio en blanco (en forma de lista) y que no se sobre escriban los datos.
este es el codigo que uso (no se mucho al respecto solo copie y pegue de otros temas)
Lo que requiero hacer es que al darle click a un boton que contega una macro se copie el texto que este en ese momento en la celda a1 y la c1 y guarde el registro en la hoja 2 en el siguiente espacio en blanco (en forma de lista) y que no se sobre escriban los datos.
este es el codigo que uso (no se mucho al respecto solo copie y pegue de otros temas)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Botón1_AlHacerClic()
Range("A3").Copy
Worksheets("Hoja2")
Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
ActieCell.Offset(2, 0).PasteSpecial xlPasteValues
Loop
Aplication.CutCopyMode = False
Worksheets("Hoja1").Activate
End Sub
Valora esta pregunta
0