Satırı son dolu sütuna kadar toplamak

[mersilen]

Merhabalar

Bir satırı bir noktadan son dolu sütununa kadar (değişmektedir) toplamak için makroda hangi komutu kullanmalıyız.
WorksheetFunction.Sum(range("C1:X1")
Aynı mantıkla bir sütundakinide son dolu satıra kadar nasıl toplarız

sonsut3 = ThisWorkbook.Sheets("Sayfa3").Cells(1, Columns.Count).End(xlToLeft).Column

Worksheets("Sayfa3").Cells(1, sonsut3 + 1) = WorksheetFunction.Sum("range([COLOR="Red"]C1:C" & Range("C1").End(xlToLeft).Column[/COLOR])

 

[uzmanamele]

Merhaba

Bu şekilde deneyiniz.

Worksheets("Sayfa3").Cells(1, sonsut3 + 1) = WorksheetFunction.Sum(Range(Cells(1, 1) & ":" & Cells(1, sonsut3)))

 

[mersilen]

Merhaba sayın Uzman amele, cevap için teşekkürler.

Kod hata veriyor.
Ben sayfa 1 de çalıştırıyorum, formül sayfa 3 de çalışıyor, sorun bu olabilir mi?
Ben bunu I sütunu ve 48. satırda toplamlar aldırmak için kullanacağım.

Sub doldur()
Set s1 = Worksheets("Sayfa1")
Set s3 = Worksheets("Sayfa3")
sonsat1 = s1.Cells(65536, "D").End(xlUp).Row
sonsat3 = s3.Cells(65536, "A").End(xlUp).Row
sonsut3 = ThisWorkbook.Sheets("Sayfa3").Cells(1, Columns.Count).End(xlToLeft).Column

For i = 10 To sonsat1
   deger1 = s1.Cells(i, "D")
   deger2 = s1.Cells(i, "E")
   x = Worksheets("Sayfa3").Range("A2:A" & sonsat3).Cells.Find(deger2).Row
   y = Worksheets("Sayfa3").Range("B1:AA" & sonsut3).Cells.Find(deger1).Column
   s3.Cells(x, y) = s1.Cells(i, "F")

Next i
    
    
    Worksheets("Sayfa3").Cells(1, sonsut3 + 1) = WorksheetFunction.Sum(Range(Cells(1, 1) & ":" & Cells(1, sonsut3)))
    Worksheets("Sayfa3").Cells(2, sonsut3 + 1) = WorksheetFunction.Sum(Range(Cells(2, 1) & ":" & Cells(2, sonsut3)))
    
End Sub

 

[mersilen]

Tekrar selamlar

Sorunu çözdüm, ilgilenenlere teşekkürler.

Sub doldur()
Set s1 = Worksheets("Sayfa1")
Set s3 = Worksheets("Sayfa3")
sonsat1 = s1.Cells(65536, "D").End(xlUp).Row
sonsat3 = s3.Cells(65536, "A").End(xlUp).Row
sonsut3 = ThisWorkbook.Sheets("Sayfa3").Cells(1, Columns.Count).End(xlToLeft).Column

For i = 10 To sonsat1
   deger1 = s1.Cells(i, "D")
   deger2 = s1.Cells(i, "E")
   x = Worksheets("Sayfa3").Range("A2:A" & sonsat3).Cells.Find(deger2).Row
   y = Worksheets("Sayfa3").Range("B1:AA" & sonsut3).Cells.Find(deger1).Column
   s3.Cells(x, y) = s1.Cells(i, "F")
Next i
   
For i = 2 To sonsat3
With Worksheets("Sayfa3")
Worksheets("Sayfa3").Cells(i, sonsut3 + 2) = Application.WorksheetFunction.Sum(.Range(.Cells(i, "b"), .Cells(i, sonsut3)))
End With
Next i
Worksheets("Sayfa3").Cells(i + 1, sonsut3 + 2) = "Toplam :" & Application.WorksheetFunction.Sum(Worksheets("Sayfa3").Range(Worksheets("Sayfa3").Cells(2, sonsut3 + 2), Worksheets("Sayfa3").Cells(sonsat3, sonsut3 + 2)))
Worksheets("Sayfa3").Range(Worksheets("Sayfa3").Cells(2, sonsut3 + 2), Worksheets("Sayfa3").Cells(sonsat3 + 2, sonsut3 + 2)).Interior.ColorIndex = 4

For i = 2 To sonsut3
With Worksheets("Sayfa3")
Worksheets("Sayfa3").Cells(sonsat3 + 2, i) = Application.WorksheetFunction.Sum(.Range(.Cells(2, i), .Cells(sonsat3, i)))
End With
Next i
Worksheets("Sayfa3").Cells(sonsat3 + 2, i) = "Toplam :" & Application.WorksheetFunction.Sum(Worksheets("Sayfa3").Range(Worksheets("Sayfa3").Cells(sonsat3 + 2, 2), Worksheets("Sayfa3").Cells(sonsat3 + 2, sonsut3)))
Worksheets("Sayfa3").Range(Worksheets("Sayfa3").Cells(sonsat3 + 2, 2), Worksheets("Sayfa3").Cells(sonsat3 + 2, sonsut3 + 1)).Interior.ColorIndex = 5
      
End Sub