- Katılım
- 7 Ekim 2004
- Mesajlar
- 60
- Excel Vers. ve Dili
-
Excel 2003
(11.5612.6505)
Arkadaşlar bana aktif hücrenin bulunduğu satırı seçebileceğim bir kod lazım.,
şöyleki...
Sub Makro1()
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.
şöyleki...
Sub Makro1()
Kod:
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
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.