Macro para convertir tabla de Excel en un rango normal.
Cuando trabajamos con macros y tablas a veces nos encontramos con ciertos problemas para trabajar, por lo que necesitamos convertir nuestra tabla en un rango normal de Excel.
A continuación les explicare como realizarlo en una columna.
1. Abrir el editor Visual Basic para Aplicaciones (VBA).
2. En la cinta de opciones en el menú Insertar… módulo
3. Dentro del módulo:
A) Creamos el nombre de nuestra macro:
Sub QuitarTabla()
B) Con el método anular lista (Unlist) eliminamos el formato de tabla que tiene nuestro rango.
ActiveSheet.ListObjects(1).Unlist
Para el correcto funcionamiento debe estar en la hoja donde tenemos la tabla, caso contrario, tenemos que indicar la hoja donde encuentra nuestra tabla y debe tener solo una tabla, si hay más de una, hay que indicar el número de tabla o solo va a eliminar la primera.
Hoja1.ListObjects(1).Unlist
C) Cerramos nuestra macro.
End Sub
4. Al final nuestra macro va a quedar de la siguiente manera:
Sub QuitarTabla() ActiveSheet.ListObjects(1).Unlist End Sub
Hola , como puedo hacer para que convierta en rango, las demás hojas?
ResponderBorrarHola, buen día, todas tus tablas están en el mismo rango, pero en hojas diferentes??
Borrartienen diferente rango , y en efecto están en diferentes hojas,
ResponderBorrarno tienen el mismo rango
ResponderBorrarpor favor, me puedes enviar correo a zona.lerh@gmail.com
BorrarSI GRACIAS.
ResponderBorrar¿hay alguna manera de decirle a excel que evalue si es que hay una tabla en una hoja, y en caso de que haya ejecute esta conversión, y en caso que no, que continue? Me interesa la primera parte, la de ver si es que hay tabla o no
ResponderBorrarsi, lo puedes hacer con:
BorrarTablas = Worksheets(I).ListObjects.Count
y con esta macro recorres todas las hojas
https://www.elblogdeluisreyes.com/2020/03/macro-para-recorrer-hojas-en-un-libro.html