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

bycakir

Altın Üye
Katılım
1 Aralık 2017
Mesajlar
220
Excel Vers. ve Dili
Microsoft Office 365 ProPlus
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.
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
"Ç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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,181
Excel Vers. ve Dili
Ofis 365 Türkçe
"çapta yazan formül" ?
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Aramızda iki dakikanın lafı mı olur :)
 

bycakir

Altın Üye
Katılım
1 Aralık 2017
Mesajlar
220
Excel Vers. ve Dili
Microsoft Office 365 ProPlus
geldim hocam I satırında formuller var el ile yazdım çap olanda farklı digerinde farklı yazıyor formul
 

bycakir

Altın Üye
Katılım
1 Aralık 2017
Mesajlar
220
Excel Vers. ve Dili
Microsoft Office 365 ProPlus
çap.JPGnormal.JPG

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

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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:

PHP:
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

Altın Üye
Katılım
1 Aralık 2017
Mesajlar
220
Excel Vers. ve Dili
Microsoft Office 365 ProPlus
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Aşağıdaki makroyu deneyiniz:

PHP:
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
 
Üst