Como hacer que este modulo busque por 2 metodos

leones55 · el 20 de octubre

Buenas tardes me gustaria saber como puedo hacer que este modulo que lo descargue me busque por valores de búsqueda ejemplo los valores de búsqueda están en la celda 2 14(N2) y en la celda 2 15(O2) y busque en la columna el valor 2 14(N2) en la columna 6(F) y el valor 2 15(O2) en la columna 4(D) como haría en este caso adjunto código.

Sub Exportar()
    Dim codigo As String
    Dim Nombre As String
    Dim cedula As String
    Dim dependencia  As String
    Dim ingreso  As String
    Dim fecha  As String
    Dim turno  As String
    Dim puesto  As String
    Dim traslado As String
    Dim entrada  As Date
    Dim salida  As Date
    Dim observaciones As String
    
    Dim ultimaFila As Long
    Dim ultimaFilaCA As Long
    Dim cont As Long
    Dim fechaB As String
    
    fechaB = Sheets("Asistencia").Cells(2, 14)
    fechaB = "*" & fechaB & "*"

   ultimaFila = Sheets("Asistencia").Range("A" & Rows.Count).End(xlUp).Row

   If ultimaFila < 3 Then
        Exit Sub
    End If

    For cont = 3 To ultimaFila
        If Sheets("Asistencia").Cells(cont, 6) Like fechaB Then
            codigo = Sheets("Asistencia").Cells(cont, 1)
            Nombre = Sheets("Asistencia").Cells(cont, 2)
            cedula = Sheets("Asistencia").Cells(cont, 3)
            dependencia = Sheets("Asistencia").Cells(cont, 4)
            ingreso = Sheets("Asistencia").Cells(cont, 5)
            fecha = Sheets("Asistencia").Cells(cont, 6)
            turno = Sheets("Asistencia").Cells(cont, 7)
            puesto = Sheets("Asistencia").Cells(cont, 8)
            traslado = Sheets("Asistencia").Cells(cont, 9)
            entrada = Sheets("Asistencia").Cells(cont, 10)
            salida = Sheets("Asistencia").Cells(cont, 11)
            observaciones = Sheets("Asistencia").Cells(cont, 12)

            ultimaFilaCA = Sheets("CA").Range("A" & Rows.Count).End(xlUp).Row
            Sheets("CA").Cells(ultimaFilaCA + 1, 1) = codigo
            Sheets("CA").Cells(ultimaFilaCA + 1, 2) = Nombre
            Sheets("CA").Cells(ultimaFilaCA + 1, 3) = cedula
            Sheets("CA").Cells(ultimaFilaCA + 1, 4) = dependencia
            Sheets("CA").Cells(ultimaFilaCA + 1, 5) = ingreso
            Sheets("CA").Cells(ultimaFilaCA + 1, 6) = fecha
            Sheets("CA").Cells(ultimaFilaCA + 1, 7) = turno
            Sheets("CA").Cells(ultimaFilaCA + 1, 8) = puesto
            Sheets("CA").Cells(ultimaFilaCA + 1, 9) = traslado
            Sheets("CA").Cells(ultimaFilaCA + 1, 10) = entrada
            Sheets("CA").Cells(ultimaFilaCA + 1, 11) = salida
            Sheets("CA").Cells(ultimaFilaCA + 1, 12) = observaciones

        End If
    Next cont

    ultimaFilaCA = Sheets("CA").Range("A" & Rows.Count).End(xlUp).Row
    'With Sheets("CA").Range("A2:L" & ultimaFilaCA).Font
        '.Name = "Arial"
        '.Size = 10
        '.Italic = True
    'End With
    
    MsgBox "Proceso terminado", vbInformation, "Resultado"

End Sub