Hücreye Bağ_Değ_Dolu_Say makrosu atama

[akayaloglu]

Merhaba aşağıdaki makroda Sayfa1.Range("I5").Value yerine EĞER(Sayfa1!K$5="";"";BAĞ_DEĞ_DOLU_SAY(Sayfa2!$Q$1:Q1)) formülünü atamak istiyorum ama işin içinden çıkamadım yardımcı olursanız sevinirim. Şimdiden yardımlar için çok teşekkürler

Dim dcc As Long
Dim abc As Worksheet
Set abc = Sayfa2

dcc = Sayfa2.Range("B" & Rows.Count).End(xlUp).Row
With abc
.Cells(dcc + 1, 1).Value = Sayfa1.Range("I5").Value

 

[Korhan Ayhan]

Umarım doğru anlamışımdır.

.Cells(dcc + 1, 1).Formula = "=IF(Sayfa1!K$5="""","""",COUNTA(Sayfa2!$Q$1:Q1))"