Makro Sub or Function hatasi

[Eda_mavi122223]

Arkadaşlar selam
Aşağıdaki makro kodunu yazdım ama gün layinca Sub or Function Hatasi alıyorum.

**Amacım G sütununda tüm şube yazıyorsa T, B=G sütünü ise P, hiçbirisi ise A yazdırmak H sütununda karşılık gelen satıra.
-----------------------------
Sub detayBul()



If (Range(Column("G2:G42")) = "Tüm Şubeler") Then

Range(Column("H2:H42")) = "T"



ElseIf (Range(Column("G2:G42"))) = (Range(Column("B2:B42"))) Then

Range(Column("H2:H42")) = "P"



Else

Range(Column("H2:H42")) = "A"



End If

 

[Necdet]

Merhaba,

 (Range(Column("G2:G42"))

Böyle bir kullanım söz konusu değil.

Ancak döngü ile yapabilirsiniz.

For i = 2 To Cells(Rows.Count, "G").End(3).Row

    If Cells(i, "G") = "tüm Şubeler" Then
        Cells(i, "H") = T
    ElseIf Cells(i, "G") = Cells(i, "B") Then
        Cells(i, "H") = "P"
    Else
        Cells(i, "H") = "A"
    End If
    
Next i

Gibi olabilir. Tabi mantık hatası var mı onu bilemem.