IF…Then

Kodun hangi yönde ilerleyeceğini belirlemenizi sağlar

VE, YA DA koşul sorgulamalarını kullanabilirsiniz.

VE (And): tüm koşullar doğru olması gerekir

YA DA (Or): koşullardan herhangi birinin doğru olması yeterlidir.

Örnek:

'Eğer B3 hücresi boş değişse
If Range("B3").Value <> "" Then Range("C3").Value = Range("B3").Value

Not: Eğer kod tek bir satırdan oluuyorsa End If kullanmaya gerek yoktur.

Örnek:

'Eğer B4 hücresi 0’dan büyük ve 200’den küçük eşitse
If Range("B4").Value > 0 And Range("B4").Value <= 200 Then
    Range("C4").Value = Range("B4").Value
End If

For Each ve IF…Then kullanımı

Örnek:

Sub makro()
    
    Dim sh As Worksheet
    
    For Each sh In ThisWorkbook.Worksheets        
        If sh.Name = "ürünler" Then           
            'ürünler sayfasına tam koruma yap          
            sh.Protect "1234"           
        ElseIf sh.CodeName = "Sayfa2" Then            
            'Kod adı Sayfa2 işe birşey yapma            
        Else           
            'diğer tüm sayfaları sadece biçimlendirmeye izin vererek koru          
            sh.Protect "1234", , , , , True, True, True          
        End If       
    Next sh  
End Sub

Sub Sayim()
    
    Dim hucre As Range
    Dim Say As Long
    
    For Each hucre In ActiveSheet.UsedRange
        If hucre.HasFormula Then
            Say = Say + 1
        End If
    Next hucre
    
    Range("A2").Value = Say
    MsgBox "Bu sayfada " & Say & " adet formül içeren hücre var"
    
End Sub