Do while döngüsü (Aktif hücre ... ise sıradaki işlemden devam edilsin!)

[harziyan]

Hayırlı akşamlar;
Yapmak istediğim F sütunundaki son dolu hücreden F9'a kadar boş satırları silmek, ama aşağıdaki kodlarda nerede hata yaptığımı bulamadım!

Dim son As Range: Set son = Range("f65536").End(xlUp): son.Select

Do While ActiveCell.Address <> "$f$9"
Do While ActiveCell <> ""
ActiveCell.Offset(-1, 0).Select
Loop
Rows(ActiveCell.Row).Delete
Loop

 

[askm]

Dim son As Range: Set son = Range("f65536").End(xlUp): son.Select

Do While ActiveCell.Address <> "$F$9"
Do While ActiveCell <> ""
Rows(ActiveCell.Row).Delete
Loop
ActiveCell.Offset(-1, 0).Select
Loop

 

[harziyan]

Dim son As Range: Set son = Range("f65536").End(xlUp): son.Select

Do While ActiveCell.Address <> "$F$9"
Do While ActiveCell <> ""
Rows(ActiveCell.Row).Delete
Loop
ActiveCell.Offset(-1, 0).Select
Loop

Böyle olunca dolu hücreler de siliniyor!

 

[askm]

Dolu kısmını atlamışım.

Dim son As Range: Set son = Range("f65536").End(xlUp): son.Select
Do While ActiveCell.Address <> "$F$9"
Do While ActiveCell = ""
Rows(ActiveCell.Row).Delete
Loop
ActiveCell.Offset(-1, 0).Select
Loop

 

[harziyan]

Biraz daha kurcalayınca halloldu mesele. Teşekkürler.

Dim son As Range: Set son = Range("f65536").End(xlUp): son.Select
Do While ActiveCell.Address <> "$F$9"
        Do While ActiveCell = ""
            Rows(ActiveCell.Row).Delete
        Loop
    ActiveCell.Offset(-1, 0).Select
Loop

 

[harziyan]

Mesajlar aynı anda gitmiş.

 

[antonio]

Merhaba,
F9 hücresini seçiniz.
Shift ve Ctrl tuşlarına birlikte basarak aşağı ok tuşuna iki kez basınız. Sonra Bütün bu tuşları bırakarak, ve fareye dokunmayarak, F5 tuşuna basınız. Açılan pencereden "Özel" i seçiniz. Seçeneklerden "Boşlukları" işaretleyiniz, ok yapınız. Bu kadar basit. Kolay gelsin.