Düşey arama formulünü kod olarak yazmak için?

[abbasonline]

Excelde, E3 satırdan E39990

 

[Orion1]

D39992 satırdan D70000 satıra kadar yazanların sağında yani E39992 den D70000

2003 te 70000 satır yok ki.

 

[abbasonline]

ben 2007 kullanıyorumda onun için vermiştim 70000 rakamını, ancak bana 50000 satırda yetecek veyahut daha azıda;

 

[leumruk]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [d3:d65536]) Is Nothing Then Exit Sub
Set Aralık = Range("e3:e" & [e65536].End(3).Row)
    Set Bul = Aralık.Find(Target.Offset(0, 1), LookIn:=xlValues)
    If Not Bul Is Nothing Then
    Application.EnableEvents = False
        Adres = Bul.Address
        Do
        Cells(Bul.Row, "d") = Target
        Set Bul = Aralık.FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    Application.EnableEvents = True
    MsgBox "İşlem tamam.", vbInformation
    End If
End Sub

 

[abbasonline]

leumruk bey, teşekkür ederim çok sağolun, hayırlı geceler.

 

[leumruk]

leumruk bey, teşekkür ederim çok sağolun, hayırlı geceler.

Rica ederim. Hayırlı geceler...

 

[abbasonline]

Kod da hata var galiba;

Dosya ekte,

 

[abbasonline]

ekteki diğer dosya

koddaki arama yanlış yerde yapıyor.

 

[abbasonline]

ekteki dosyadaki