Belirli bir Metin içeren sütunu silmek (Dim aranan)

[hadromer]

Merhaba,
fotoğrafta görüldüğü gibi bir dosyam var. Ben "N" ve "Std. Error of Mean" içeren sütunları silmek istiyorum. Aşağıda ki kodu dosyamda aranan değerlere silinmesini istediğim kelimeleri yazınca çalıştıramadım. Yardımcı olabilir misiniz ?

Sub Sil()

    Dim aranan, j As Byte, c As Range, Adr As String, d As Range
   
    aranan = Array("Lower", "Upper")

    For j = 0 To UBound(aranan)
        Set c = Rows(1).Find(aranan(j), , xlValues, xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                If d Is Nothing Then
                    Set d = Columns(c.Column)
                Else
                    Set d = Application.Union(d, Columns(c.Column))
                End If
                Set c = Rows(1).FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    Next j

    Application.ScreenUpdating = False
    If Not d Is Nothing Then d.Delete
   
End Sub

 

[mancubus]

1. satırdaki hücrelerde Lower veya Upper değeri var ise o hücrenin sütununu mu silmek istiyorsunuz?

 

[veyselemre]

Set c = Rows(1).Find(aranan(j), , xlValues, xlWhole)

Koddaki satırda 1. satırda arama yapılıyor, sizin göndermiş olduğunuz resimde arama yapacağınız satır 2 gibi duruyor. Rows(2) olarak deneyin.

 

[hadromer]

Set c = Rows(1).Find(aranan(j), , xlValues, xlWhole)

Koddaki satırda 1. satırda arama yapılıyor, sizin göndermiş olduğunuz resimde arama yapacağınız satır 2 gibi duruyor. Rows(2) olarak deneyin.

çok teşekkür ederim, çalıştı