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

[Erdogan3434]

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]

Aşağıdaki gibi deneyin.

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

 

[Erdogan3434]

Aşağıdaki gibi deneyin.

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

Maalesef geçersiz Autofil yöntemi şeklinde hata verdi.

 

[Erdogan3434]

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