Macros para copiar datos entre hojas
Necesito si me pueden ayudar con unas macros, ya que no conozco mucho del tema y no se por donde empezar..
Las macros que debo crear son:
1. Crear una macro que tome las primeras 10 celdas de la hoja 1 y las copie en la segunda hoja
2. Cree una macro que tome de la celda 11 en adelante de la hoja 1 y la copie a una tercera hoja.
1 Respuesta
Respuesta de Adriel Ortiz Mangia
1
Estimado
La macro no me resulta, ya que solo copia los valores en la hoja 2 , pero en la 3 no copia nada
Sub copiar()
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
Set h3 = Sheets("Hoja3")
h1.Select
h1.Range("A1:A10").Copy h2.Range("A1")
h1.Range("A1:A10").Copy h2.Range("A1")
h1.Range("A1:A10").Copy h3.Range("A1")
MsgBox "Fin"
End SubValoras para finalizar saludos!
Gracias estimado pero no me sirvió
¿Entendí mal la pregunta? Dime para corregirlo
¡Gracias!
Sub macrocorregida()
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
Set h3 = Sheets("Hoja3")
j = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
x = h3.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 1 To 10
If h1.Cells(i, "A") > 0 Then
h2.Cells(j, "A") = h1.Cells(i, "A")
j = j + 1
End If
Next
For k = 11 To h1.Range("A" & Rows.Count).End(xlUp).Row
If h1.Cells(k, "A") > 0 Then
h3.Cells(x, "A") = h1.Cells(k, "A")
x = x + 1
End If
Next
End SubRecuerda cambiar la valoración saludos!!
