Edvin Velazquez

Buenas noches compañeros:

Solicito su valiosa ayuda en la revisión de esté código... Sucede que estoy tratando de copiar los datos de una nómina de 4 empleados y solamente me muesta, al efectuar el traslado de los datos, 4 veces la información del empleado que va en la primera fila de la nómina... 

Gracias de antemano...

Sub TrasladoNomina()
    'rutina que graba la Nomina en la hoja ResumenNomina
    Sheets("ResumenNomina").Activate
    
    Sheets("Nomina").Select    
        
    'se busca la primer fila libre en ResumenNomina
    filalibre = Sheets("ResumenNomina").Range("A1048576").End(xlUp).Row + 3
    
    'se trasladan los datos
    ActiveSheet.Range("B9").Select
    fila = 9
    
            While ActiveCell.Value <> ""
            
                'copiamos datos fijos ajustando número columna
                Sheets("ResumenNomina").Cells(filalibre, 1) = ActiveSheet.Range("B9") 'Codigo
                Sheets("ResumenNomina").Cells(filalibre, 2) = ActiveSheet.Range("C9") 'Salario
                Sheets("ResumenNomina").Cells(filalibre, 3) = ActiveSheet.Range("D9") 'Salario
                Sheets("ResumenNomina").Cells(filalibre, 4) = ActiveSheet.Range("E9") 'Dias trabajados
                Sheets("ResumenNomina").Cells(filalibre, 5) = ActiveSheet.Range("F9") 'Horas ordinarias trabajadas
                Sheets("ResumenNomina").Cells(filalibre, 6) = ActiveSheet.Range("G9") + ActiveSheet.Range("H9") 'Horas extraordinarias trabajadas
                Sheets("ResumenNomina").Cells(filalibre, 7) = ActiveSheet.Range("I9") 'Ordinario
                Sheets("ResumenNomina").Cells(filalibre, ? = ActiveSheet.Range("J9") 'Extraordinario
                Sheets("ResumenNomina").Cells(filalibre, 12) = ActiveSheet.Range("K9") 'Salario total
                Sheets("ResumenNomina").Cells(filalibre, 13) = ActiveSheet.Range("N9") 'IGSS
                Sheets("ResumenNomina").Cells(filalibre, 14) = ActiveSheet.Range("O9") 'ISR
                Sheets("ResumenNomina").Cells(filalibre, 15) = ActiveSheet.Range("P9") 'Anticipos salariales
                Sheets("ResumenNomina").Cells(filalibre, 16) = ActiveSheet.Range("Q9") 'Otras
                Sheets("ResumenNomina").Cells(filalibre, 17) = ActiveSheet.Range("R9") 'Total deducciones
                Sheets("ResumenNomina").Cells(filalibre, 19) = ActiveSheet.Range("L9") 'Bonificacion incentivo
                Sheets("ResumenNomina").Cells(filalibre, 20) = ActiveSheet.Range("S9") 'Liquido a recibir                               
        
                'incremento la variable fila para repetir el bucle
                filalibre = filalibre + 1
                
                'repito el bucle para los items siguientes
                ActiveCell.Offset(1, 0).Select
            Wend
          
        'se informa que los datos se trasladaron correctamente
        MsgBox "DATOS GUARDADOS CORRECTAMENTE"
        
        Range(" B9").Select
                      
End Sub