Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: wildkiss23 - 28 Mayıs 2022, 17:12:19

Başlık: düşeyara komutu makro ile çalıştırma
Gönderen: wildkiss23 - 28 Mayıs 2022, 17:12:19

Merhabalar.

Ekte paylaştığım deneme sayfasında düşeyara komutunu kullanıyorum. Bu komutun görevini yapacak makro yazabilir miyim?

Yardımlarınızı bekliyorum arkadaşlar.

Şimdiden teşekkürler.

Başlık: düşeyara komutu için makro lazım
Gönderen: wildkiss23 - 30 Mayıs 2022, 12:35:05

Merhabalar.

Ekte paylaştığım deneme sayfasında düşeyara komutunu kullanıyorum.

Bu komutun görevini yapacak makro yazabilir miyim?

Yardımlarınızı için şimdiden teşekkürlerimi borç bilirim.

Başlık: Ynt: düşeyara komutu makro ile çalıştırma
Gönderen: Bülent Öztürk - 03 Ağustos 2022, 22:41:34

Merhaba,

Cevap epey geç oldu, kusura bakmayın. Umarım bu zamana kadar çözüm bulmuşsunuzdur, ancak yine de paylaşmak isterim:

Kod: [Seç]

Sub Makro_ile_Duseyara()
Dim sondolusatir As Integer
sondolusatir = Range("A65530").End(3).Row
Set verialani = Range("M:Q")
Range("I4:I" & sondolusatir).ClearContents

For excelce = 4 To sondolusatir
On Error Resume Next
    Range("I" & excelce).Value = Application.WorksheetFunction.VLookup(Range("A" & excelce).Value, verialani, 5, False)
Next excelce

End Sub