Makro ile Düşeyara Formülünde Yardım

Erdogan3434

Altın Üye
Katılım
14 Ocak 2022
Mesajlar
78
Excel Vers. ve Dili
Office 2013 Professional, Türkçe
Altın Üyelik Bitiş Tarihi
25-01-2028
Merhabalar,

Private Sub CommandButton3_Click()

Range("A1").Select
Selection.End(xlToRight).Select
Range("W2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(C[-6],Stok!C[-22]:C[-18],3,0)"
Selection.AutoFill Destination:=Range("W2:W150000")
Range("W2:W150000").Select
Range("X2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(C[-7],Stok!C[-23]:C[-19],4,0)"
Selection.AutoFill Destination:=Range("X2:X150000")
Range("X2:X150000").Select
Range("W1").Select
ActiveCell.FormulaR1C1 = "MD01 STOK"
Range("X1").Select
ActiveCell.FormulaR1C1 = "FARK STOK"
Columns("W:X").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("W:X").Select
End Sub


Bu şekilde bir makro ile 2 ayrı sütuna veri çağırmaktayım. Kod çalışıyor ancak Destination:=Range("X2:X150000") şu kısımların 150.000 satır olarak değilde aktif satır olarak düzenleyemedim. Desteğinizi rica ediyorum.

İyi akşamlar,
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki gibi deneyin.

Kod:
Destination:=Range("X2:X" & Range("X150000").end(3).row)
 

Erdogan3434

Altın Üye
Katılım
14 Ocak 2022
Mesajlar
78
Excel Vers. ve Dili
Office 2013 Professional, Türkçe
Altın Üyelik Bitiş Tarihi
25-01-2028
Maalesef geçersiz Autofil yöntemi şeklinde hata verdi.
Söz konusu kısmı aşağıdaki şekilde düzenledim. Birinin işine yarayabilir diye buraya yazıyorumm.


son = Cells(Rows.Count, "A").End(3).Row
Range("X2:X" & son).Select
Selection.FillDown
 
Üst