Aktif Hücrenin Sütun Numarası, A1 de yazılı hücreden küçükse

[baydeniro]

Merhaba arkadaşlar,

Aşağıda bir kod yazmaya çalıştım ama beceremedim. İhtiyacım şöyle ;
A1 hücresinde bir hedef hücre adresi bulunuyor. Diyelim H2 olsun. Bu hedefin Sütun numarası 8. Aktif hücrenin Sütun numarası 8 den küçükse yani A1 de tanımlı hedeften, A2 hücresine 99 yazsın, değilse 88 yazsın.

If Column(ActiveCell) <= Column([A1]) Then

 

[Korhan Ayhan]

Deneyiniz.

Sub TEST()
    If ActiveCell.Column < Range(Range("A1").Value).Column Then
        Range("A2") = 99
    Else
        Range("A2") = 88
    End If
End Sub

 

[baydeniro]

Korhan Ayhan üstadım müthişsin. Çok teşekkür ediyorum. Sağlıcakla kalın.