• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

belirli renkte olan satırları silme

Katılım
31 Ekim 2011
Mesajlar
31
Excel Vers. ve Dili
2007 Türkçe
Selam,

Bu konu hakkında yazılanları inceledim ama anlayamadım daha doğrusu kendi dosyama uyarlayamadım.

120 sayfalık ve hatta gittikçe artan excel dosyam var bazı satırlar sarı renkte.
Bu sarı renkli satırları toplu olarak nasıl silebilirim.

Yardımınızı bekliyorum.
 
pardon arkadaşlar ben o şekilde düşünemedim.
burada hazırlanmış olan örnek dosyadan kod çektim.
ama aynı renk olanları silmek değilde aynı isimde başlayanları sildirdim yani renk hala anlatılabilir:)
 
Merhaba,

Aşağıdaki kodu kullanarak çalışma kitabınızdaki tüm sayfalarda "A" sütununa göre dolu satırlardan sarı renkli olan satırlar komple silebilirsiniz.

Sorgular "A" sütununa ve dolu hücrelere göre yapılmıştır. İhtiyaca göre değiştirebilirsiniz.

Kod:
Option Explicit
 
Sub SAYFALARDA_SARI_RENKLİ_SATIRLARI_SİL()
    Dim SAYFA As Worksheet, X As Long
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    For Each SAYFA In ThisWorkbook.Worksheets
        With SAYFA
            For X = .Cells(Rows.Count, "A").End(3).Row To 1 Step -1
                If .Cells(X, "A").Interior.ColorIndex = 6 Then
                   .Rows(X).Delete
                End If
            Next
        End With
    Next
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Geri
Üst