MsgBox "Datos Registrados con Exito", vbInformation, "Registrar"
End Sub
que hace este codigo, primero hay un formulario el cual manda un rango n de fechas a la hoja4 , cuando sigue este codigo lo que hace es empezar a buscarme esas fecha que se descargo en la hoja4 en otra hoja llamada credito y cuando las encuentra las pone de color rojo las celda, la verda no he podido hacer esa comparacion.
hola amigos
tengo el siguiente codigo
Sub guardar()
Dim posicion As Integer
Uf = Hoja5.Range("A" & Rows.Count).End(xlUp).Row
For i = 0 To Pagos.ListCount - 1
If Pagos.Selected(i) = True Then
On Error Resume Next
With Sheets("Credito")
pos1 = .Range("A2:A1000000").Find(cl1, lookat:=xlWhole).Row
posicion = Application.WorksheetFunction.Match(Hoja4.Cells(i, 1), .Range("A" & pos1 & ":" & "aw" & pos1), -1)
.Cells(pos1, posicion).Interior.ColorIndex = 3
End With
End If
Pagos.Selected(i) = False
Next
MsgBox "Datos Registrados con Exito", vbInformation, "Registrar"
End Sub
que hace este codigo, primero hay un formulario el cual manda un rango n de fechas a la hoja4 , cuando sigue este codigo lo que hace es empezar a buscarme esas fecha que se descargo en la hoja4 en otra hoja llamada credito y cuando las encuentra las pone de color rojo las celda, la verda no he podido hacer esa comparacion.
y este codigo es el que me esta fallando
posicion = Application.WorksheetFunction.Match(Hoja4.Cells(i, 1), .Range("A" & pos1 & ":" & "aw" & pos1), -1)
ya que es el que comprara la fecha que hay entre la hoja 4 y la hoja de credito
saludos