Toplam Alanını Hücreden Belirlemek

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki makro kodunda alanı O1 hücresinden belirlemek için kodu nasıl değiştirmek lazım ?

=BAĞ_DEĞ_DOLU_SAY(M244:M253)

 

[Ömer]

Merhaba,

Formül demek istediniz sanırım.

=bağ_değ_dolu_say(dolaylı(o1))

İstediğiniz bu mu?

.

 

[baydeniro]

Sayın Ömer, Çok özür dilerim, kodu hücredeki hali ile yazmışım. Makro kodu hali şöyle :

Range("P1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R[243]C[-3]:R[252]C[-3])"

Söz konusu alanı makro kodunda O1 hücresinden almasını sağlamaya çalışıyorum.

 

[baydeniro]

Çok sağolun sayın Ömer, çözümü sayenizde buldum. Şöyle olacak :

Range("P1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(INDIRECT(RC[-1]))"

 

[Ömer]

ActiveCell.Formula = "=COUNTA(INDIRECT(O1))"

Bu şekilde deneyiniz.

 

[baydeniro]

Çok çok teşekkür ederim sayın Ömer

 

[Ömer]

Rica ederim, iyi çalışmalar.

 

[baydeniro]

Sayın Ömer aşağıdaki kod hücreye formül olarak geliyor. Sonucu değer olarka getirmesi nasıl sağlanır :

ActiveCell = "=INT(MAX(INDIRECT(R1)))+1"