Hesap Makinesi Ve Ekle Butonu

[ShodoW]

Merhabalar arkadaşlar;

Macro uygulamasına yeni başladığımdan kendi çapımda deneme niteliğinde öğrenmek için iki macro oluşturdum ama bazı takıldığım noktalar var dosyada takıldığım noktaları ilgilerinize sunarım.Yardımlarınız için şimdiden teşekkür ederim.

 

[fedeal]

sayfaya altalta kaydetmek için,

Private Sub CommandButton1_Click()
s = Sheets("sheet1").Range("A65536").End(xlUp).Row + 1
Sheets("sheet1").Range("a" & s) = TextBox1
Sheets("sheet1").Range("b" & s) = TextBox3
Sheets("sheet1").Range("c" & s) = TextBox2
End Sub

kullanabilirsiniz.s değişkenine ilk boş satır numarasını tanımlıyoruz. bu satır numarasına(vebelirttigimiz sütuna) textboxların içeriklerini yolluyoruz.
2.sayfaya yollamak için sayfa ismini değiştirin.
hesapmakinasıyla ilgili olarakta
Private Sub CommandButton4_Click()
TextBox3 = Val(TextBox1) - Val(TextBox2)
End Sub
val küsuratlı değerleri tam sayı olarak hesaplar cdbl kullanın.
daha açıklamalı örnegi vaktim müsait olunca eklerim iyi çalışmalar.

 

[fedeal]

Sizin için bir hesap makinası örnegi yaptım m+ m- mr mc işlevlerini fazla bilmedigim için bildigim kadar yaptım.inceleyin kodlarda anlamadıgınız yerleri sorun iyi çalışmalar.

 

[ShodoW]

Elınıze Saglık

Merhaba Sn, Fedeal,

Ellerınıze saglık baya bı emek harcamıssınız cok tesekkur edıyorum kodların hepsını tek tek ıncelıcegım emınım bır suru soru cıkıcak bundan )

Sabrınız ve ılgınız ıcın tesekkur edıyorum

 

[izcik]

Değerli fedeal; hevesle baktım fakat M+ M- MR gibi hafıza özellikleri bozuk olarak çalışıyor.

 

[izcik]

Pardon sadece M+ bozuk .

% hesabıyla M- yi de denedim hata veiryor..

 

[baydeniro]

Teşekkürler sayın fedeal. İlginç bir çalışma

 

[fedeal]

Değerli fedeal; hevesle baktım fakat M+ M- MR gibi hafıza özellikleri bozuk olarak çalışıyor.

aslında bozuk demeyelim belirtmiştim çalışma prensibini tam bilmedigim için yanlıştır.çalışma prensibini anlatırsanız yapabilirim belki.

 

[fedeal]

Teşekkürler sayın fedeal. İlginç bir çalışma

ricaederim kısa sürede örnek olsun diye yapmıştım windowsun hesap makinası oldugundan çok gerekli bir çalışma degil belki hesaplama kodları arkadaşlara lazım olur.saygılar.

 

[fedeal]

Pardon sadece M+ bozuk .

% hesabıyla M- yi de denedim hata veiryor..

% hesabı 1200 liranın örnegin yüzde 10'unu alırsak 1200*10 % tuşu kombinasyonuyla hesaplıyor baktım hata vermiyor.

 

[fedeal]

m+ hesaplamasını
örnegin 12*2=24 m+ basıyoruz
12*5=60 m+ basıyoruz
mr tuşuna basınca toplam sonuçlarını veriyor. yani 84 m- ise çıkararak yapıyor mc ise hafızadakini siliyor. mantık doğruysa dosyayı güncelledim kontrol edin değilse mantıgını anlatan olursa sevinirim.

sayfayada kullanım için sayfalarda maussağ clikiyle açılıyor sayfaya ekle butonu sayesinde dilerseniz hesaplama sonucunu sayfaya aktarabiliyorsunuz.

 

[izcik]

Değerli fedeal dosya galiba boş hesap makinesi görünmüyor..

 

[fedeal]

Değerli fedeal dosya galiba boş hesap makinesi görünmüyor..

Hayır dosya üzerinde sağ tıklamaya almıştım.

sayfayada kullanım için sayfalarda maussağ clikiyle açılıyor sayfaya ekle butonu sayesinde dilerseniz hesaplama sonucunu sayfaya aktarabiliyorsunuz.

 

[mustafakoker]

Tesekkurler guzel bır çalışma olmuş

 

[mylife]

Arkadaşlar bana bir konuda yardımcı olursanız sevinirim
iki farklı sayfadaki sütundaki değerleri koşullu olarak tek bir hücrede nasıl toplayabilir veya çıkarabilirim?

 

[mylife]

Farklı İki Sayfadaki değerleri toplama

İki farklı sayfadaki sütun değerleri nasıl bir başka sayfadaki hürede toplayabilirim

 

[fedeal]

İki farklı sayfadaki sütun değerleri nasıl bir başka sayfadaki hürede toplayabilirim

Merhaba,
koşulların açıklamaları olan bir örnek dosyayla yeni konu açarak sorun yardımcı olunacaktır.