Üstünde ve altında boş satırlar olan tabloda dolu satırları seçtirmek

[Gungor_Alkan]

Merhaba Üstadlarım,

Farklı aralıklarla arada boş satırları olan bir tablom var.
Tablomu basite indirgersem

A-B-C Kolonlarından oluşsun

1) Satır: İLÇESİ-ADI-SOYADI (Başlık satırı)
2) Satır: (Boş bırakıyorum)

3) Satır: ALİAĞA-AHMET-ALİAĞALI
4) Satır: ALİAĞA-MEHMET-ALİAĞALI
5) Satır: ALİAĞA-HASAN-ALİAĞALI

6) Satır: (Boş bırakıyorum)

7) Satır: ÇEŞME-AHMET-ÇEŞMELİ
8) Satır: ÇEŞME-MEHMET-ÇEŞMELİ
9) Satır: ÇEŞME-HASAN-ÇEŞMELİ
10) Satır: ÇEŞME-HÜSEYİN-ÇEŞMELİ
11) Satır: ÇEŞME-AYŞE-ÇEŞMELİ
12) Satır: ÇEŞME-FATMA-ÇEŞMELİ

13) Satır: (Boş bırakıyorum)

14) Satır: URLA-ALİ-URLALI
15) Satır: URLA-VELİ-URLALI
16) Satır: URLA-FURKAN-URLALI
17) Satır: URLA-HAKAN-URLALI

18) Satır: (Boş bırakıyorum)

19) Satır: BUCA-AHMET-BUCALI
20) Satır: BUCA-MEHMET-BUCALI
21) Satır: BUCA-HASAN-BUCALI
22) Satır: BUCA-HÜSEYİN-BUCALI
23) Satır: BUCA-AYŞE-BUCALI
24) Satır: BUCA-FATMA-BUCALI
25) Satır: BUCA-ALİ-BUCALI
26) Satır: BUCA-VELİ-BUCALI
27) Satır: BUCA-FURKAN-BUCALI
28) Satır: BUCA-HAKAN-BUCALI
29) Satır: BUCA-SERKAN-BUCALI

30) Satır: (Boş bırakıyorum)
...........................................

Yapmak istediğim activecell tabodaki kişilerin İLÇE adı ADI veya SOYADI herhangi birinde iken kodu çalıştırdığımda
Alt ve Üstte bulunan boş satırlara kadar dolu olan satırları seçsin

Kullandığım şöyle bir kod var

Sub satirsec()
ActiveCell.Select
Range(Rows(Selection.Row + 0), Rows(Selection.Row + 0)).Select
Range(Selection, Selection.End(xlDown)).Select
End Sub

bu kod bulunduğum yerden aşağıdaki boş satıra kadar olan dolu satırları seçiyor ancak ortada bir yerdeysem
üstteki boşluğa kadar olan dolu satırları da seçsin istiyorum

Yukarıdaki örnek tabloda

A24, B24 veya C24 Hücrelerinden birinde isem (BUCA-FATMA-BUCALI)

19,20,21, ..... ,29 satırlarını seçtirmek istiyorum.

Yardımcı olabilecek üstadlarıma şimdiden teşekkür ederim.

 

[Biolightant]

Merhaba
istediğiniz böyle bir şey mi ?

Sub BulundugunBloguSec()

    If ActiveCell.Value = "" Then Exit Sub

    ActiveCell.CurrentRegion.Select

End Sub

 

[Seyit Tiken]

Bu şekilde deneyin.

Sub DoluSatirlariSec()
Dim ws As Worksheet
Dim sonSatir As Long
Dim i As Long
Dim secilecekAlan As Range
Set ws = ActiveSheet
sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
If ws.Cells(ws.Rows.Count, "B").End(xlUp).Row > sonSatir Then sonSatir = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
If ws.Cells(ws.Rows.Count, "C").End(xlUp).Row > sonSatir Then sonSatir = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
For i = 1 To sonSatir
If WorksheetFunction.CountA(ws.Range("A" & i & ":C" & i)) > 0 Then
If secilecekAlan Is Nothing Then
Set secilecekAlan = ws.Range("A" & i & ":C" & i)
Else
Set secilecekAlan = Union(secilecekAlan, ws.Range("A" & i & ":C" & i))
End If
End If
Next i
If Not secilecekAlan Is Nothing Then
secilecekAlan.Select
MsgBox "Dolu satırlar başarıyla seçildi!", vbInformation, "İşlem Tamam"
Else
MsgBox "A, B ve C sütunlarında hiç veri bulunamadı.", vbExclamation, "Veri Yok"
End If
End Sub