Ayuda Macro planilla sueldos

Buen dia Dam. Necesito de tu ayuda nuevamente para que me modifiques un macro que realizaste para que se aplique sobre otra planilla de sueldos con orden distinto a la que anteriormente me has ayudado.

Este es el código

---------------- CÓDIGO ---------------

Sub Planilla_Gral_MI()
Set hactual = Sheets(3)
Dim xfecha
xfecha = InputBox("Ingrese fecha a procesar en formato mm/aaaa")
Set hdest = Sheets.Add
ActiveSheet.Name = "Planilla_gral_MI"
hactual.Select
ufila = Range("A" & Rows.Count).End(xlUp).Row
ucol = ActiveCell.SpecialCells(xlLastCell).Column
hdest.Columns("C").NumberFormat = "mm\/yyyy"
j = 1
For k = 8 To ucol
If IsNumeric(hactual.Cells(1, k)) And hactual.Cells(1, k) <> "" And hactual.Cells(2, k) = "MI" Then
For i = 7 To ufila
If Cells(i, 1) <> "" Then
hdest.Cells(j, 1) = "'" & hactual.Cells(1, k)
hdest.Cells(j, 2) = "'" & hactual.Cells(i, 1)
hdest.Cells(j, 3) = xfecha
If hactual.Cells(i, k) = "" _
Or Not IsNumeric(hactual.Cells(i, k)) Then
hdest.Cells(j, 4) = 0
Else
hdest.Cells(j, 4) = hactual.Cells(i, k)
End If
j = j + 1
End If
Next
End If
Next
hdest.Select
MsgBox "Planilla General exportada correctamente..."
End Sub

------------------------- FIN CÓDIGO ------------------------

El macro tiene que tomar los valores de otro lugar de la planilla como te lo muestro en la siguiente imagen:

http://dl.dropbox.com/u/31683777/Planilla%20Gral.PNG

Asi es como debería quedar el archivo generado después de aplicar el nuevo macro:

http://dl.dropbox.com/u/31683777/exportado%20gral.PNG

Tengo que tener 2 Macros, uno para la empresa MI y el otro para XT.

Entonces los empleados que tengan en la columna F la palabra MI deberían tomar los valores de la Fila 4 comenzando por la columna 8 (esto es para el macro empresa MI).

Y si la columna F tiene la palabra XT debería tomar los valores de la fila 5 comenzando por la columna 8 (esto es para el macro empresa XT).

Las celdas vacías deben tener valor CERO como lo hace el código de arriba.

**Espero haber explicado de la mejor manera lo que necesito. Gracias***

1 Respuesta

Respuesta
1

Te anexo las 2 macros

Para la empresa MI

Sub Planilla_Gral_MI()
Set hactual = Sheets(3)
Dim xfecha
xfecha = InputBox("Ingrese fecha a procesar en formato mm/aaaa")
Set hdest = Sheets.Add
ActiveSheet.Name = "Planilla_gral_MI"
hactual.Select
ufila = Range("A" & Rows.Count).End(xlUp).Row
ucol = ActiveCell.SpecialCells(xlLastCell).Column
hdest.Columns("C").NumberFormat = "mm\/yyyy"
j = 1
For i = 6 To ufila
If Cells(i, "B") <> "" Then
For k = 8 To ucol
    If IsNumeric(hactual.Cells(4, k)) And _
        hactual.Cells(4, k) <> "" And _
        hactual.Cells(4, "F") = "MI" Then
        hdest.Cells(j, 1) = "'" & hactual.Cells(i, "B")
        hdest.Cells(j, 2) = hactual.Cells(4, k)
        hdest.Cells(j, 3) = xfecha
        If hactual.Cells(i, k) = "" _
            Or Not IsNumeric(hactual.Cells(i, k)) Then
            hdest.Cells(j, 4) = 0
        Else
            hdest.Cells(j, 4) = hactual.Cells(i, k)
        End If
        j = j + 1
    End If
Next
End If
Next
hdest.Select
MsgBox "Planilla General exportada correctamente..."
End Sub

Para la empresa XT

