Makro ile çarpma işlemi

[unfors]

Sheets("ÜRÜN_MALİYET_FORMU").Range("K1:K2000").Formula = Format(Sheets("ÜRÜN_MALİYET_FORMU").Range("I1:I2000") * Sheets("ÜRÜN_MALİYET_FORMU").Range("J1:J2000"))

"ÜRÜN_MALİYET_FORMU" sayfasında "I" ve "J" sütunlarındaki değerleri çarpıp "K" sütununda aynı satıra yazacak bir formüle ihtiyacım var. Yukarı oluşturmaya çalıştım ama hata veriyor. Makro kodu başka sayfadan çalışacak. Yardımcı olursanız çok sevinirim.

 

[Muzaffer Ali]

Kodları inceleyin.

Sub Carp()
    Dim Bak As Long
    For Bak = 1 To 2000
        With Worksheets("ÜRÜN_MALİYET_FORMU")
            .Cells(Bak, "K").Value = Cells(Bak, "J").Value * Cells(Bak, "I").Value
        End With
    Next
End Sub

 

[unfors]

Teşekkür ederim. Çok faydalı oldu

 

[Korhan Ayhan]

Döngü yerine işlemi tek hamlede yapabilirsiniz.

Alternatif;

Sub MAKRO()
    With Sheets("ÜRÜN_MALİYET_FORMU").Range("K1:K2000")
        .Formula = "=ÜRÜN_MALİYET_FORMU!I1*ÜRÜN_MALİYET_FORMU!J1"
        .Value = .Value
    End With
End Sub

 

[cemshan]

Döngü yerine işlemi tek hamlede yapabilirsiniz.

Alternatif;

Sub MAKRO()
    With Sheets("ÜRÜN_MALİYET_FORMU").Range("K1:K2000")
        .Formula = "=ÜRÜN_MALİYET_FORMU!I1*ÜRÜN_MALİYET_FORMU!J1"
        .Value = .Value
    End With
End Sub

Bu koda eğer hata Boş nasıl ekleye biliriz ?

 

[Korhan Ayhan]

VBA tarafında (bu yapıda) formüller İngilizce yazılıyor. Ayraç olarak ise noktali virgül yerine virgül yazılıyor. Boşluk ifadesi içinse 4 adet çift tırnak yazılıyor.

Bu kurallara uyarak kendinizde ilgili kod satırını revize edebilirsiniz

 

[Korhan Ayhan]

Ek olarak yapamazsaniz linkten formül yazım tekniğini görebilirsiniz.

Formülü macroya çevirme

Merhaba arkadaşlar Aşağıda verdiğim formülü AE sutunu 2 den 2000. satıra kadar nasıl macro olarak kullanabirim. =EĞERHATA(EĞER(P2="Adet";I2;I2/AD2);"")

www.excel.web.tr