Ekleyerek toplama

[prens06]

arkadaşlar konuyu excel dosyasında anlattım

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayınız..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A20]) Is Nothing Then Exit Sub
        [A1] = [A1] + Target
End Sub

.

 

[prens06]

slm

yazdığınız kodu ekledim ama sub hatası veriyor sub toplama () bu satır için hata mesajı veriyor ne yapmalıyım.

 

[usta07]

Ömer beyin yazdığı kod da hata yok.
dosyanız ekte

 

[prens06]

acaba düğme eklemeyimi başaramadım hata o yüzden mi oluyor bilemiyorum yardımcı olursanız sevinirim

 

[prens06]

bu kodu doğru olarak uygulamayı başardım tşk ederim bi ricam daha olabilirmi bu kodla birlikte a1 değeri toplattıkya aynı kodla yan sütunada uygulayabilirmiyiz acaba yan yana sütunlar var onlarında bu şekilde toplanmasını istiyorum onu nasıl yapabilirim usta07 arkadaş senin düzelttiğin dosyada örneği yeniledim bakabilirmisiniz düzeltmiştim ama kayıt yapmamış siz nedemek istediğimi anlamışsınızdır zaten tşk ederim ilgin için şimdiden değerli zamanını harcağın için saol

 

[prens06]

ömer bey verdiğin kod için çok tşk ederim sağolun ilk etapta çalıştırmayı beceremedim ama sonra yaptım ikinci bir istediğimde a1 yaptığımız işlemi b1, c1 ve d1 gibi sütunlarada uygulamak istiyorum yapabilirmiyiz acaba

 

[Ömer]

Hepsini aynı andamı yapacaksınız yoksa bağımsızmı çalışacak. Sorularınızı açıklarken detaylı açıklamaya özen gösteriniz..

.

 

[prens06]

her bir hücre bir birinden bağımsız olarak çalışacak ömer bey

 

[Ömer]

Sorunuzu tam olarak yine anlayamadım.

Hepsinin toplama ölçütü A20 olacaksa,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A20]) Is Nothing Then Exit Sub
        [A1] = [A1] + Target
        [B1] = [B1] + Target
        [C1] = [C1] + Target
        [D1] = [D1] + Target
End Sub

Toplama ölçütleri karşılıklı olacaksa,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A20:D20]) Is Nothing Then Exit Sub
    Cells(1, Target.Column) = Cells(1, Target.Column) + Target
 End Sub

.

 

[prens06]

ekleyerek toplama

ömer bey tek tek anlatmaya çalışayım konuyu firmaların yıllık satış toplamını bulmak istiyoruz. Bunun yanında birde bu firmalara aylık ne satış yapmışız onu görmek istiyoruz.
örnek:
murat ahmet mehmet deniz

ocak ayı
şubat ayı
mart ayı
nisan ayı
mayıs ayı
haziran ayı
temmuz ayı
ağustos ayı
eylül ayı
ekim ayı
kasım ayı
aralık ayı

murat firması için ocak ayında ne satış yapılmış onu görmek istiyoruz murat firmasına ay içerisinde 20 adet fatura kesilmiş olsun ve tutarı 200.000,00.- tl olsun

şubat ayında 10 adet fatura kesilmiş olsun ve tutarı 100.000,00.- tl olsun
sizin ilk yazdığınız kod varya c25 satırına yazınca c9 hücresine toplayarak yazıyor

işte o yazdığınız kodla ocak ayına girdiğimiz faturaların toplasın istiyorum ilk yaptığınız kod çok güzel oldu

sonra aynı şeyi şubat ayı içinde yapsın istiyorum c30 satırına faturadaki rakamı yazınca atıyorum c10 satırına şubat ayının içerisine toplasın istiyorum

aynı işlemi mart ayı içinde yapsın istiyorum yani aynı işlemi murat firması için 12 ay boyunca yapmasını istiyorum

örnek:
ben c25 yazınca c9 ocak ayı içerisine toplasın istiyorum
c26 hücresine yazınca şubat ayı içerisine toplasın istiyorum 12 ay boyunca bu işlemi yapmak istiyorum neden derseniz topladığım zaman hata olabiliyor
onun önüne geçmek istiyorum

c25 hücresinin karşılığı olan ocak ayının c9 hücresi içerisini toplasın istiyorum
c26 hücresinin karşılığı olan şubat ayının c10 hücresi içerisini toplasın istiyorum
c27 hücresinin karşılığı mart ayı c11 hücresi olsun istiyorum
c28 hücresinin karşılığı nisan ayı c12 hücresi olsun istiyorum
c29 hücresinin karşılığı mayıs ayı c13 hücresi olsun istiyorum
c30 hücresinin karşılığı haziran ayı c14 hücresi olsun istiyorum
c31 hücresinin karşılığı temmuz ayı c15 hücresi olsun istiyorum








sonra aynı şeyleri ahmet, mehmet ve deniz firması içinde yapsın istiyorum. örnek dosyada tekrar anlatmaya çalıştım.