Toplam Alıp Formül Uygulama.

[ccuneyt13]

=((B2*18/118)-(B2))*(-0,00825) şeklinde bir formülüm var. fakat bu formülü sadece B2 deki değer için uygulaya biliyorum.
İsteğim şu. misal d2 hücresini şeçip makroya atadığım Örnek: ctrl+d kısayoluna bastığımda bana tablomda B sütününda alt altta olan değerlerden istediğim kadarını şeçtirip toplaması ve akabinde bu formülü o şeçtiğim değerlerin toplamına uygulaması.


Katkısı olan, olmayan herkese şimdiden teşekkürlerimi sunarım.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
[d2] = ((Range(RefEdit1) * 18 / 118) - Range(RefEdit1)) * (-0.00825)
End Sub

 

[ccuneyt13]

Private Sub CommandButton1_Click()
[d2] = ((Range(RefEdit1) * 18 / 118) - Range(RefEdit1)) * (-0.00825)
End Sub

Sayın hocam makronun ne demek olduğunu bu forumdan öğrenmiş biri olarak cahilliğimi mazur görün resimdeki gibi hata alıyorum anladığım kadarıyla CommandButton1_Click yerine bişi yazmam gerekiyor diye düşünüyorum. sizin uygun göreceğiniz bi makro kısayolluyla nasıl yazmam gerektiğini açıklaya bilirseniz minnettar kalırım.

 

[ccuneyt13]

sanırım yanlış anlattım isteğim sadece D2 de bunu yapmak değil. Herhangi bir hücreyi şeçip x makrosunu çalıştır dediğimde bana genel toplamı almam için hücre şeçtirecek. Misal b2, b3, b4 şeçecem ben bunların da toplamı 100 olsun. bu 100 rakamını alacak =((Bulduğu Değer yani 100*18/118)-Bulduğu Değer yani 100))*(-0,00825) formülünü uygulayacak.

Yani ben makroya 100 diye değer verince makroyu çalıştırdığım hücreye işlem sonucu olarak 0,70 yazacak.

 

[ccuneyt13]

:frown: yokmudur bir yolu acaba :S

 

[Ömer]

:frown: yokmudur bir yolu acaba :S

Merhaba,

Bu şekilde deneyiniz.

Sub Hesapla()
 
    Dim sor As String
 
    sor = InputBox("Dğer Girin", "Hesaplama")
 
    If IsNumeric(sor) = False Then MsgBox "Sayı Seçin": Exit Sub
 
    ActiveCell = ((sor * 18 / 118) - sor) * -0.00825
 
End Sub

.

 

[ccuneyt13]

Merhaba,

Bu şekilde deneyiniz.

Sub Hesapla()
 
    Dim sor As String
 
    sor = InputBox("Dğer Girin", "Hesaplama")
 
    If IsNumeric(sor) = False Then MsgBox "Sayı Seçin": Exit Sub
 
    ActiveCell = ((sor * 18 / 118) - sor) * -0.00825
 
End Sub

.

Ömer Bey süper. tek bişi sorucam değer girin yerine hani Otomatik Toplama bastığımızdaki gibi mouse la toplamını almak isteğim sütünları bana şeçtirmesini sağlayabilirmiyiz. bu haliylede muhteşem olmuş çok teşekkür ediyorum elinize kolunuza sağlık.

 

[Ömer]

sor yazan bölüme fare ile seçtiğiniz alanın toplamını mı yazdırmak istiyorsunuz?

.

 

[ccuneyt13]

sor yazan bölüme fare ile seçtiğiniz alanın toplamını mı yazdırmak istiyorsunuz?

.

Efendim makroyu çalıştırdığım da değer girin penceresi geliyor ya oraya yazdığım değer misal 3 hücrenin toplamını yazmam gerekiyor. ufak rakamlarda yazılırda, yeri geliyor milyarlık rakam yazıyorum. Değer girin yerine toplamını alcağım hücreleri şeçtirse? mümkünmüdür?

 

[Ömer]

Efendim makroyu çalıştırdığım da değer girin penceresi geliyor ya oraya yazdığım değer misal 3 hücrenin toplamını yazmam gerekiyor. ufak rakamlarda yazılırda, yeri geliyor milyarlık rakam yazıyorum. Değer girin yerine toplamını alcağım hücreleri şeçtirse? mümkünmüdür?

Bu şekilde deneyiniz. Bitişik olmayan hücreleri seçmek için ctrl tuşuna basılı tutarak hücre seçebilirsiniz.

Sub Hesapla()
 
    Dim alan As Range, topla As Double
 
    On Error Resume Next
    Application.DisplayAlerts = False
 
    Set alan = Application.InputBox("Alan Secin", "Hesaplama", Type:=8)
 
    If alan Is Nothing Then Exit Sub
 
    topla = Evaluate("=Sum(" & alan.Address & ")")
 
    ActiveCell = ((topla * 18 / 118) - topla) * -0.00825
 
    Application.DisplayAlerts = True
 
End Sub

.

 

[ccuneyt13]

Bu şekilde deneyiniz. Bitişik olmayan hücreler seçmek için ctrl tuşuna basılı tutarak hücre seçebilirsiniz..

Ömer bey başta size ve diğer tüm uzman arkadaşlara bir kez daha teşekkürler. Saolun varolun.