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,
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,