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"
