makro arama yapma

[ceyficyus]

Bir konuda yardımınıza ihtiyacım var. x sayfasının a5 sutununda bulunan bir veriyi aynı dosyanın başka bir sayfasında makro ile arama yaptırmak için nasıl bir yol izlemem gerekiyor.

 

[Recep İpek]

Örnek küçük bir dosya eklerseniz çözüm bulmamız daha kolay olacaktır.

 

[ceyficyus]

Ekli dosyadaki tarih sutunundaki değere göre arama yapıp diğer sayfadaki ilgili tarihin yan sutunlarına ilgili bilgilerin girişleri yaptırılabilirmi.
Tşkler.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub AKATAR()
Set S1 = Sheets("SHEET1")
Set S2 = Sheets("SHEET2")
For SUT = 1 To S1.[A65536].End(3).Row
For SUT1 = 1 To S2.[A65536].End(3).Row
If S1.Range("A" & SUT) = S2.Range("A" & SUT1) Then
S2.Range("B" & SUT1 & ":E" & SUT1) = S1.Range("B" & SUT & ":E" & SUT).Value
End If
Next
Next
End Sub

 

[ceyficyus]

tam istediğim gibi olmuş paylaşım için tşkler.