Değişkenleri aklında tutup hesaplama yaparak direk sonuç

[du643]

Selem üsdatlar sorunum değişkenleri aklında tutup hesaplama yaparak direk sonuçu bulma.
Örnek dosya ektedir.Şimdiden ilgilenen arkadaşlara çok teşekkürler.

 

[asi_kral]

Selem üsdatlar sorunum değişkenleri aklında tutup hesaplama yaparak direk sonuçu bulma.
Örnek dosya ektedir.Şimdiden ilgilenen arkadaşlara çok teşekkürler.

Merhaba
Bu kod işinizi görür mü_?
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub aklımı_sevemeyim_1967()
'Konu       :   Rakamları Aklımda Tutmaya Çalışıyorum
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim asi As Long, a As Long, b As Long, c As Long
asi = Range("A" & Rows.Count).End(xlUp).Row
a = WorksheetFunction.Sum(Range("A2:A" & asi))
asi = Range("B" & Rows.Count).End(xlUp).Row
b = WorksheetFunction.Sum(Range("B2:B" & asi))
asi = Range("C" & Rows.Count).End(xlUp).Row
c = WorksheetFunction.Sum(Range("C2:C" & asi))
MsgBox "A sütunu toplamı " & a & vbLf _
& "B sütunu toplamı " & b & vbLf _
& "C Sütunu toplamı " & c
Range("G2") = a: Range("G3") = b: Range("G4") = c
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Dosyanız ekte.

 

[du643]

Merhaba
Bu kod işinizi görür mü_?
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub aklımı_sevemeyim_1967()
'Konu       :   Rakamları Aklımda Tutmaya Çalışıyorum
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim asi As Long, a As Long, b As Long, c As Long
asi = Range("A" & Rows.Count).End(xlUp).Row
a = WorksheetFunction.Sum(Range("A2:A" & asi))
asi = Range("B" & Rows.Count).End(xlUp).Row
b = WorksheetFunction.Sum(Range("B2:B" & asi))
asi = Range("C" & Rows.Count).End(xlUp).Row
c = WorksheetFunction.Sum(Range("C2:C" & asi))
MsgBox "A sütunu toplamı " & a & vbLf _
& "B sütunu toplamı " & b & vbLf _
& "C Sütunu toplamı " & c
Range("G2") = a: Range("G3") = b: Range("G4") = c
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Dosyanız ekte.

teşekkürler üsdat aklını seveyim.yanlız bir de sütun sayım belirsiz bunun için sütun sayısı kadar dim tanımlamam ve yine süyun kadar tanımlama yapmalıyım gibi gözüküyor sütun sayımı belirsiz olarak nasıl yapabilirim. İlgine teşekkürler.Ayrıca hemşehri sayılırız bende Giresunluyum

 

[du643]

teşekkür ve bilgi

teşekkürler

 

[asi_kral]

teşekkürler üsdat aklını seveyim.yanlız bir de sütun sayım belirsiz bunun için sütun sayısı kadar dim tanımlamam ve yine süyun kadar tanımlama yapmalıyım gibi gözüküyor sütun sayımı belirsiz olarak nasıl yapabilirim. İlgine teşekkürler.Ayrıca hemşehri sayılırız bende Giresunluyum

Bu sorunu anlamadım. Peki hangi hücreye yazılacak onu söyleyin ona göre bakalım.

 

[asi_kral]

teşekkürler

Kolay Gelsin.

 

[du643]

üsdatım sayfa 2de a b c d e ..................xyz sütunlarına yazılacak,
sütün sayısı yaklaşık 180 satır sayısıda aşağı yukarı 200 gibi.
Amacım A sütunundaki toplamı alıp Sayfa2 de A1 hücresine, B sütünun daki toplamı alıp Sayfa 2 de A2 hücresine ........ diye devam ettikten sonra Sayfa 2 de oluşanları da aynı şekilde sayfa 3 'e toplamlarını alıp devam etmek. Böyle enaz 20 tur döndürmek. Modul yazdım fakat yanlız çalışması çok fazla vakit alıyor for next te çok kalıp bakıyor topluyor yazıyor.bunu kısaltmak istiyorum. Sizin yolladığınız işime yarıyor Dim tanımlamaları ve sutun tanımlamalarıda çok olacak

 

