Çözüldü En Sondaki Satıra Alttoplam Almak

Adnan

Destek Ekibi

Katılım

10 Mar 2021

Mesajlar

1,513

Çözümler

285

Aldığı beğeni

1,667

Excel V

Office 365 TR

• 8 Tem 2022

• #2

örneğinizi ekleyiniz

 

Olumlu oy 0 Negatif oyla

bulentkars

Yeni Üye

Katılım

30 May 2022

Mesajlar

605

Çözümler

5

Aldığı beğeni

104

Excel V

Office 365 TR

Konu Sahibi

• 8 Tem 2022

• #3

Dosya Ekte

 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.

Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Olumlu oy 0 Negatif oyla

Adnan

Destek Ekibi

Katılım

10 Mar 2021

Mesajlar

1,513

Çözümler

285

Aldığı beğeni

1,667

Excel V

Office 365 TR

• 8 Tem 2022

• #4

iki ayrı çözüm var inceleyiniz

 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.

Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Olumlu oy 0 Negatif oyla

bulentkars

Yeni Üye

Katılım

30 May 2022

Mesajlar

605

Çözümler

5

Aldığı beğeni

104

Excel V

Office 365 TR

Konu Sahibi

• 8 Tem 2022

• #5

Adnan Bey Merhaba,

Sonucun değer olarak değil formül olduğu gibi gözükmesini istiyorum, Toplam değil.. AltToplam(9; Formülü olacak

 

Olumlu oy 0 Negatif oyla

Adnan

Destek Ekibi

Katılım

10 Mar 2021

Mesajlar

1,513

Çözümler

285

Aldığı beğeni

1,667

Excel V

Office 365 TR

• 8 Tem 2022

• #6

formüllü

 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.

Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Olumlu oy 1 Negatif oyla

Çözüm

bulentkars

Yeni Üye

Katılım

30 May 2022

Mesajlar

605

Çözümler

5

Aldığı beğeni

104

Excel V

Office 365 TR

Konu Sahibi

• 8 Tem 2022

• #7

Merhaba,
Aşağıdaki şekilde düzelttim. Ancak formul sürekli F2 Satırına yazıyor. örnek dosyada çalışıyor ancak kendi çalışma kitabımda sadece sayfa adını değiştiriyorum yapamadım

Sub AltToplam()

Sheets("Havale").Select

Dim rg As Range
Dim son As Long, i As Long, toplam As Double
son = Sayfa1.Cells(Rows.Count, 6).End(xlUp).Row
Set rg = Sheets("Havale").Range("F2:F" & son)

Sheets("Havale").Range("F" & son + 1).Formula = "=Subtotal(9, F2:F" & son & ")"
End Sub

 

Olumlu oy 0 Negatif oyla

Adnan

Destek Ekibi

Katılım

10 Mar 2021

Mesajlar

1,513

Çözümler

285

Aldığı beğeni

1,667

Excel V

Office 365 TR

• 8 Tem 2022

• #8

sayfa adını sarı ile boyalı yere göre düzeltin

 

Olumlu oy 0 Negatif oyla

bulentkars

Yeni Üye

Katılım

30 May 2022

Mesajlar

605

Çözümler

5

Aldığı beğeni

104

Excel V

Office 365 TR

Konu Sahibi

• 8 Tem 2022

• #9

Tamam Oldu. Elinize sağlık

 

Olumlu oy 0 Negatif oyla

Refaz

Destek Ekibi

Katılım

11 Ağu 2021

Mesajlar

5,163

Çözümler

655

Aldığı beğeni

5,070

Excel V

Office 2024 TR

• 9 Tem 2022

• #10

Başka sayfada çalışırsa hata vermemesi için kırmızı yer ile daha iyi olur.Tek tırnaklara gerek yok ama sayfa adında boşluk olunca gerekli sanıyorum.

Sayfa1.Range("F" & son + 1).Formula = "=Subtotal(9, 'Sayfa1'!F2:F" & son & ")"

 

Olumlu oy 0 Negatif oyla

Adnan

Destek Ekibi

Katılım

10 Mar 2021

Mesajlar

1,513

Çözümler

285

Aldığı beğeni

1,667

Excel V

Office 365 TR

• 9 Tem 2022

• #11

Toplanacak veriler sayfa 1 de ise evet

 

Olumlu oy 0 Negatif oyla