Traslado de Datos

1 post / 0 nuevos
Darack
Imagen de Darack
Offline
última acción: Hace 1 mes 2 semanas
alta: 15/08/2022 - 15:36
Puntos: 75
Traslado de Datos

Buenos días quiero realizar transferencia de datos de una hoja a otra ya tengo por medio de la condición que me traslade cuando el dato sea igual a cierta columna pero ahora deseo que no me traslade repetidos por medio de una columna anterior y solamente cuando no exista en la hoja ya esa información.

Dejo código que utilizo

Tengo esa comparación pero igual me traslada datos cuando inicio el libro de nuevo alguien me puede apoyar

If MENSAJE = vbNo Then Exit Sub

    Cuenta = Application.WorksheetFunction.CountIf(Range("B:B"), acta)

    If Cuenta > 0 Then

    MsgBox "ACTA '" & acta & "' TRASLADADA AL '" & proceso & "'", vbExclamation, "INFORMACIÓN"

    acta = Empty

    

        ElseIf proceso = "Proceso 1" Then

            uFilaH = Sheets("Proceso1").Range("A" & Rows.Count).End(xlUp).Row

            Sheets("Proceso1").Cells(uFilaH + 1, 2) = acta

            Sheets("Proceso1").Cells(uFilaH + 1, 3) = aduana

            Sheets("Proceso1").Cells(uFilaH + 1, 4) = fechai

            Sheets("Proceso1").Cells(uFilaH + 1, 5) = fechae

            Sheets("Proceso1").Cells(uFilaH + 1, 6) = pnc

            Sheets("Proceso1").Cells(uFilaH + 1, 7) = lugar

            Sheets("Proceso1").Cells(uFilaH + 1, 8) = mp

            Sheets("Proceso1").Cells(uFilaH + 1, 9) = fiscalia

            Sheets("Proceso1").Cells(uFilaH + 1, 10) = fiscal

            Sheets("Proceso1").Cells(uFilaH + 1, 11) = juzgado

            Sheets("Proceso1").Cells(uFilaH + 1, 12) = causa

            Sheets("Proceso1").Cells(uFilaH + 1, 13) = sindicado

            Sheets("Proceso1").Cells(uFilaH + 1, 14) = audiencia

            Sheets("Proceso1").Cells(uFilaH + 1, 15) = ubicacion

            Sheets("Proceso1").Cells(uFilaH + 1, 16) = placa

            Sheets("Proceso1").Cells(uFilaH + 1, 17) = vehiculo

            Sheets("Proceso1").Cells(uFilaH + 1, 18) = marchamo

            Sheets("Proceso1").Cells(uFilaH + 1, 19) = segmento

            Sheets("Proceso1").Cells(uFilaH + 1, 20) = aforo

            Sheets("Proceso1").Cells(uFilaH + 1, 21) = valor

            Sheets("Proceso1").Cells(uFilaH + 1, 22) = iva

            Sheets("Proceso1").Cells(uFilaH + 1, 23) = dai

            Sheets("Proceso1").Cells(uFilaH + 1, 24) = otros

            Sheets("Proceso1").Cells(uFilaH + 1, 25) = cambio

            Sheets("Proceso1").Cells(uFilaH + 1, 26) = estatus

            Sheets("Proceso1").Cells(uFilaH + 1, 27) = proceso

            Sheets("Proceso1").Cells(uFilaH + 1, 28) = procurado

            Sheets("Proceso1").Cells(uFilaH + 1, 29) = Destruccion

            Sheets("Proceso1").Cells(uFilaH + 1, 30) = fechad

            Sheets("Proceso1").Cells(uFilaH + 1, 31) = samda

            Sheets("Proceso1").Cells(uFilaH + 1, 32) = observaciones

            MsgBox "TRASLADO EXITOSO"

            

      

Etiquetas: