Determinar si existe mas de un tabla en una hoja de excel con macros
Hola de nuevo expertos.
Pues me encuentro complicado con un problemilla, pues necesito validar si en una hoja de excel activa existe mas de una tabla (una tabla la representamos como un rango nombrado es decir los valores entre A4 y X80 están nombrados como Tabla2), ese es mi primer problema ya que luego debo, si solo hay una tabla obtener los puntos que definen mi tabla (el rango mas las cabeceras) para luego copiarla en otro libro, y si existen mas de una tabla en esa hoja activa simplemente mostrar un error y terminar el macro.
Mi pregunta es saber si hay un macro con el que pueda identificar la o las tablas que hay en mi hoja activa y como obtener sobre todo el rango inicial de esta tabla?
Muchas gracias por cualquier ayuda que me puedan dar con este tema.
Saludos Cordiales
Henrry Vélez
1 Respuesta
Todavía no me queda claro que es lo que necesitas
Con esta macro puedes saber cuantas tablas hay en la hoja
Sub tablas()
'Por.DAM
cont = 0
For Each t In ActiveSheet.ListObjects
cont = cont + 1
Next
If cont > 1 Then
MsgBox "Existe más de una tabla, en total hay: " & cont
End If
End SubPara copiar a otro libro si solamente hay una tabla
Sub tablas()
'Por.DAM
cont = 0
For Each t In ActiveSheet.ListObjects
cont = cont + 1
Next
If cont > 1 Then
MsgBox "Existe más de una tabla, en total hay: " & cont
ElseIf cont = 1 Then 'sólo hay una tabla
Set t = ActiveSheet.ListObjects(1)
'con la siguiente instrucción se selecciona toda la tabla,
'incluyendo las cabeceras y se copia en libro17, hoja1, celda A1
Range(t.Name & "[#All]").Copy _
Workbooks("libro17").Sheets("Hoja1").Range("A1")
End If
End SubCambia en esta línea en la macro por tus nombres
Workbooks("libro17"). Sheets("Hoja1"). Range("A1")
Saludos. DAM
Si es lo que necesitas.
