Birden fazla formül içeren makro

[BONZAİ]

Değerli arkadaşlar,

Makro konusunda yeterli bilgim yok. Kendi çapımda birşeyler yapmaya çalışıyorum. Aşağıda yeralan formülün makrosuna ihtiyacım var. Ben parça parça bazılarını yapabiliyorum fakat tamamını beceremedim.

Yardımlarınız için şimdiden çok teşekkürler...

=EĞER($A$1=0;0;EĞER(EHATALIYSA(MBUL("Adet";F13));0;AŞAĞIYUVARLA(((A13-B13-C13-D13-E13)/$A$1);0)))

 

[İhsan Tank]

bu formül ne iş görüyor biraz anlatır mısınız
örnek dosya ekleseniz daha iyi olurdu bir bakıma

 

[BONZAİ]

İhsan Bey,

Ana dosya daha kapsamlı fakat size mantığını basıt olarak anlatmaya çalışayım. Örneğin 20.000 m2 bir alan var bu alana 100 m2 lik 200 adet 1+1 yapılabilir. Fakat ekteki örnekteki diğer daire tiplerinin yapılması öngörüldüğünde kalan m2 ile kaç adet 1+1 daire yapılabilir?

Teşekkürler, iyi çalışmalar...

 

[İhsan Tank]

İhsan Bey,

Ana dosya daha kapsamlı fakat size mantığını basıt olarak anlatmaya çalışayım. Örneğin 20.000 m2 bir alan var bu alana 100 m2 lik 200 adet 1+1 yapılabilir. Fakat ekteki örnekteki diğer daire tiplerinin yapılması öngörüldüğünde kalan m2 ile kaç adet 1+1 daire yapılabilir?

Teşekkürler, iyi çalışmalar...

merhaba
boş bir module kopyalayın ve deneyin

Option Explicit
Sub formül()
Dim ts, kaplan
kaplan = MsgBox("Sonuçları Çıkarıyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
For ts = 13 To Cells(65536, "A").End(xlUp).Row
If Range("A1") = 0 Then
Cells(ts, "H") = 0
ElseIf Cells(ts, "F") <> "Adet" Then
Cells(ts, "H") = 0
Else
Cells(ts, "H") = WorksheetFunction.RoundDown((Cells(ts, "A") - _
Cells(ts, "B") - Cells(ts, "C") - Cells(ts, "D") - Cells(ts, "E")) / Range("A1"), 0)
End If
Next
MsgBox "Sonuçları Çıkarttım", vbInformation, "Bitiş"
End Sub

 

[BONZAİ]

Yardımlarınız için çok teşşekkür ederim...

İyi çalışmalar...

 

[İhsan Tank]

Yardımlarınız için çok teşşekkür ederim...

İyi çalışmalar...

rica ederim
:yazici: