Sütun adı kullanmadan çoklu sütun toplama

[alibaskan]

Arkadaşlar benim için çok önemli olan bir soru soracağım. Yardımcı olursanız sevinirim. Ekteki dosyada sarı renkle boyalı alanlara makro ile Alttoplam aldırmak istiyorum. Fakat makro kodlarının içinde sütun harflerinin kullanılmaması gerekiyor. Yani ("C3:C10") şeklinde kullanılmadan. Cells (3,3) şeklinde olabilir. For next döngüsüyle yapabilirseniz daha makbuldür. For Next ile ve WorksheetFunction.Sum ile denedim. Bir türlü işin içinden çıkamadım. Şimdiden teşekkür ediyorum.

 

[Recep İpek]

Dosyanızı eklemeyi unutmuşsunuz.

 

[alibaskan]

Pardon. Şimdi ekledim.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub topla()
Dim sat As Long, i As Byte
sat = Cells(65536, "B").End(xlUp).Row + 1
For i = 3 To 9
    adr = Range(Cells(3, i), Cells(sat - 1, i)).Address
    Cells(sat, i).Formula = "=Sum(" & adr & ")"
Next i
MsgBox "İşlem Tamamdır..!!"
End Sub

 

[alibaskan]

İlginizden dolayı teşekkür ediyorum. Hücrede =Topla(...) şeklinde formül görmeden sadece sonucu nasıl görebiliriz.

 

[Orion1]

İlginizden dolayı teşekkür ediyorum. Hücrede =Topla(...) şeklinde formül görmeden sadece sonucu nasıl görebiliriz.

Ekli dosyayı inceleyiniz.

Sub topla()
Dim sat As Long, i As Byte, adr As String
sat = Cells(65536, "B").End(xlUp).Row + 1
For i = 3 To 9
    adr = Range(Cells(3, i), Cells(sat - 1, i)).Address
    Cells(sat, i).Value = WorksheetFunction.Sum(Range(adr))
Next i
MsgBox "İşlem Tamamdır..!!"
End Sub

 

[alibaskan]

sat = Cells(65536, "B").End(xlUp).Row + 1 bu satır toplam formülünün yazılı olduğu satır nosunu mu veriyor. Burada "sat" a atanan değer nedir?

 

[Orion1]

sat = Cells(65536, "B").End(xlUp).Row + 1 bu satır toplam formülünün yazılı olduğu satır nosunu mu veriyor. Burada "sat" a atanan değer nedir?

Tespitiniz doğrudur.

 

[alibaskan]

Gecenin bu saatinde göstermiş olduğunuz ilgiden dolayı teşekkür ediyorum. Vermiş olduğunuz bilgiler inanın çok işime yaradı. Teşekkür ediyorum.

 

[Orion1]

Gecenin bu saatinde göstermiş olduğunuz ilgiden dolayı teşekkür ediyorum. Vermiş olduğunuz bilgiler inanın çok işime yaradı. Teşekkür ediyorum.

Rica ederim.
İyi çalışmalar.