VBA'da Satır seçme

[aserifkuzu]

Merhaba,

VBA'da satır seçtirmek istiyorum. seçtirmek istediğim satırın numarası A1 hücresindeki değerdir.
Yani A1 hücresinde "5" yazıyorsa 5 numaralı satırı seçmek istiyorum.

Kıt bilgimle şunu denedim ama olmadı;

Dim aa As Integer
aa = Range("A1").Value
Rows("aa:aa").Select

Nasıl yapabilirim?

 

[Necdet]

Merhaba,

Makro kaydet ile deneyin, kodları görürsünüz.

Rows(Range("A1")).Select

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu kullanabilirsiniz.

Sub Test()
    Dim Satir As Variant
    Satir = Range("A1").Value
    
    If Not IsNumeric(Satir) Then
        MsgBox "'A1' hücresinde rakam yazmıyor."
        Exit Sub
    ElseIf Satir < 1 Or Satir > Rows.Count Then
        MsgBox "'A1' hücresine 1 ile " & Rows.Count & " arasında bir rakam girmeniz geriyor."
        Exit Sub
    End If
    Rows(Satir).Select
End Sub

 

[aserifkuzu]

Teşekkürler Arkadaşlar

 

[musaliha]

merhaba aynı konuda farklı bir durum için yardım rica ediyorum.

Dim SonSat As Long
SonSat = Range("A" & Rows.Count).End(xlUp).Row 'A sütununun son dolu satırı
Range("A" & Rows.Count).End(xlUp).Select
ActiveCell.EntireRow.Select


bu kod ile istediğim sütunun son satırının tamamını seçebiliyorum.
ama istediğim şey 8.satırdan bu bulduğum son satıra kadar olan kısmın tamamını seçmek.
yardımcı o0labilirmisiniz

 

[Necdet]

istediğim şey 8.satırdan bu bulduğum son satıra kadar olan kısmın tamamını seçmek.
yardımcı o0labilirmisiniz

deneyiniz.

Dim SonSat As Long
SonSat = Range("A" & Rows.Count).End(xlUp).Row 'A sütununun son dolu satırı
Rows("8:" & SonSat).Select

 

[musaliha]

çok teşekkürler