Nombrar tabla según hoja con vba
Estoy intentando saber si es posible crear una macro que mediante una hoja que tengo como plantilla con una tabla (no dinámica) con el nombre de (plantilla) me va generando hojas según voy necesitando con un nombre asignado especifico y mi pregunta es. ¿Puedo dar nombre mediante vba a una tabla con el nombre de hoja asignado. Según me va generando hojas en cada hoja una tabla y le va asignando un numero excel a cada tabla y yo necesito manipular la tabla como agregar fila, quitar fila, etc...
1 Respuesta
Respuesta de Dante Amor
2
H o l a : Te anexo la macro
Sub CopiarPlantilla()
'Por.Dante Amor
Set h1 = Sheets("PRESUPUESTO FINAL")
Set h2 = Sheets("PLANTILLAMADERA1")
Set r = h1.Columns("B")
Set b = r.Find("Partida", lookat:=xlWhole)
If Not b Is Nothing Then
celda = b.Address
Do
existe = False
nombre = h1.Cells(b.Row, "A")
For Each h In Sheets
If UCase(h.Name) = UCase(nombre) Then
existe = True
Exit For
End If
Next
'
If existe = False Then
h2.Copy After:=Sheets(Sheets.Count)
Set h3 = ActiveSheet
For Each tabla In h3.ListObjects
tabla.Name = nombre
h3.Name = nombre
h3.Range("A1") = nombre
Exit For
Next
End If
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> celda
End If
MsgBox "Fin"
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