[du643]

dim ve sutun tanımlamalarını kısaltabilmem için yardım

 

[asi_kral]

üsdatım sayfa 2de a b c d e ..................xyz sütunlarına yazılacak,
sütün sayısı yaklaşık 180 satır sayısıda aşağı yukarı 200 gibi.
Amacım A sütunundaki toplamı alıp Sayfa2 de A1 hücresine, B sütünun daki toplamı alıp Sayfa 2 de A2 hücresine ........ diye devam ettikten sonra Sayfa 2 de oluşanları da aynı şekilde sayfa 3 'e toplamlarını alıp devam etmek. Böyle enaz 20 tur döndürmek. Modul yazdım fakat yanlız çalışması çok fazla vakit alıyor for next te çok kalıp bakıyor topluyor yazıyor.bunu kısaltmak istiyorum. Sizin yolladığınız işime yarıyor Dim tanımlamaları ve sutun tanımlamalarıda çok olacak

Sorunuzu bir örnek dosya ile destekleseniz ve içinde örnek yapsanız size yardımcı olacağım sanırım.

 

[du643]

üstadım ekli dosyada sayfa1,sayfa2, sayfa3, deki gibi olacaklar.İlgi ve alakanız için çok teşekkürler,

 

[asi_kral]

üstadım ekli dosyada sayfa1,sayfa2, sayfa3, deki gibi olacaklar.İlgi ve alakanız için çok teşekkürler,

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub aklımda_tutmaya_çalışıyorum()
'Konu       :   Toplamları Akılda Tutup Yazma
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
Dim asi As Long, kral As Long, a As Long
Application.ScreenUpdating = False
Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
Set s3 = Sheets("Sayfa3"): kral = 1
For asi = 1 To s1.Cells(1, Columns.Count).End(xlToLeft).Column
a = s1.Cells(Rows.Count, asi).End(xlUp).Row
s2.Cells(kral, "A") = WorksheetFunction.Sum(s1.Range(s1.Cells(1, _
asi).Address & ":" & s1.Cells(a, asi).Address))
kral = kral + 1: Next
kral = 1
For asi = 1 To s2.Cells(1, Columns.Count).End(xlToLeft).Column
a = s2.Cells(Rows.Count, asi).End(xlUp).Row
s3.Cells(kral, "A") = WorksheetFunction.Sum(s2.Range(s2.Cells(1, _
asi).Address & ":" & s2.Cells(a, asi).Address))
kral = kral + 1: Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Bende gayet hızlı bir de siz deneyin bakalım sonuçları nasıl oluyor. Not Siz hesaplarken bazı yerleri atlamışsınız sanırım.
Dosyanız Ekte. Sayfa3'deki butonu çalıştırın ve deneyin.

 

[du643]

aklına eline sağlık teşekkür ederim.Henüz koda yerleştirmedim.Ayıp olmazsa bir soru daha sorabilirmiyim.Sayfa sayım 20 lere çıkabilir.tanımlamayı ona göre yapacağım değil mi?

 

[asi_kral]

aklına eline sağlık teşekkür ederim.Henüz koda yerleştirmedim.Ayıp olmazsa bir soru daha sorabilirmiyim.Sayfa sayım 20 lere çıkabilir.tanımlamayı ona göre yapacağım değil mi?

Yalnız hep tek tek soruyorsunuz. Kodda bu kadar çok oynama yapılmaz. Bir döngü oluşturun ve tek seferde hepsini yaptırın. O kadar çok değişken tanımlamayın.