Crear hoja con nombre de celda y pasar información de celdas D8:D10
Tengo una macro que crea hoja de acuerdo al nombre de una celda. Me gustaría que la información que se encuentra en la celda D8:D10 de la hoja origen se traspase a B2:B5
Private Sub CommandButton1_Click() 'Crear palntilla de jugador 'Máximo de filas a considerar Max = 1 'Recorrer las filas de la columna A desde 1 hasta Max For Cont = 1 To Max 'Colocar el contenido de la celda en la variable Nombre Nombre = Cells(Cont, 1).Value 'Si el Nombre es diferente a vacío, entonces crear la nueva hoja If Nombre <> "" Then On Error Resume Next Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = Nombre End If Next Cont End Sub
Respuesta de Dante Amor
3
Prueba lo siguiente:
Private Sub CommandButton1_Click()
Dim sh As Worksheet
Dim max As Long, cont As Long
Dim Nombre As String
Set sh = ActiveSheet
'Crear palntilla de jugador
'Máximo de filas a considerar
max = 1
'Recorrer las filas de la columna A desde 1 hasta Max
For cont = 1 To max
'Colocar el contenido de la celda en la variable Nombre
Nombre = sh.Cells(cont, 1).Value
'Si el Nombre es diferente a vacío, entonces crear la nueva hoja
If Nombre <> "" Then
On Error Resume Next
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = Nombre
On Error GoTo 0
Sheets(Nombre).Range("B2:B4").Value = sh.Range("D8:D10").Value
End If
Next cont
End Sub
