• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Çarpma işlemi

  • Konbuyu başlatan Konbuyu başlatan k0081
  • Başlangıç tarihi Başlangıç tarihi
k0081

k0081

Katılım
17 Haziran 2008
Mesajlar
1,874
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Merhaba arkadaşlar;

N5 hücresine : 10*400*400*7,85
N6 hücresine : 2
N7 hüc. Sonuç= nasıl yazırabilirim. ?


N5 e sadece : 10*400*400 Formatında giriş yapacağım.
7,85 sabittir.

örnekler;

10*1500*3000
12*50*100
15*120*80 gibi..
 
Son düzenleme:
Merhaba,
Aşağıdaki kodu sayfanızın kod bölümüne kopyalayıp yapıştırınız.
Kod "Sayfa2 "olarak kod düzenlenmiştir.Sizin sayfa adınızı yazarak düzenleme yapınız.
N6 hücresine veri girdiğinizde N5 e yazdığınız çarpım sonucuna sabit 7,85 i ekler N6 hücresi ile çarpar N7 hücresine sonuç yazar.
kolay gelsin


Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
     
    If Intersect(Target, Sheets("SAYFA2").Range("N6")) Is Nothing Then Exit Sub
    Sheets("SAYFA2").Range("N7").Value = Format(CDbl(Sheets("SAYFA2").Range("N5").Value), "#,##0.00") * (7.85) * Format(CDbl(Sheets("SAYFA2").Range("N6").Value), "#,##0.00")
    Application.ScreenUpdating = False
End Sub

veya fonksiyon olarak N7 hücresine aşağıdaki formülü giriniz.
Kod: 
=(N5*7,85)*N6
 
Merhaba.

Sorunuz çok net değil sanırım.
-- Sadece N5 hücresine mi değer yazacaksanız?
-- N6'ya yazılacak/yazacağınız 2 sayısının işlevi anlaşılmıyor.

Sadece N5'e veri yazıp N7'ye sonuç alacaksanız aşağıdaki kod işinizi görecektir.
Kod'u sayfanın kod bölümüne uygulayın.
Alt taraftan, uygulama istediğiniz sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçerek sayfanın kod bölümüne ulaşabilirsiniz.
N6'ya yazacağınız değer de çarpmaya dahil olacaksa aşağıdaki kod'da = işaretinden sonra [N6]* eklemeniz yeterli olacaktır.
.
Kod: 
[FONT="Arial Narrow"][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="Blue"]N6[/COLOR][/B]]) Is Nothing Then Exit Sub
    [[B][COLOR="blue"]N7[/COLOR][/B]] = 7.85 * (Split(Target, "*")(0)) * (Split(Target, "*")(1)) * (Split(Target, "*")(2))
[B]End Sub[/B][/FONT]
 
Ömer BARAN;

Hocam evet; sadece N5 değer gireceğim. N6 ya da çarpan değeri gireceğim... 2 ,3 ,4 vs..

verdiğiniz kodu uyguladım. Fakat olmadı.

amacım : 10*1500*3000 yazdığımda, sonuç hücresine : 706500000 yazdırmak.


işlemler;
10*1500*3000=45000000

45000000*7,85=353250000

353250000*2= 706500000
 
Son düzenleme:
Kemal turan;

Hocam kodu uyguladım ama , sonuç alamadım. hata da vermiyor.
 
merhaba
N7 hücresine aşağıdaki kod da sorun görünmüyor
en son mesajınızdaki bilgilerden istediğiniz sonucu aldım.

Kod: 
=(N5*7,85)*N6
N5=10*1500*3000
N6 = 2
N7 = (n5*7,85)*N6
 
Merhaba.
Önceki cevabım da işinizi görürdü bu da alternatif olsun.

(Verdiğim koddaki End Sub satırının üstündeki satırın yerine bunu kullanın)
2 sayısını N6'ya yazdığınızı düşündüm.
2 Sayısı da sabit ise mavi kısmı ekleyin, kırmızı kısmı silin.
Kod: 
[N7] = Evaluate("=7.85[COLOR="Blue"][B] * 2 [/B][/COLOR]" & [N5] [B][COLOR="Red"]& "*" & [N6][/COLOR][/B])
 
Ömer BARAN' Alıntı:
Merhaba.
Önceki cevabım da işinizi görürdü bu da alternatif olsun.

(Verdiğim koddaki End Sub satırının üstündeki satırın yerine bunu kullanın)
2 sayısını N6'ya yazdığınızı düşündüm.
2 Sayısı da sabit ise mavi kısmı ekleyin, kırmızı kısmı silin.
Kod: 
[N7] = Evaluate("=7.85[COLOR="Blue"][B] * 2 [/B][/COLOR]" & [N5] [B][COLOR="Red"]& "*" & [N6][/COLOR][/B])
Genişletmek için tıkla ...

Hocam önceki kodda, bu gönderdiğiniz kodda , şu an işlem yapmıyor. tabloyu ekleyebilirim isterseniz. ?

2 sabit değil. değişken

#DEĞER! hatası alıyorum.
 
Son düzenleme:
kemal turan' Alıntı:
merhaba
N7 hücresine aşağıdaki kod da sorun görünmüyor
en son mesajınızdaki bilgilerden istediğiniz sonucu aldım.

Kod: 
=(N5*7,85)*N6
N5=10*1500*3000
N6 = 2
N7 = (n5*7,85)*N6
Genişletmek için tıkla ...


Peki hocam; N5 e 10*1500*3000 şeklinde mi yazdınız ?
 
İdris SERDAR

Değerbiç isminde bir fonksiyon yok hocam.
 
Tekrar merhaba.

İşte tam da bu nedenlerle, cevaplarımın altındaki İMZA bölümünde;
soruların, "gerçek belgeyle aynı yapıda örnek belge" ile desteklenmesini tavsiye ediyorum.

Oluşturduğum bir belgede deneme yapmadan cevap yazdığım pek nadirdir ve
verdiğim her iki kod ile de olumlu sonuç alıyorum.

Örnek belge olmayınca, çözümü kolay olan sorular için bile çok sayıda mesajlaşma zorunlu hale geliyor ve
pek çok kez de önerilen çözümler gerçek belgelere uygulandığında sorunla karşılaşılıyor.

Sorunuzu, gerçek belgenizle aynı yapıda bir örnek belgeyle destekleyiniz.
.
 
Tekrar merhaba.

Bu arada 3 numaralı cevapta verdiğim kod'da If Intersect(Ta.... satırında yaptığım hatayı fark ettim.
(mavi satırlardan herhangi birini silin ve diğerini kullanın)
.
Kod: 
[FONT="Arial Narrow"][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="Red"]N5[/COLOR][/B]]) Is Nothing Then Exit Sub
[COLOR="Blue"]    [N7] = [N6] * 7.85 * (Split(Target, "*")(0)) * (Split(Target, "*")(1)) * (Split(Target, "*")(2))
    [N7] = Evaluate("=7.85 * " & [N5] & "*" & [N6])[/COLOR]
[B]End Sub[/B][/FONT]
 
Ömer BARAN

Hocam tamamdır.. son göndermiş olduğunuz kod ile istediğim sonucu aldım.

Teşekkür ediyorum.
 
Dörtişlem.xlsm bu dosyayı inceledim
 
İdris SERDAR;


Dosyayı inceledim. bu tabloda istediğim sonucu aldım. Yalnız bu tablonun nasıl oluşturulduğunu, daha doğrusu top_1 fonksiyonunu nasıl yazdığınızı göremedim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst