Hola amigos,

Necesito hacer una prueba y yo solito no he podido. Quiero pasar la información de varias hojas a una central.

Me explico:Tengo una hoja central llamada Base de Datos y varias hojas nombradas por C 45, C 46....

Pues al pulsar un botón quiero que la información que hay en esas hojas de C ... se pasen a Base de datos y a su vez que las hojas se renombren quitando la C dejando solo el nº para que no se puedan ejecutar una segunda vez.

No sé si me explicado bien, sino para cualquier cosita estoy a vuestra disposición.

Muchas gracias,

Un cordial Saludo

Vic

PruebaBaseDatos.xls

Prueba con esta macro:

Sub TraspasarInformación()

Dim Hoja, Fila, x, y

Fila = Sheets("Base de Datos").Range("A" & Rows.Count).End(xlUp).Row + 1

For Each Hoja In Sheets

   If Left(Hoja.Name, 2) = "C " Then

      For x = 2 To Hoja.Range("A" & Rows.Count).End(xlUp).Row

         For y = 1 To 5

            Sheets("Base de Datos").Cells(Fila, y) = Hoja.Cells(x, y)

         Next

         Fila = Fila + 1

      Next

      Hoja.Name = Mid(Hoja.Name, 3)

   End If

Next

End Sub



[/CODE]

Muchas Gracias,

Me funciona a la perfección si tengo algún problema lo pondré.

Tema Solucionado