Dosya Her Açıldığında İmlecin Enson Dolu Satıra Konumlanması

[ahmed_ummu]

İyi akşamlar arkadaşlar

Dosyayı her açtığımda A sütununda en son dolu satırın seçilmesini nasıl yapabilirim.

Aşağıdaki kodları bir dikdörtgen içine yazıp tıklama yapınca oluyor ama tıklama yapmadan sayfa açılında son dolu satırı seçmesini istiyorum. Sayfanın activiate yordamına yazdım ama dosya açılınca son satırı seçmiyor. Yardımcı olabilir misiniz.

Private Sub Worksheet_Activate()
Dim SonSat As Long
Set s = Sheets("Sayfa1")
SonSatir = s.Range("A65000").End(xlUp).Row
s.Cells(SonSatir, "A").Select
End Sub

 

[Mdemir63]

Selamlar

bir modül içine aşağıdaki kodları yapıştırıp deneyiniz

Sub Auto_Open()
Sheets("Sayfa1").Select
Range("A1048576").End(xlUp).Select
End Sub

 

[byfika]

Merhabalar,
Sayfanın kod kısmına:
Private Sub Worksheet_Activate()
Dim son As Integer
son = Range("A65536").End(3).Row
Cells(son, 1).Select
End Sub
Son dolu satırın A sütununu seçer,
eğer;
son = Range("A65536").End(3).Row+1 yaparsanız yine A sütununun dolu satırdan sonraki ilk boş satırı seçer.

 

[halit3]

Alternatif

Private Sub Worksheet_Activate()
Dim SonSat As Long
Set s = Sheets(ActiveSheet.Name)
SonSatir = s.Cells(Rows.Count, "A").End(3).Row
s.Cells(SonSatir, "A").Select
End Sub

 

[ahmed_ummu]

Merhabalar,
Sayfanın kod kısmına:
Private Sub Worksheet_Activate()
Dim son As Integer
son = Range("A65536").End(3).Row
Cells(son, 1).Select
End Sub
Son dolu satırın A sütununu seçer,
eğer;
son = Range("A65536").End(3).Row+1 yaparsanız yine A sütununun dolu satırdan sonraki ilk boş satırı seçer.

Teşekürler sayın byfika

 

[ahmed_ummu]

Alternatif

Private Sub Worksheet_Activate()
Dim SonSat As Long
Set s = Sheets(ActiveSheet.Name)
SonSatir = s.Cells(Rows.Count, "A").End(3).Row
s.Cells(SonSatir, "A").Select
End Sub

Çok teşekkürler Halit Bey.

 

[ahmed_ummu]

Selamlar

bir modül içine aşağıdaki kodları yapıştırıp deneyiniz

Sub Auto_Open()
Sheets("Sayfa1").Select
Range("A1048576").End(xlUp).Select
End Sub

Teşekkürler sayın Mdemir63

 

[Mdemir63]

Teşekkürler sayın Mdemir63

Rica ederim
İyi çalışmalar