Sutundaki string verileri toplamak!

[scorpion06]

Merhaba arkadaslar,
Kucuk bir sorunum var.
Excel'de ornek olarak 10 tane satirdaki isimleri 11. satirda hepsinin toplamini gostermek istiyorum. Alt alta olarak toplayabilirse cok iyi olur. "sum" fonksiyonu sadece integer degerleri topladigi icin bu konu da bir fonksiyon ya da yazilmis makro varsa ve benimle paylasirsaniz cok mutlu olurum.

Okuyan ve yardimci olan herkese cok tesekkurler.

 

[Recep İpek]

İsimleri ayrı ayrı toplamak mı istiyorsunuz?(!) Yada saydırmak mı?

 

[hamitcan]

Örnek bir dosya ekleyin.

 

[scorpion06]

Verileri saydirmak değil de string degerleri alt alta yazdirmak gibi.

Ornek dosyayi yolluyorum.

http://www.uploadpaylas.com/v/8552456/deneme.xls.html

Tesekkurler...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz. Bir hücre aralığı seçip kodu çalıştırıp denermisiniz.

Sub İSİMLERİ_LİSTELE()
    Satır = Selection.Rows.Count + 1
    Sütun = Selection.Column
    For Each Alan In Selection
    If Not IsNumeric(Alan.Value) Then
    Sonuç = IIf(Sonuç = "", Alan.Value, Sonuç & Chr(10) & Alan.Value)
    End If
    Next
    Cells(Satır, Sütun) = Sonuç
End Sub

 

[scorpion06]

Cok tesekkurler. Sanirim bu kod isteğimi yapabilir.

Iyi calismalar.