ilk satırda kendi belirlediğim verileri içeren sütunları silen makro

[u.L.a.s]

Merhabalar

aşağıdaki linkte bulunan excel dosyada 1. satır başlıkların olduğu satırlar olan bir dosyam var.

bu başlıklardan belirlediğim verileri içeren hücrenin bulunduğu tüm sütunu silecek makro istiyorum.

Yardımlarınızı rica ederim

http://www.dosya.tc/server7/mrk6ky/sutunsil.rar.html

 

[Orion1]

Dosyanız ektedir.

DOSYAYI İNDİR

Private Sub CommandButton1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
 For i = ListBox1.ListCount - 1 To 0 Step -1
    If ListBox1.Selected(i) = True Then Columns(i + 1).Delete
Next i
Call UserForm_Initialize
    
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim sut As Range
ListBox1.Clear
For Each sut In Range("A1:U1")
    ListBox1.AddItem sut
Next
End Sub

 

[u.L.a.s]

Teşekkürler emeğiniz için fakat ben bu şekilde istemiyorum. bu yaptığınız macroda yine bir seçim yaptırıyorsunuz.

ben macronun içine bu verileri gömmek istiyorum.

yani makroda ilk satırda "bbb" "ddd" "eee" "ggg" "hhh" verilerini buluyorsa o verinin bulunduğu hücreye ait sütunu direk kaldırsın. butona basınca bu işlemi tek seferde yapsın.

 

[Orion1]

Teşekkürler emeğiniz için fakat ben bu şekilde istemiyorum. bu yaptığınız macroda yine bir seçim yaptırıyorsunuz.

ben macronun içine bu verileri gömmek istiyorum.

yani makroda ilk satırda "bbb" "ddd" "eee" "ggg" "hhh" verilerini buluyorsa o verinin bulunduğu hücreye ait sütunu direk kaldırsın. butona basınca bu işlemi tek seferde yapsın.

Böylemi olsun.
Ekteki dosyayı inceleyiniz.

DOSYAYI İNDİR

Sub DoluÇerçeve1_Tıklat()
Dim k As Integer
For k = 21 To 1 Step -1
    If Cells(1, k).Value = "bbb" Or Cells(1, k).Value = "ddd" Or Cells(1, k).Value = "eee" _
        Or Cells(1, k).Value = "hhh" Then
        Columns(k).Delete
    End If
Next k
MsgBox "Sütunlar silindi." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[u.L.a.s]

evvvett aynen budur hocam bilgine emeğine sağlık üstadım çok teşekkürler

 

[Orion1]

evvvett aynen budur hocam bilgine emeğine sağlık üstadım çok teşekkürler

Rica ederim.
İyi çalışmalar.