Ciclo para refereciar en macros?
Espero que algún genio me pueda ayudar.. Como podría hacer un ciclo donde tome el valor de Hoja1¡A2 y lo pegue en Hoja2! A1 y después tome d1! Y lo pegue en b1 no se si me explico pro necesito que me quéde la siguiente lista a2, d1 a2, e1, a2, f1, a2, g1, a3, d1, e1, a3, f1, a3, g1
1 respuesta
H o l a:
No entendí.
Puedes explicar el ejemplo completo con una imagen.
¿Quieres copiar el valor A2 en varias celdas? ¿En cuáles celdas?
¿Luego quieres copiar el valor A3 en varias celdas? ¿En cuáles celdas?
Si primero copias A2 en D1 y luego copias A3 en D1, no tiene caso copiar A2, ya que será reemplazado por A3.
E spero tus comentarios
¡Gracias! Hola gracias por tu interés de verdad y disculpa si no me di a entender tan fácil.. Y sería con referencia de la celda origen ya que si se actualiza quiero que se actualice en la la hoja destino y mira te adjunto en la imagen1 la hoja origen y la imagen2 hoja destino como debería quedar..
H o la:
No se ve la imagen.
Si quieres, envíame tu archivo y me lo explicas con ejemplos y con colores.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Zhaio Jurlar” y el título de esta pregunta.
ok gracias.. ya te mande correo..
H o l a:
te anexo la macro:
Sub Referenciar()
'Por.Dante Amor
Set h1 = Sheets(1)
Set h2 = Sheets(2)
h2.Cells.Clear
'
k = 1
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
For j = 2 To h1.Cells(1, Columns.Count).End(xlToLeft).Column
h1.Cells(i, "A").Copy h2.Cells(k, "A")
h1.Cells(1, j).Copy h2.Cells(k, "B")
h1.Cells(i, j).Copy h2.Cells(k, "C")
k = k + 1
Next
Next
h2.Select
MsgBox "Copia terminada", vbInformation
End Sub
