Multiple Or Statement

[mmertt900]

Hi Everyone,

I'm having a truoble to solve my below problem. I need your advise.
I have a table like below first rows as header. And what I want to do is create a macro that helps me to find columns doesn't match my conditions and to be deleted. But my below code doesn't work. Aren't we allowed to use multiple Or statement ? Thanks in advance for your help.

A1	B1	C1
Müşteri Adı	20	Name

Dim i as integer

For i = 1 To 30

    If Range("A1").Offset(0, i).Value <> "Müşteri Adı" Or "20" Or "40" Or "TR." Or "S. Liman" Or "T.Kilo" Then
    Columns(i + 1).Delete
    End If
Next i

 

[JamesCanale]

try:

If Range("A1").Offset(0, i).Value <> "Müşteri Adı" Or Range("A1").Offset(0, i).Value <>"20" Or Range("A1").Offset(0, i).Value <> "40" Or Range("A1").Offset(0, i).Value <>"TR." Or "S. Liman" OrRange("A1").Offset(0, i).Value <> "T.Kilo" Then

and you might go 30 to 1 step -1

 

[dmt32]

Hi,
when checking multiple values you may find it easier to place them in an array & check the cell value against it
Also, when deleting rows / columns in manner you are better to do it in reverse

Untested but see if this update to your code helps

Sub DeleteColumns()
    Dim i       As Integer
    Dim arr     As Variant, m As Variant
    
    arr = Array("Müsteri Adi", 20, 40, "TR.", "S. Liman", "T.Kilo")
    
    For i = 30 To 1 Step -1
        m = Application.Match(Cells(1, i).Value, arr, 0)
        If IsError(m) Then Columns(i).Delete
    Next i
    
End Sub

Hope Helpful

Dave

 

[mmertt900]

Hi,
when checking multiple values you may find it easier to place them in an array & check the cell value against it
Also, when deleting rows / columns in manner you are better to do it in reverse

Untested but see if this update to your code helps

Sub DeleteColumns()
    Dim i       As Integer
    Dim arr     As Variant, m As Variant
   
    arr = Array("Müsteri Adi", 20, 40, "TR.", "S. Liman", "T.Kilo")
   
    For i = 30 To 1 Step -1
        m = Application.Match(Cells(1, i).Value, arr, 0)
        If IsError(m) Then Columns(i).Delete
    Next i
   
End Sub

Hope Helpful

Dave

Thank you very much. İt works perfecly. I've been trying improve my vba skills but array is hard to learn. I don't know why

 

[dmt32]

You are welcome and thanks for feedback we appreciate it

Dave