Soru Makro kaydetme

[sametmerd]

Merhabalar, düşeyara formülünü çok fazla kullanıyorum. Makro kaydettim fakat düşeyara yapınca örneğin makro kaydettiğim tabloda 100 satır varsa, diğer tabloda 200 satır varsa sonuna kadar gitmiyor. Düşeyara yaparken dolu satırın en sonuna kadar nasıl çektirebilirim. Yardımlarınız için şimdiden teşekkür ederim. Örnek makroyu aşağıya ekledim.

Sub depoyeri()
'
' depoyeri Makro
'

'
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(C[-1],'[DY ve Kapasite.xlsx]DY YENİ'!R2C2:R78C3,2,0)"
Selection.AutoFill Destination:=Range("D248084")
Range("D248084").Select
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kod A sütunundaki son satıra kadar formülü uygular.
Eğer başka bir sütunun son satırına kadar olmasını isterseniz "A" yazan yeri değiştiriniz.

    Range("D2:D" & Cells(Rows.Count, "A").End(xlUp).Row).FormulaLocal = "=DÜŞEYARA(C:C;'[DY ve Kapasite.xlsx]DY YENİ'!$B:$C;2;0)"

Eğer sonuç istediğiniz gibi olmazsa dosyanızı ekleyin daha doğru ve hızlı yanıt alırsınız.
Dosyanızda özel bilgiler varsa benzer değerlerle değiştirip dosya.tc gibi bir sitede paylaşabilirsiniz.

 

[cems]

..