Hücre dolu ise toplama yap

[zulfuernek]

g ve h hücrelerinde tutar yazılı.

g veya h hücresinde tutar dolu ise g ve h hücresindeki değerleri ı hücresine topla

saygılar

 

[magnesia]

I1 hücresine yazacağınız,

=EĞER(G1="";"";G1+H1)

formülü işinizi görür umarım.
Bu formülü aşağıya doğru çekersiniz.

 

[zulfuernek]

Bunun bana makro kodu lazım hocam.

 

[magnesia]

Makro bilgim yok maalesef.. Yardımcı olacak arkadaş var mutlaka..

 

[zulfuernek]

teşekkür ederim magnesia hocam

 

[Ziynettin]

Deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 7 Or Target.Column = 8 Then
    If Target.Column = 7 Then sut = 1
    If Target.Column = 8 Then sut = -1
    sat = Target.Row
    Cells(sat, "I") = Target + Target.Offset(, sut)
End If
End Sub

 

[zulfuernek]

yukarıdaki kod işlem yapmıyor nasıl bir düzeltme yapılır.?

 

[byfika]

yukarıdaki kod işlem yapmıyor nasıl bir düzeltme yapılır.?

Merhabalar, Ziynettin Beyin verdiği kod örnek dosyada denendi ve çalışmakta,
Dosyayı inceler misiniz?
İyi çalışmalar

 

[zulfuernek]

benim daha önceki yaptığım userformdada çalışıyordu diye hatırlıyorum ancak commandbutton komutuna bu kodu ekleyince işlem yapomıyor. sebeb nedir acaba. daha önceki de command buttondaydı? ekli dosya indiremiyorum altın üye olmadığım için

 

[byfika]

benim daha önceki yaptığım userformdada çalışıyordu diye hatırlıyorum ancak commandbutton komutuna bu kodu ekleyince işlem yapomıyor. sebeb nedir acaba. daha önceki de command buttondaydı? ekli dosya indiremiyorum altın üye olmadığım için

Verilen koddu sayfanın kod bölümüne kaydedin, commandbuttona bağlamadan veri girdikçe çalışmakta.
Buradan indirebilirsiniz
http://s7.dosya.tc/server5/jacnz4/Hucre_dolu_iste_toplama_yap.rar.html

 

[zulfuernek]

Evet hocam haklısınız. Peki bu kodu command buttpon olayına nasıl ekleyebiliriz? Ben istemediğim sürece toplamasın diye

 

[zulfuernek]

Command buttonda daha önce satırlarda işlem yapıcak ve en sonunda toplayacak çünkü.

 

[Ziynettin]

Buton olarak bu şekilde deneyin. Verileriniz 2. satırdan başladığı varsayılmıştır.

Private Sub CommandButton1_Click()
son = Range("G:H").Find("?", , , , xlByRows, xlPrevious).Row
For i = 2 To son
Cells(i, 9) = Cells(i, 7) + Cells(i, 8)
Next i
End Sub

 

[zulfuernek]

Teşekkür ederim ziynetyin hocam. Şuan tatilde olduğum için ancak haftasonu deneyeceğim kodu. Mantıksal olarak tamam gibi. Umuyorumki bir noksanı yoktur. Gelişmelerdrn tekrar haberdar edeceğim. Emeğinize sağlık. Teşekkürler

 

[zulfuernek]

Ziynettin hocam bu formül işimi gördü. Emeğinize sağlık. Ancak ufak bir sorunu kaldı. Binlik ayracını bırakmıyor fakat andalık ayracını virgül olarak bırakıyor. Toplanacak rakamlarda binlik ayracı nokta olarak mevcut ancak toplam sonucında binlik ayracı bırakmıyor. Toplam sonucında hücrede yeşil ücgen mevcut. Yani sayı olarak görmüuor metin olarak görüyor bu nedenle binlik ayracı bırakmıyor. Nasıl bir ekleme yapabiliriz

 

[zulfuernek]

Yardım lütfen

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
    Range("I:I").ClearContents
    son = Range("G:H").Find("*", , , , xlByRows, xlPrevious).Row
    For i = 2 To son
        If Cells(i, 7) <> "" Or Cells(i, 8) <> "" Then
            Cells(i, 9) = Cells(i, 7) + Cells(i, 8)
        End If
    Next
    Range("I:I").NumberFormat = "#,##0.00"
End Sub