Farklı Sayfadaki Boş ilk Satırı Seçme, O Sayfaya Aktif Değilken.

[Çetin Çelik]

Merhaba Üstadlar.

Sayfa Adı = Veriler
Sayfa Adı = Sonuç

Veriler sayfasında işlem yapıyorum. Sonuç sayfasında ise "Veriler" sayfasından gelen bilgiler var.

bu duruma göre yapmak istediğim şey şu;

"Veriler" sayfasında işlem yapmaya devam etmek istiyorum ve "Veriler" sayfasında bulunan buton sayesinde "Sonuç" sayfasının boş olan ilk satırını bulup o satırdan önceki satırları gizlemesini istiyorum ama ilk 3 satır hariç. o satırlarlar başlıkların olduğu satırlar.

Diğer bir deyişle "Sonuç" sayfasındaki ilk 3 satır hariç dolu olan satırları gizlesin istiyorum ama bunlar olurken ben her zaman "Veriler" sayfasında olmalıyım.

Basit bişey olduğunu zihnim kabulleniyor, çünkü diğer çalıştığım sayfalarda bu işlemi çok yaptım ama sayfa aktifken. şimdi çalıştığım sayfa farklı olunca işin içinden çıkamadım.

Hepinize şimdiden teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Option Explicit

Sub Rows_Hidden()
    Dim S1 As Worksheet, Last_Row As Long
    Set S1 = Sheets("Sonuç")
    S1.Rows.Hidden = False
    Last_Row = S1.Cells(S1.Rows.Count, 1).End(3).Row
    S1.Rows("4:" & Last_Row).Hidden = True
    Set S1 = Nothing
End Sub

 

[Çetin Çelik]

Merhaba,

Aşağıdaki kodu deneyiniz.

Option Explicit

Sub Rows_Hidden()
    Dim S1 As Worksheet, Last_Row As Long
    Set S1 = Sheets("Sonuç")
    S1.Rows.Hidden = False
    Last_Row = S1.Cells(S1.Rows.Count, 1).End(3).Row
    S1.Rows("4:" & Last_Row).Hidden = True
    Set S1 = Nothing
End Sub

Çoook teşekkür ederim Korhan Bey.