Değişken satır sayısına göre düşeyara makrosu

[MHGUL]

Merhaba,
Düşeyara için makro yazdım, ve bunu eklenti olarak kullanacağım. Ancak düşeyara yapacağım satır sayısı sürekli değişiyor ve ben de makroya devamlı şu hücre aralığında düşeyara yap demek istemiyorum. Bunun yerine makronun E sütununda yapacağım düşeyara formülünün o an ki çalıştığım excel sayfasının satır sayısına göre değişmesini istiyorum. Mümkün müdür? Cevaplar için şimdiden teşekkürler. Selamlar,

Sub urunkodu()
'
' urunkodu Makro
' Ürün kodlarını getir
'
' Klavye Kısayolu: Ctrl+ü
'
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "Ürün kodu"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = _
        "=DÜŞEYARA(D:D;'C:\Users\gul\Desktop\Belgeler\Rezerv\[artikel.xlsx]artikel'!$C:$E;3;0)"
    Range("E2").Select
    Selection.NumberFormat = "General"
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(C[-1],'C:\Users\gul\Desktop\Belgeler\Rezerv\[artikel.xlsx]artikel'!C3:C5,3,0)"
    Range("E2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("E:E").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("G:G").Select
    Selection.Replace What:=".000", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
End Sub

 

[Korhan Ayhan]

Merhaba,

Rows.Count komutu size aktif sayfadaki satır sayısını verecektir. İşinize yarayabilir.

 

[MHGUL]

Merhaba,

Rows.Count komutu size aktif sayfadaki satır sayısını verecektir. İşinize yarayabilir.

Korhan Bey merhaba,
Denedim ancak sonuca ulaşamadım.
Belirttiğim kodlar üstünde Rows.Count komutu ile ilgili kısmı örnekleyerek gösterebilir misiniz?
Teşekkürler.