Aktif satırın seçilmesi

[Oner Kurukuz]

Arkadaşlar bana aktif hücrenin bulunduğu satırı seçebileceğim bir kod lazım.,
şöyleki...

Sub Makro1()

For t = 1 To 5

sat = ActiveCell.Row
sut = ActiveCell.Column


    Range("F1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(rowoffset:=1, columnoffset:=0).Select
    ..............
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Next.Select

Burada amaç şu : F1 hücresine gidecek ve CTRL+Aşağı ok tuş bileşimine basıp değeri olan en son hücreye inecek. Bir hücre daha aşağı inecek ve ordaki aktif satırı seçecek.

Neden böyle bişeye ihtiyaç duydum....?
50 tane shhet var, ver her birinin F sütunundaki değer sayısı farklı.
Yani bir sheetde 250 satır dolu iken bir sonrakinde 180 satır, bir diğerinde 200 satır dolu.
her sayfaya tek tek gidip değerlerin bittiği satırdan sonra aşağı doğru tüm satırları seçip silecek...
Yani codlarda da görüldüğü gibi noktalı yere "aktif satırı seç" yapmam lazım.
satır seç dediğimde satır numarası veriyor, ...range("80:80") gibi.
ama numara istemiyorum.

Teşekkürler.

 

[Haluk]

Rows(ActiveCell.Row).Select

 

[Oner Kurukuz]

Saolasın dostum.
işe yaradı :lol: