Soru EXCEL FONKSİYONLU TOPLAMA

[mstff000]

Merhaba, bir hücrede toplanmış olan bir sayıyı (örneğin 10000 çıktı) bunun 8000'e kadarını bir hücreye, kalan 2000'ide otomatik bir alt hücreye işlenmesini istiyorum, ama yapamadım yardımlarınız için teşekkür ederim.

 

[Tevfik_Kursun]

Merhaba,
C9 hücresine sayı yazıp, makroyu çalıştırın.

Sub Toparla()
    Range("D10:D11").ClearContents
    If [C9] > 8000 Then
        [D10] = 8000: [D11] = [C9] - 8000
      Else
        [D10] = [C9]
    End If
End Sub

iyi çalışmalar

 

[mstff000]

Merhaba,
C9 hücresine sayı yazıp, makroyu çalıştırın.

Sub Toparla()
    Range("D10:D11").ClearContents
    If [C9] > 8000 Then
        [D10] = 8000: [D11] = [C9] - 8000
      Else
        [D10] = [C9]
    End If
End Sub

iyi çalışmalar

Tam olarak amacım bu, teşekkür ederim ancak her seferinde makroyu çalıştır demem gerekiyor mu çünkü sürekli sayılar değişiyor. bazende siliyorum

 

[Korhan Ayhan]

Alternatif;

Toplanacak alan A1:A10

B1;

=EĞER(TOPLA(A1:A10)>8000;8000;TOPLA(A1:A10))

C1;

=EĞER(TOPLA(A1:A10)>8000;TOPLA(A1:A10)-8000;0)

 

[yanginci34]

İsteğinize uygun örnek bir dosya göndermediğiniz için böyle düzeltmeler uzayıp gidiyor. Mesela toplamını aldığınız sütun aralığı ne?
Aşağıdaki kodun kırmızı ile gösterilen yerine değişiklik yaptığınız hücre aralığını yazıp denermisiniz.
Not: Bu kodu sayfanın kod bölümüne yazınız modüle değil.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [D1100]) Is Nothing Then Exit Sub
Range("D1011").ClearContents
If [C9] > 8000 Then
[D10] = 8000: [D11] = [C9] - 8000
Else
[D10] = [C9]
End If
End Sub

 

[mstff000]

Hocam indirme linki bırakıyorum yasak mı değilmi bilmiyorum ben ekleyemedim buraya
https://www.dosya.tc/server32/3didxl/ADP_YUKLEME..xlsm.html
açıklama ekledim hücrelere

 

[Korhan Ayhan]

#4 nolu mesajımda ki çözümü denediniz mi?

 

[mstff000]

#4 nolu mesajımda ki çözümü denediniz mi?

Evet 4 nolu çözüm işe yaradı son birşey daha var, 8000'e kadar yazıyor alttaki hücre boş kalırsa "YANLIŞ" ibaresi çıkıyor onun gözükmemesini nasıl sağlayabilirim.

 

[Korhan Ayhan]

Alttaki hücre derken..

 

[mstff000]

Alttaki hücre derken..

Sonucu bulamayınca formülden kaynaklı hücrede "YANLIŞ" ibaresi çıkıyor ya bunun yazmamasını istiyorum, bunuda çözersem formulüm tamamlanmış olucak.

https://www.dosya.tc/server32/m1qwzi/ADP_YUKLEME..xlsm.html kırmızı ile boyanan hücre 8000'i geçmediği zaman bu hücreye kalan rakamı atamadığı için bu seferde "YANLIŞ" ibaresi çıkıyor

 

[Korhan Ayhan]

Tek hücrenin kontrolü için TOPLA kullanmanıza gerek yok. Direkt R4 olarak yazabilirsiniz.

Ayrıca ikinci formülü yanlış uygulamışsınız. Parantezleri kontrol ediniz.

 

[mstff000]

Tek hücrenin kontrolü için TOPLA kullanmanıza gerek yok. Direkt R4 olarak yazabilirsiniz.

Ayrıca ikinci formülü yanlış uygulamışsınız. Parantezleri kontrol ediniz.

Sorunum tamamen halloldu yardımınız için çok teşekkür ederim, çok değerli ve sorulara hemen cevap verilen bir forum.