renge bağlı yatay ve dikey satırların silinmesi

[cagın1]

sayın hocalarım

ekte yer alan dosyamda sadece sarı renkli olan yatay ve dikey satırların kalmasını istiyorum bu mümkünmüdür acaba ?

teşekür ederim

http://s7.dosya.tc/server6/pcd5eo/Kopya_ocak2.xlsx.html

 

[cagın1]

konu güncel dir

 

[cagın1]

konu günceldir

 

[ÖmerBey]

Merhaba,
Sayfanızın yedeğini aldıktan sonra aşağıdaki kodu deneyiniz.

Sub kod()
Application.ScreenUpdating = False
Set kal = Range("A1")
sonsat = Cells(Rows.Count, 1).End(3).Row
sonsut = Cells(1, Columns.Count).End(1).Column
Set alan = Range(Cells(2, 2), Cells(sonsat, sonsut))
For Each hcr In alan.SpecialCells(xlCellTypeConstants, 23)
    If WorksheetFunction.CountIf(alan, hcr) = 1 Then
        Set kal = Union(kal, hcr)
    End If
Next
For a = sonsut To 2 Step -1
    If Intersect(Columns(a), kal) Is Nothing Then
        Columns(a).Delete
    End If
Next
    
For a = sonsat To 2 Step -1
    If Intersect(Rows(a), kal) Is Nothing Then
        Rows(a).Delete
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamam."
End Sub