Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: drejan62 - 22 Mart 2011, 17:37:29

Başlık: Formülleri Makro İle Yazmak
Gönderen: 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;

Kod: [Seç]

=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;

Kod: [Seç]

=DÜŞEYARA(G2;G:K;5;0)
veya eğersay için;

Kod: [Seç]

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

Başlık: Ynt: Formülleri Makro İle Yazmak
Gönderen: Bülent Öztürk - 23 Mart 2011, 15:30:59

Merhaba Ercan Bey.

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

Diğerleri şu şekilde;

Kod: [Seç]

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

Kod: [Seç]

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

Başlık: Ynt: Formülleri Makro İle Yazmak
Gönderen: drejan62 - 23 Mart 2011, 15:56:48

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

Başlık: Ynt: Formülleri Makro İle Yazmak
Gönderen: Bülent Öztürk - 23 Mart 2011, 15:59:00

Alıntı yapılan: drejan62 - 23 Mart 2011, 15:56:48

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

Rica ederim. Siz de sağolun.