A1 den son dolu satıra ve sütuna kadar seçtirme

[hakki83]

Merhaba iyi günler hocalarımız

Örnek dosyada A1’den son dolu satır ve sütuna kadar seçtirme kodlarım var ama ikisi de arada boşluk olunca tamamını seçmiyor.

Teşekkürler.

 

[Muzaffer Ali]

Merhaba.
Kodlar zaten aynı sayfada olduğu için sayfa belirtmenize gerek yok.

Private Sub CommandButton1_Click()
    Range(Range("A1"), Cells(Rows.Count, "A").End(xlUp)).Select 'Clear
End Sub

Private Sub CommandButton2_Click()
    Range(Range("A1"), Cells(1, Columns.Count).End(xlToLeft)).Select 'Clear
End Sub

Yada

Private Sub CommandButton1_Click()
    Range("A1").Resize(Cells(Rows.Count, "A").End(xlUp), 1).Select 'Clear
End Sub

Private Sub CommandButton2_Click()
    Range("A1").Resize(1, Cells(1, Columns.Count).End(xlToLeft)).Select 'Clear
End Sub

 

[hakki83]

Çok güzel oldu. Emeğinize sağlık değerli Muzaffer Ali hocam.

 

[hakki83]

Hocam bir de konu dışı bir şey soracağım izninizle, ben bulamadım ama, çok kullandığımız VBA’daki Comment Block ve Uncomment Block düğmelerinin klavyede bir kısayolu var mıdır?

 

[Muzaffer Ali]

VBA Tool barı sağ tıklatıp Edit Toolunu etkinleştirin.
VBA Tool barı sağ tıklatıp Customize Seçin.
Açılan pencerede Rearrange Command tıklatın.
Açılan pencerede Tool Seçeneğini seçin, listedende Edit seçin.
Controls listesinden Comment Block seçin
Modify Selection tıklatın.
Açılan menüdeki Name kısmının başına "&" işaretin koyun Name şöyle olacak "&Comment Block"
Yine açılan menüdeki "Text and image" seçin.
Sonra tekrar Controls listesinden Uncomment Block seçin
Açılan menüdeki Name kısmının başına "&" işaretin koyun Name şöyle olacak "&Uncomment Block"
Yine açılan menüdeki "Text and image" seçin.
Close tıklatarak pencereleri kapatın.

Aşağıdaki gibi kısa yol eklenmiş oldu, bu kısa yolları kullanabilirsiniz.

ALT + C = Comment Block
ALT + U = Uncomment Block

 

[hakki83]

Hocam harikasınız. Tam saklamalık arşivlik bir bilgi verdiniz.