Topla Makrosu

[6729626]

[T3] = WorksheetFunction.Sum([T4:T2000])
[u3] = WorksheetFunction.Sum([u4:u2000])
[v3] = WorksheetFunction.Sum([v4:v2000])
[w3] = WorksheetFunction.Sum([w4:w2000])
[x3] = WorksheetFunction.Sum([x4:x2000])
[y3] = WorksheetFunction.Sum([y4:y2000])
[z3] = WorksheetFunction.Sum([z4:z2000])
Yukarıdaki makrolardan bi hayli yapmam gerekiyor. Bu makroları kısa şekilde yazabilirmiyim?
Teşekkürler. Bu arada Sn.Orion2 Hızır Gibisiniz.

 

[Orion1]

Aşağıdaki şekilde deneyiniz.

Sub topla()
Dim i As Integer, adrs As String
For i = 20 To 26
    adrs = Range(Cells(4, i), Cells(2000, i)).Address
    Cells(3, i).Value = WorksheetFunction.Sum(Range(adrs))
Next i
End Sub

 

[Necdet]

Yine geç kaldım

Public Sub topla()
For i = 20 To 26
Cells(3, i) = WorksheetFunction.Sum(Range(Cells(4, i), Cells(2000, i)))
Next i
End Sub

 

[altanson]

ben C2 den c1000 e kadar olan hücrelerde yazan sayıların başına xxx gibi bir ifade eklemek istiyorum

bu başlıktaki makroyu aşağıdaki gibi düzeltmeye çalıştım ama bir yerde hata yaptım sanırım.

Sub ekle()
For i = 2 To 1000
Cells(i, 3) = "xxx & Range(i, 3)"
Next i
End Sub

 

[arifcell]

Basina Xxx Koymak

Istersen SaĞdan Komutunu Kullanabilirsin.
=saĞdan("xxx"&c2;8) Gibi Mesela

 

[altanson]

sn arifcell teşekkürler fakat makro ile nasıl yapabilirim?

 

[Levent Menteşoğlu]

Aşağıdaki gibi yapabilirsiniz.

[LEFT]Sub ekle()
For i = 2 To 1000
Cells(i, 3) = "xxx" & cells(i, 3)
Next i

End Sub[/LEFT]

 

[altanson]

sn. leventm

verilerim C2 den başlayıp devam ediyor, fakat verdiğiniz kodu çalıştıramadım hata verdi...

 

[Levent Menteşoğlu]

Kodu düzelttim tekrar deneyin.

 

[altanson]

teşekkürler elinize sağlık, iyi geceler...