eşleştirme makrosu

[turkanet]

Merhaba,

"liste" sayfasında a ve b sütunundan oluşan bir listem var. çalıştıracağım makro;

sayfa1'de c sütunundaki karşılığını liste sayfasından kontrol edip sayfa1'de f sütununa yazacak. yani birebir eşleştirme yapacak.

konu ile ilgili forumda arama yaptım ama örnek dosyaları bir türlü açamadığım için yeni soru yazdım.

değerli yardımlarınızı beklerim
örnek dosya ektedir

 

[Korhan Ayhan]

Selamlar,

DÜŞEYARA fonksiyonu ile istediğinizi rahatlıkla yapabilirsiniz.

F1 hücresine aşağıdaki formülü uygulayıp denermisiniz.

[SIZE=2][SIZE=2]=EĞER(EYOKSA(DÜŞEYARA(C1;liste!A:B;2;0));"";DÜŞEYARA(C1;liste!A:B;2;0))

[/SIZE][/SIZE]

 

[turkanet]

Sn.Korhan Ayhan,
çok tşk.

F1 hücresine yazacağım bu formülü c sütunundaki son hücre kadar f sütununda kopyalayacak makro için de yardımlarınızı rica ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub FORMÜL_KOPYALA()
    On Error Resume Next
    [F1].AutoFill Destination:=Range("F1:F" & [C65536].End(3).Row), Type:=xlFillDefault
End Sub

 

[turkanet]

değerli yardımlarınız için minnettarım