Excel - Copiar datos con condición de una hoja a otra excel

 
Vista:

Copiar datos con condición de una hoja a otra excel

Publicado por Ridi T (1 intervención) el 28/03/2016 14:53:16
Buen día. Tengo problema para copiar datos, intenté algo pero no hace lo que necesito.
Le asigné a un botón ACTUALIZAR esta macro:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub actualizar()
Worksheets("bd").Select
nrofila = Application.WorksheetFunction.CountA(Range("A:A")) + 1
columna = 7
Do While columna <= 60
Worksheets("info").Select
nrodatos = Application.WorksheetFunction.CountA(Range("A:A")) + 1
    If Cells(nrodatos, columna).Value = 0 Then GoTo Finciclo
        Sheets("bd").Cells(nrofila, 1).Value = Sheets("info").Cells(nrodatos, 1).Value
        Sheets("bd").Cells(nrofila, 2).Value = Sheets("info").Cells(nrodatos, 2).Value
        Sheets("bd").Cells(nrofila, 3).Value = Sheets("info").Cells(nrodatos, 3).Value
        Sheets("bd").Cells(nrofila, 4).Value = Sheets("info").Cells(nrodatos, 4).Value
        Sheets("bd").Cells(nrofila, 5).Value = Sheets("info").Cells(nrodatos, 5).Value
        Sheets("bd").Cells(nrofila, 6).Value = Sheets("info").Cells(nrodatos, 6).Value
        Sheets("bd").Cells(nrofila, 7).Value = Sheets("info").Cells(4, columna).Value
        Sheets("bd").Cells(nrofila, 8).Value = Sheets("info").Cells(nrofila, columna).Value
        nrofila = nrofila + 1
 
Finciclo:
        columna = columna + 1
Loop
End Sub

Hay algunos errores que puedo detectar, pero no sé cómo arreglarlo. Necesito que revise desde la columna 7 a 60 y cuando encuentre una celda no vacía, copie el título de la columna y ciertos datos de la fila en otra hoja para poder organizar mejor los datos y realizar tablas dinámicas. Además, que pueda detectar cuáles son los datos nuevos y copie solo esos, para lo cual no encuentro solución aún.
Espero puedan ayudarme.
Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder