Koşullu Biçimlendirme Kodunu Makroya Geçirme

[leylabalse]

Merhaba.

Aşağıdaki kodlardan 1.cisini G sütununu seçip koşullu biçimlendirmeye tıklayıp "Yeni Kural+Biçimlendirilecek hücreleri kullanmak için formül kullan" deyip çalıştırıyorum.

2.sini H sütununu seçip koşullu biçimlendirmeye tıklayıp "Yeni Kural+Biçimlendirilecek hücreleri kullanmak için formül kullan" deyip çalıştırıyorum.

Bunu sürekli demek yerine makroya geçirebilir miyiz? Bir de değişken atayarak aşağıdaki G ve H harfleri yerine istediğimiz harfleri yazabilir miyiz?

Herkese hayırlı ramazanlar dilerim.

=VE(G1<>"";ÇOKEĞERSAY(H:H;G1)>=ÇOKEĞERSAY(G$1:G1;G1))
=VE(H1<>"";ÇOKEĞERSAY(G:G;H1)>=ÇOKEĞERSAY(H$1:H1;H1))

 

[Greenblacksea53]

Sub KosulluBicimlendirme()
    Dim kolon1 As String, kolon2 As String
    Dim kural1 As String, kural2 As String
    
    kolon1 = InputBox("İlk sütunu girin (örneğin G)", "Sütun seçimi")
    kolon2 = InputBox("İkinci sütunu girin (örneğin H)", "Sütun seçimi")
    
    kural1 = "=AND(" & kolon1 & "1<>""""," & "COUNTIF(" & kolon2 & ":" & kolon2 & "," & kolon1 & "1)>=COUNTIF(" & kolon1 & "$1:" & kolon1 & "1," & kolon1 & "1))"
    kural2 = "=AND(" & kolon2 & "1<>""""," & "COUNTIF(" & kolon1 & ":" & kolon1 & "," & kolon2 & "1)>=COUNTIF(" & kolon2 & "$1:" & kolon2 & "1," & kolon2 & "1))"
    
    Range(kolon1 & ":" & kolon2).FormatConditions.Delete 'öncelikle varsa mevcut koşullu biçimlendirme kaldırılır
    
    Range(kolon1 & ":" & kolon2).FormatConditions.Add xlExpression, , kural1
    Range(kolon1 & ":" & kolon2).FormatConditions(1).Interior.ColorIndex = 4
    
    Range(kolon2 & ":" & kolon1).FormatConditions.Add xlExpression, , kural2
    Range(kolon2 & ":" & kolon1).FormatConditions(1).Interior.ColorIndex = 4
End Sub

Denermisin ?

 

[leylabalse]

Invalid Procedure call or argument hatası ve debug tuşuna bastığımda bu çıktı