bir sütuna düşeyara makrosu atama

[peleryn]

Herkese merhabalar;

Aşağıdaki formülü

=DÜŞEYARA($C8;'GİRİŞ İŞLEMLERİ'!$B$2:$IV$500;2;YANLIŞ)

Bu formülün işlediği sayfanın D sütunu boyunca aşağı çekiyorum.Bu formülü D8500 aralığındaki tüm hücrelere uygulayacak makroyu yazamadım.

Yardımcı olan olursa sevinirim.

 

[Orion1]

Dim i  As Long, k As Range
For i = 8 To 500
    Set k = Sheets("GİRİŞ İŞLEMLERİ").Range("B2:IV500").Find(Cells(i, "C").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then Cells(i, "D").Value = k.Offset(0, 1).Value
Next i

 

[peleryn]

hocam deneme fırsatım bugün olmayacak gibi ama kodu aldım sizden geldiğine göre eminim işini görüyordur.emeğinize sağlık çok teşekkürler

 

[Orion1]

hocam deneme fırsatım bugün olmayacak gibi ama kodu aldım sizden geldiğine göre eminim işini görüyordur.emeğinize sağlık çok teşekkürler

Rica ederim.
İyi çalışmalr.

 

[peleryn]

Hocam ellerinize sağlık.Bugün dosyaya uygulayabildim.Çok güzel oldu teşekkür ederim.
İyi çalışmalar dilerim.

 

[Orion1]

Hocam ellerinize sağlık.Bugün dosyaya uygulayabildim.Çok güzel oldu teşekkür ederim.
İyi çalışmalar dilerim.

Rica ederim.
iyi çalışmalar.

 

[tahsinanarat]

Sn. peleryn, örnek makroyu kullandığınız konu ile ilgili örnek dosyayı ekleyebilirmisiniz

 

[peleryn]

Sayın tahsinanarat;

Dosyanın konuyla ilgili kısmını gösteren bir örnek dosya ekliyorum.FATURA sayfasında butona bastığınızda kodlar çalışacak.kendi dosyamda worksheet_activate koduyla çalıştırıyorum.

 

[peleryn]

Dosya eklemeden mesajı yollamışım pardon.

İyi çalışmalar dilerim.

 

[tahsinanarat]

Sn. peleryn ilginize çok teşekkür ediyorum. Saygılar.

 

[tahsinanarat]

Sn. Evren Hocam ;
For i = 8 To 500
Burdaki döngüyü 500 değil de C sutunundaki son dolu satıra kadar diyebilirmiyiz.

 

[tahsinanarat]

sn. Evren Hocamın görmediğinden eminim.

 

[Korhan Ayhan]

Selamlar,

Tahsin bey,

Bu basit kodu sizin yazabileceğinizi düşünüyorum. Çünkü forumda daha önce son satır bulmayla ilgili onlarca kod yazıldı. Biraz araştırmak gerekiyor.

Aşağıdaki kodu kullanabilirsiniz.

For i = 8 To [COLOR=red][B]Range("C65536").End(3).Row[/B][/COLOR]

 

[tahsinanarat]

Haklısın Korhan hocam, ufak bir dikkatsizliğim sonucu (tırnak işaretlerinden birini tek tırnak koyduğumu farkettim) yapamamışım. Çok teşekkür ediyorum. Saoğlasınız.