Soru makro ile isteğe bağlı kilo hesaplatmak

[bycakir]

Arkadaşlar sarı seçili alan formülümün oldugu yer yani benim kilo hesaplabutonuna bastığımda kiloların yazılması gereken yer burada 2 çeşit formül var formülü neye göre ayıracagı ise "e" stununda "ø" işareti görür ise çapta yazılı olan formulun devreye girmesi. Diğer türlü ilk formülün çalışması gerekiyor. Bunu macro üzerinden butona bağlamak istiyorum. Hergün bunun gibi 40 50 adet sipariş açıyorum. İşimi hızlandıracagını düşünüyorum. Şimdidin teşekkür ederim. En alttaki boş olan adet siparişi onu da hesaplasın istediği gibi ben el ile silerim onun içini

örnek dosya ektedir.

 

[bycakir]

güncel.

 

[bycakir]

güncel

 

[YUSUF44]

"Çapta yazılı olan formül" ve "ilk formül" dedikleriniz nedir?

Bu bahsettiğini işlem ne zaman yapılacak, herhangi bir hücrede değişiklik yapınca mı yoksa sadece düğmeye basılınca mı?

 

[Necdet]

"çapta yazan formül" ?

 

[Necdet]

Geç kalmışım

 

[YUSUF44]

Aramızda iki dakikanın lafı mı olur

 

[bycakir]

geldim hocam I satırında formuller var el ile yazdım çap olanda farklı digerinde farklı yazıyor formul

 

[bycakir]

1. resim çap için 2. resim normal ler için

 

[YUSUF44]

Makro yerine aşağıdaki formülü kullansanız olmaz mı?

=EĞER(J7="Ad";"";EĞER(E7="Ø";KYUVARLA((3,14*F7*F7/4)*G7*H7*7,85/1000000;0,5);KYUVARLA(E7*F7*G7*H7*8/1000000;0,5)))

 

[YUSUF44]

Eğer makro ile yapmak isterseniz aşağıdaki makroyu kullanabilirsiniz. Makro A sütunundaki son dolu satıra kadar, I sütununa yukarda verdiğim formülü yazar:

Sub kilo()
son = WorksheetFunction.Max(Cells(Rows.Count, "A").End(3).Row, 7)
For i = 7 To son
    Cells(i, "I").FormulaR1C1 = _
    "=IF(RC[1]=""Ad"","""",IF(RC[-4]=""Ø"",MROUND((3.14*RC[-3]*RC[-3]/4)*RC[-2]*RC[-1]*7.85/1000000,0.5),MROUND(RC[-4]*RC[-3]*RC[-2]*RC[-1]*8/1000000,0.5)))"
Next
End Sub

 

[bycakir]

teşekkur ederim arkadaşlar
ellerinize sağlık son bir soru formulu macroda hesaplatıp direk hücreye rakam yazdıramazmıyız ?

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub kilo()
son = WorksheetFunction.Max(Cells(Rows.Count, "A").End(3).Row, 7)
For i = 7 To son
    If Cells(i, "J") = "ad" Or Cells(i, "J") = "Ad" Or Cells(i, "J") = "aD" Or Cells(i, "J") = "AD" Then
        Cells(i, "I") = ""
    ElseIf Cells(i, "E") = "Ø" Then
        Cells(i, "I") = WorksheetFunction.MRound(3.14 * Cells(i, "F") * Cells(i, "F") / 4 * Cells(i, "G") * Cells(i, "H") * 7.85 / 1000000, 0.5)
    Else
        Cells(i, "I") = WorksheetFunction.MRound(Cells(i, "E") * Cells(i, "F") * Cells(i, "G") * Cells(i, "H") * 8 / 1000000, 0.5)
    End If
Next
End Sub