Satır yerleştirme

[XExcel]

iyi günler herkese
ekteki dosyada sorumu sordum
yardımlarınız için teşekkür ederim şimdiden

 

[hamitcan]

Size tavsiyem, Sheet3 sayfasına bir SpinButton ekleyip yapmanız. Bu nesne isteğinize daha uygun.

Private Sub SpinButton1_SpinDown()
    s = Sayfa2.[b65536].End(3).Row
    SpinButton1.Min = 2
    SpinButton1.Max = s
    a = SpinButton1.Value
    [b2:w2] = Sayfa2.Range("b" & a & ":" & "w" & a).Value
End Sub

Private Sub SpinButton1_SpinUp()
    s = Sayfa2.[b65536].End(3).Row
    SpinButton1.Min = 2
    SpinButton1.Max = s
    a = SpinButton1.Value
    [b2:w2] = Sayfa2.Range("b" & a & ":" & "w" & a).Value
End Sub