Sub Planilla_Gral_XT()
Set hactual = Sheets(3)
Dim xfecha
xfecha = InputBox("Ingrese fecha a procesar en formato mm/aaaa")
Set hdest = Sheets.Add
ActiveSheet.Name = "Planilla_gral_XT"
hactual.Select
ufila = Range("A" & Rows.Count).End(xlUp).Row
ucol = ActiveCell.SpecialCells(xlLastCell).Column
hdest.Columns("C").NumberFormat = "mm\/yyyy"
j = 1
For i = 6 To ufila
If Cells(i, "B") <> "" Then
For k = 8 To ucol
    If IsNumeric(hactual.Cells(5, k)) And _
        hactual.Cells(5, k) <> "" And _
        hactual.Cells(5, "F") = "XT" Then
        hdest.Cells(j, 1) = "'" & hactual.Cells(i, "B")
        hdest.Cells(j, 2) = hactual.Cells(5, k)
        hdest.Cells(j, 3) = xfecha
        If hactual.Cells(i, k) = "" _
            Or Not IsNumeric(hactual.Cells(i, k)) Then
            hdest.Cells(j, 4) = 0
        Else
            hdest.Cells(j, 4) = hactual.Cells(i, k)
        End If
        j = j + 1
    End If
Next
End If
Next
hdest.Select
MsgBox "Planilla General exportada correctamente..."
End Sub

Prueba y me comentas.

Saludos. Dam

Si es lo que necesitas.

Gracias Dam, la macro estaba correcta, salvo unas cosas especificas que logre pillar y ahi recién me entrego los valores. Esto fue lo que corregui:

j = 1
For i = 6 To ufila
If Cells(i, "B") <> "" Then ' aquí lo corregí por (i, 2)
For k = 8 To ucol
If IsNumeric(hactual.Cells(4, k)) And _ ' y esta por (i, 2)
hactual.Cells(4, k) <> "" And _
hactual.Cells(4, "F") = "MI" Then ' esta por (i, 6)

Gracias compadre por tu ayuda, estoy muy agradecido.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Crear macro para crear una planilla

Necesito que me ayuden a crear un macro que genere una tabla a partir de otra tabla en excel, pero que tome solo algunos datos de ella. Como ejemplo soy el siguiente link que es la tabla de la cual se sacaran los datos:...
1 respuesta

Extraer un número de celular de una cadena de texto (celda)

Por tomarte el tiempo de leer esta pregunta. Tengo un rango de celdas, las cuales pueden contener o no un número de celular integrado por 10 dígitos (Ejemplo: 3152243252), en cualquier parte del texto. Cada celda pude contener entre 10 y 500...
1 respuesta

Copiar filas a hoja resumen

Necesito una macro o formula que copie las filas rellenas, incluido el formato a partir de la cuarta fila de al menos 30 hojas distintas en una hoja llamada resumen ocupando siempre la primera fila vacía disponible y que se ejecute desde un botón o...
1 respuesta

¿Cómo quitar espacios en blanco de todas las celdas de una hoja?

Solicitando su apoyo para tener una macro o alguna manera para resolver el siguiente problema, trabajo con Bases de Datos y algunas veces en algunas de ellas, vienen campos con un dato, nombre, numero que tiene espacios de más al final, para resolver...
2 respuestas

Macro para colocar datos según cabecera de columna y fila ingresada.

Elabore un UserForm donde ingreso datos a una hoja de excel seleccionando los datos de un combobox y se va ingresando uno debajo de otro. Pero al tercer ingreso se empieza a grabar uno arriba de otro. Las columnas no siempre se llenan todas y...
1 respuesta

Buscar palabras que sean similares y mostrarlas en otra lista

Espero puedan ayudarme, el problema es el siguiente estoy haciendo un buscador de monografías, utilice la formula buscar v, pero en ocasiones no funciona ya que el texto debe ser idéntico. Quisiera saber si hay otra forma de hacerlo, por ejemplo...
1 respuesta

Una macro para extraer una cadena alfanumérica

Agradecería mucho si me ayudan con la elaboración de una macro, ya que la verdad apenas me estoy introduciendo en este tema y no conozco demaciado. Mi problema es el siguiente: En una columna (F:F) tengo una lista de caracteres alfanuméricos, la cual...
1 respuesta