Foro Excel

Hola a todos, consulta ; tengo la siguiente macro la cual me compara registros entre dos hojas del mismo libro, pero estas hojas tienen demasiados registros, necesito una solucion para que la macro funcione mas rapida, de antemano gracias y saludos
Sub Facturadas()
Application.ScreenUpdating = False
Sheets("No Facturadas").Select
Range("k2").Select
Posicion = 1
While ActiveCell.Value <> ""
VC = ActiveCell.Value
Sheets("Facturadas").Select
Range("K2").Select
salir = "no"
While ActiveCell.Value <> "" And salir = "no"
If ActiveCell.Value = VC Then
Sheets("No Facturadas").Select
ActiveCell.Interior.ColorIndex = 6
salir = "si"
Else
Sheets("Facturadas").Select
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Wend
Sheets("No facturadas").Select
Range("K2").Select
Posicion = Posicion + 1
ActiveCell.Offset(Posicion - 1, 0).Range("a1").Select

Wend
Range("A1").Select
End Sub

saludos y abrazos.-

Buen dí­a... porque no subes tu archivo para verlo... saludos.

Hola Juan,

A ver esto:

Código: Seleccionar todo

Sub Facturadas()
    Dim rng As Range, celda As Range, encontrado As Range
    With Sheets("No Facturadas")
        Set rng = .Range(.Cells(2, "K"), _
            .Cells(.Rows.Count, "K").End(xlUp))
    End With
    For Each celda In rng
        Set encontrado = Sheets("Facturadas").Columns("K:K").Find( _
            What:=celda, _
            After:=[K1], _
            LookIn:=xlValues, _
            LookAt:=xlWhole, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlNext)
        If Not encontrado Is Nothing Then
            celda.Interior.ColorIndex = 6
            Set encontrado = Nothing
        End If
    Next celda
End Sub

hola kl, gracias la probe y me dio excelente resultado, sobre todo en el tiempo de espera, saludos y abrazos .

Gracias Loscar, KL me envio una macro la cual me resulto de maravilla ,te agradezco tu gestion saludos y abrazos.