KOŞULLU HÜCRE SEÇMEK / KOŞULLU SATIR SEÇMEK

[coşkun79]

Aşağıdaki konularda makro kodu düzenlemeye çalışıyorum. İlgilenen arkadaşlara teşekkürler. Dosya ektedir.

1- Ekteki dosyanın 1 numaralı sayfasında, eğer A sütunu boş ise E ve F sütunlarındaki dolu hücrelerin tamamını seçmek istiyorum. Olması gereken sonucu sarı ile belirttim.
2- Ekteki dosyanın 2 numaralı sayfasında, eğer A sütunu dolu ise E sütunundaki boş hücrelerin tamamını seçmek istiyorum. Olması gereken sonucu kırmızı ile belirttim.
3- Ekteki dosyanın 3 numaralı sayfasında, eğer A sütunu boş ve E sütunu dolu ise A sütunundaki ilk boş satırdan başlamak üzere aşağı doğru şarta uyan bütün satırları seçmek ve silmek istiyorum. Şarta uyan satırları yeşil ile belirttim.

 

[Muzaffer Ali]

Merhaba.

Dosyanız ekte.

 

[coşkun79]

Elinize sağlık. Yalnız 3 numaralı sayfadaki kod için düzeltme yapılabilir mi? Şöyle ki; Tabloda formüller olduğunda ve satır sayısı fazla olduğunda silme işlemi uzun sürüyor. Bunun için tek tek silmek değil de şarta uyan satırların tamamını tek seferde seçip sonra bu satırlar için sil komutu verilebilirse daha hızlı sonuç alınır herhalde.
Normalde

Rows("11:423521").Select
    Selection.Delete Shift:=xlUp

şeklinde satırları manuel olarak seçip silebiliyorum. Mesela yukarıdaki kodun başlangıç satırı olan 11 yerine, A sütununda veri olmayan ve E sütununda veri olan ilk satır kod vasıtası ile otomatik tespit edilirse; son satır için ise E sütununda veri olan son satır tespit edilirse, başlangıç ve son satırları belli olduktan sonra bu ilgili satırları tek seferde toplu olarak seçip silmek daha hızlı olur diye düşünmüştüm. Bunun için yapabileceğiniz bir şey varsa memnun olurum.

 

[Muzaffer Ali]

A sütununda ilk boş hücreden sonra dolu bir hücre olma olasılığı yok mu?

 

[coşkun79]

A sütununda ilk boş hücreden sonra dolu bir hücre olma olasılığı yok mu?

Yok, çünkü boş olanlar sonda olacak şekilde sıralama yapıyorum.

 

[Muzaffer Ali]

Öyleyse 3. sayfanın kod kısmındaki kodları silin aşağıdakileri kopyalayın.

Sub SatirSil()
    Dim Say As Long
    Dim Bak As Long
    Dim Alan As String
    Say = Cells(Rows.Count, "A").End(xlUp).Row
    For Bak = 1 To Say
        If Cells(Bak, "A") = "" And Cells(Bak, "E") <> "" Then
            Exit For
        End If
    Next
    Rows(Bak & ":" & Rows.Count).Delete
End Sub

 

[coşkun79]

Tekrardan teşekkür ederim

 

[Korhan Ayhan]

Alternatif;

Sub Deneme_1()
    Son_A = Sheets("1").ListObjects("Tablo1").Range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Son = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("E" & Son_A + 1 & ":F" & Son).Select
End Sub

Sub Deneme_2()
    Son_E = Sheets("2").ListObjects("Tablo13").Range.Columns(5).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Son = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("E" & Son_A + 1 & ":E" & Son).SpecialCells(xlCellTypeBlanks).Select
End Sub

Sub Deneme_3()
    Son_A = Sheets("3").ListObjects("Tablo14").Range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Son = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("A" & Son_A + 1 & ":A" & Son).SpecialCells(xlCellTypeBlanks).EntireRow.Select
End Sub

 

[coşkun79]

Korhan Bey, size de teşekkür ederim. Saygılar