Gönderen Konu: Formülleri Makro İle Yazmak (Okunma sayısı 13611 defa)

drejan62 · « : 22 Mart 2011, 17:37:29 »

Merhabalar,
Formülleri koda nasıl çeviririz acaba,
Örneğin alttaki formülü v hücresine giriyorum.Topla.Çarpım;

=TOPLA.ÇARPIM((G2=G$2:G$20000)*(D2=D$2:D$20000)*(A2=A$2:A$20000)*("ACHTPRYT"=S$2:S$20000))
veya düşeyara için;

=DÜŞEYARA(G2;G:K;5;0)

veya eğersay için;

=EĞERSAY(U:U;U2)formüllerini marko(WorksheetFunction kullanarak) ile nasıl yazarız.
Teşekkürler

Bülent Öztürk · « **Yanıtla #1 :** 23 Mart 2011, 15:30:59 »

Merhaba Ercan Bey.

Topla.Çarpım sanırım makro ile pek olmuyor.

Diğerleri şu şekilde;

Sub Duseyara()
On Error Resume Next
sonuc = WorksheetFunction.VLookup([G2], [G:K], 5, 0)
End Sub

Sub Egersay()
sonuc = WorksheetFunction.CountIf([U:U], [U2])
End Sub

drejan62 · « **Yanıtla #2 :** 23 Mart 2011, 15:56:48 »

Bülent bey çok Teşekkür ederim sağolun

Bülent Öztürk · « **Yanıtla #3 :** 23 Mart 2011, 15:59:00 »

Bülent bey çok teşekkür ederim, sağolun.

Rica ederim. Siz de sağolun.