Crear una base de datos

Necesito crear una base de datos en la hoja "Base" de un libro excel
llamado "Carpinterias", cuya hoja1 contiene en la columna A:A la lista de
nombres de pueblos que corresponde exactamente a las hojas o pestañas
restantes del libro.
Al abrir cada hoja o pestaña (que corresponde al nombre del pueblo), el
dato de la carpinteria o carpinterias se encuentran en las cuatro primeras
filas de cada columna, es decir: A1=Nombre; A2=Dirección; A3=Población;
A4= teléfono.
Si hubiera mas de una carpinteria en ese pueblo (hoja) la siguiente
carpinteria estaría en la columna B y así sucesivamente, la tercera en la
columna C, etc...
Sería de agradecer un código que vaya recorriendo todas las hojas y
escribiendo en la hoja "Base" (x filas en horizontal) los 4 datos que
figuran en las cuatro primeras filas de cada columna empezando por la
columna A y "recorriera" la siguiente columna B por si hubiera mas datos y
asi sucesivamente hasta que no encontrara mas datos y entonces pasara a la
siguiente hoja.
El objetivo es tener los datos agrupados en una sola hoja llamada "Base".
Ideal es tener un botón asociado al código VBA, en la hoja "Base" que
ponga en marcha la macro.
Tengo 5 libros distintos por provincias y de ellos, hay libros que pueden
tener 100 o mas hojas y en cada una de ellas al menos una carpinteria
(columna A, cuatro primeras filas).
Saludos
José Rafael de Valencia (España)

Necesito crear una base de datos en la hoja "Base" de un libro excel llamado "Carpinterias"
cuya hoja1 contiene en la columna A:A la lista de nombres de pueblos
que corresponde exactamente a las hojas o pestanas restantes del libro.
Al abrir cada hoja o pestana... el dato de la carpinteria o carpinterias
se encuentran en las cuatro primeras filas de cada columna
es decir: A1=Nombre; A2=Direccion; A3=Poblacion; A4=telefono.
Si hubiera mas de una carpinteria en ese pueblo (hoja)
la siguiente carpinteria estaria en la columna B y asi sucesivamente ...
... codigo que vaya recorriendo todas las hojas y escribiendo en la hoja "Base" (x filas en horizontal)
los 4 datos que figuran en las cuatro primeras filas de cada columna empezando por la columna A
y "recorriera" la siguiente columna B por si hubiera mas datos y asi sucesivamente hasta... siguiente hoja...

hola, José Rafael !

asegurate que la hoja ("base" ?) para tu resumen sea la primera en el
orden/indice de hojas en ese libro
y prueba con una macro +/- como la siguiente (ya decidiras si la asignas a
algun objeto/atajo/...)

Sub Carpinterias()
Dim n As Byte, Col As Byte, Carp As Byte
Application.ScreenUpdating = False
For n = 2 To Worksheets.Count
With Worksheets(n)
For Col = 1 To .Range("iv1").End(xlToLeft).Column
Carp = Carp + 1
Cells(1, Carp).Resize(4).Value = .Cells(1, Col).Resize(4).Value
Next
End With
Next
End Sub

saludos,
hector.

__ OP __
Mostrar la cita

Necesito crear una base de datos en la hoja "Base" de un libro excel
llamado "Carpinterias"
cuya hoja1 contiene en la columna A:A la lista de nombres de pueblos
que corresponde exactamente a las hojas o pestanas restantes del libro.
Al abrir cada hoja o pestana... el dato de la carpinteria o carpinterias
se encuentran en las cuatro primeras filas de cada columna
es decir: A1=Nombre; A2=Direccion; A3=Poblacion; A4=telefono.
Si hubiera mas de una carpinteria en ese pueblo (hoja)
la siguiente carpinteria estaria en la columna B y asi sucesivamente ...
... codigo que vaya recorriendo todas las hojas y escribiendo en la hoja
"Base" (x filas en horizontal)
los 4 datos que figuran en las cuatro primeras filas de cada columna
empezando por la columna A
y "recorriera" la siguiente columna B por si hubiera mas datos y asi
sucesivamente hasta... siguiente hoja...

He probado la macro y funciona pero me coloca los datos en la hoja "base" columna a columna
en las cuatro filas como estan en cada hoja sucesiva del libro y lo que yo quiero es
que me coloque los cuatro datos en columnas sucesivas de la hoja "base", es decir "transpuestos"
y que cada fila corresponda a una carpinteria. Asi:
Ramirez Perez, A. C/ Maisonave, 42 46000 - Alacuas (VALENCIA) Telefono: 909999099

ola, José Rafael !

Mostrar la cita

He probado la macro y funciona pero me coloca los datos en la hoja "base"
columna a columna
en las cuatro filas como estan en cada hoja sucesiva del libro y lo que
yo quiero es
que me coloque los cuatro datos en columnas sucesivas de la hoja "base",
es decir "transpuestos"
y que cada fila corresponda a una carpinteria. Asi:
Ramirez Perez, A. C/ Maisonave, 42 46000 - Alacuas (VALENCIA)
Telefono: 909999099

solo cambia del codigo anteiror
esta parte:

Carp = Carp + 1
Cells(1, Carp).Resize(4).Value = .Cells(1, Col).Resize(4).Value

por esta otra:

Carp = Carp + 1
Cells(Carp, 1).Resize(, 4).Value = .Cells(1, Col).Resize(4).Value

saludos,
hector.