• DİKKAT

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

Excel Toplama islemi yardim Lütfen

  • Konbuyu başlatan Konbuyu başlatan smraf
  • Başlangıç tarihi Başlangıç tarihi
Katılım
9 Haziran 2015
Mesajlar
3
Excel Vers. ve Dili
2010 almanca
selam arkadaslar benim bir sorunum var yardimci olabilirseniz simdiden tesekkur ederim

ben excel uzerinde bir farkli toplama yapmak istiyorum
bir hucreye fiyati yazip sildigimde o fiyatin toplam hucresinden silinmesini istemiyorum bir diyer fiyat girdiyimde onu da silinmeyen toplamin ustune + olarak islenmesini istiyorum varmi oyle bir kodlama yardimlarinizi bekliyorum
simdiden tesekkur ederim
 
Merhaba . Çalışma sayfasının kod bölümüne aşağıdaki kodu ekleyin. A1 hücresine değer girip enter leyin A1 deki değeri silip tekrar değer girin.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
[B1] = [B1] + [A1]
End Sub
 
selam ustam emeyin bilgin icin tesekkuer ederim
eyer mumkunse bana nasil yapilacagini kisa bir videoyla
anlatabilirmisin cok tesekkur ederim simdiden
 
MERHABA PRATİK OLSUN DİYE ENTIRA BASINCA AYNI HÜCREDE KALMA KODU EKLEDİM.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" And Target <> "" Then [$A$1].Select

If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
[B1] = [B1] + [A1]
End Sub
 
Geri
Üst