Como asignar el valor de una celda A1 de una Hoja 1 a una columna A de un hoja2...
Seria posible con una macro asignar el valor de una celda A1 de una Hoja1 auna columna A de una Hoja 2 y que se valla llenando la colunma a medida que voy variando los valores en A1.
Por ejemplo:
para A1=1........A1 =1 Hoja 2
para A1=5........A2=5 en Hoja 2
para A1=20......A3=20 en Hoja 2
Y asi sucesivamente
2 Respuestas
Respuesta de Dante Amor
1
Pon la siguiente macro en los eventos de tu hoja
Private Sub Worksheet_Change(ByVal Target As Range)
'si modificas la celda A1
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
'
Set h2 = Sheets("Hoja2")
'siguiente fila vacía de la columna A
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Cells(u2, "A") = Target.Value
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
Respuesta de James Bond
1
Pega esta macro en el modulo vba de la hoja1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
n = Range("a1")
Set h2 = Worksheets("hoja2").Range("a1").CurrentRegion
filas = h2.Rows.Count
If filas = 1 And h2.Cells(1) = Empty Then
h2.Cells(1) = n
Else
h2.Cells(filas + 1, 1) = n
End If
Range("a1") = Empty
End Sub