Macro : Copia rango a otra hoja
Tengo un libro exel, y desde la primera hoja necesito enviar un rango de celdas hacia otra hoja del mismo libro cuyo nombre sea igual al texto que le indique en una celda de la primera hoja.
Te sabre valorar tu Respuesta.
Te sabre valorar tu Respuesta.
1 respuesta
Respuesta de manucas
1
Lo siento pero no entendí bien tu pregunta. ¿Qué quieres decir con enviar? ¿El resto de hojas existen? ¿Lo qué quieres es hacerlo con macros?
Dame más información :o
Dame más información :o
Podríamos depurar algo el código, si te atreves. Con esto no tendrían ni que estar creadas las hojas:
Sub CopiaRango()
'
Dim hoja As String
Dim i As Integer
Dim tmp As Boolean
Sheets("RESUMEN").Select
hoja = Range("B1").Value
Range("A1:A20").Select
Selection.Copy
Range("A1").Select
For i = 1 To Sheets.Count
If Sheets(i).Name = hoja Then
tmp = True
End If
Next i
If tmp = False Then
Sheets.Add
ActiveSheet.Name = hoja
End If
Sheets(hoja).Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
End Sub
Ya me cuentas
manucas :)
Sub CopiaRango()
'
Dim hoja As String
Dim i As Integer
Dim tmp As Boolean
Sheets("RESUMEN").Select
hoja = Range("B1").Value
Range("A1:A20").Select
Selection.Copy
Range("A1").Select
For i = 1 To Sheets.Count
If Sheets(i).Name = hoja Then
tmp = True
End If
Next i
If tmp = False Then
Sheets.Add
ActiveSheet.Name = hoja
End If
Sheets(hoja).Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
End Sub
Ya me cuentas
manucas :)
Prueba con esta macro que puedes arreglar a tu forma:
Dim hoja As String
Sheets("RESUMEN").Select
hoja = Range("B1").Value
Range("A1:A20").Select
Selection.Copy
Range("A1").Select
Sheets(hoja).Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
End Sub
Tres aclaraciones en la 1ª hoja los datos están en A1:A20
y se copian desde A1 en las restantes. La hoja que pones en la celda B1 debe existir. Y si quieres introducir la fecha así: 010804 pon esta celda con formato texto.
Dim hoja As String
Sheets("RESUMEN").Select
hoja = Range("B1").Value
Range("A1:A20").Select
Selection.Copy
Range("A1").Select
Sheets(hoja).Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
End Sub
Tres aclaraciones en la 1ª hoja los datos están en A1:A20
y se copian desde A1 en las restantes. La hoja que pones en la celda B1 debe existir. Y si quieres introducir la fecha así: 010804 pon esta celda con formato texto.
