Çarpma işlemi

[k0081]

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..

 

[kemal turan]

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

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.

=(N5*7,85)*N6

 

[Ömer BARAN]

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.
.

[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]

 

[Merhum İdris SERDAR]

.

Sonuç diye bir ad tanımlaması yapın ve bu tanımlamaya formül olarak,

=EVALUATE(Sheet1!$N5)

yazın.

N7 hücresine:

=Sonuç*N6

formülünü girin.

Buradaki örnek dosyayı inceleyin.

http://www.excelgurusu.com/hucrelerdeki-islemleri-yapmak/


.

 

[k0081]

.

Sonuç diye bir ad tanımlaması yapın ve bu tanımlamaya formül olarak,

=EVALUATE(Sheet1!$N5)

yazın.

N7 hücresine:

=Sonuç*N6

formülünü girin.

Buradaki örnek dosyayı inceleyin.

http://www.excelgurusu.com/hucrelerdeki-islemleri-yapmak/


.

Hocam bunu denedim, olmadı. #AD? hatası alıyorum.

 

[k0081]

Ö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

 

[k0081]

Kemal turan;

Hocam kodu uyguladım ama , sonuç alamadım. hata da vermiyor.

 

[kemal turan]

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.

=(N5*7,85)*N6

N5=10*1500*3000
N6 = 2
N7 = (n5*7,85)*N6

 

[Ömer BARAN]

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.

[N7] = Evaluate("=7.85[COLOR="Blue"][B] * 2 [/B][/COLOR]" & [N5] [B][COLOR="Red"]& "*" & [N6][/COLOR][/B])

 

[k0081]

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.

[N7] = Evaluate("=7.85[COLOR="Blue"][B] * 2 [/B][/COLOR]" & [N5] [B][COLOR="Red"]& "*" & [N6][/COLOR][/B])

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.

 

[k0081]

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.

=(N5*7,85)*N6

N5=10*1500*3000
N6 = 2
N7 = (n5*7,85)*N6

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

 

[Merhum İdris SERDAR]

Hocam bunu denedim, olmadı. #AD? hatası alıyorum.

.


EVALUATE yerine DEĞERBİÇ, Sheet1 yerine Sayfa1 yada sayfa adı herneyse onu yazın.

.

 

[k0081]

İdris SERDAR

Değerbiç isminde bir fonksiyon yok hocam.

 

[Ömer BARAN]

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.
.

 

[Ömer BARAN]

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)
.

[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]

 

[k0081]

Ömer BARAN

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

Teşekkür ediyorum.

 

[Merhum İdris SERDAR]

İdris SERDAR

Değerbiç isminde bir fonksiyon yok hocam.

.

Linkini verdiğim dosyayı incelediniz mi?


.

 

[k0081]

Dörtişlem.xlsm bu dosyayı inceledim

 

[Merhum İdris SERDAR]

Dörtişlem.xlsm bu dosyayı inceledim

.

Verdiğim link buna ait değil. Verdiğim link bu idi.

http://www.excelgurusu.com/hucrelerdeki-islemleri-yapmak/


Ve bu dosyayı inceleyin demiştim.


Hücrelerdeki-İşlemleri-Yapmak.xlsm


.

 

[k0081]

İ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.