hücre içinde görünen sayısal verileri listeleme

[modoste]

merhaba sayın hocalarım
az önce bir dosyamda A8 hücresine tıkladığımda 1507,80 değeri var formül sütununda ise +58,7+113,63+23,35+............ gibi birçok sayının toplamından oluşmuş
acaba bu sayıları A1 den itibaren altalta yazadırabilirmiyiz.
(veriler sadece toplanan veriler değil karışık çıkarmada olabiliyo)
(+15,26+26,35+56,62-42,65-44,56+1458,63.....gibi)

 

[systran]

sadece sayılar mı lazım? yoksa işaretleri önemli mi?

 

[systran]

Sayfa içine command buton ekle ve kodları içine yaz. A1 hücresini kaynak alır. D sütununa sayıları yazar.

Dim tmp As String
Dim tmp_dizi() As String
Dim i As Byte
Dim rng As Range
Set rng = Sayfa1.Range("A1")
tmp = rng.Formula
tmp = Replace(tmp, "=", "")        ' eşittiri kaldır
tmp = Replace(tmp, "-", "+")        ' eksileri art ile değiştir
tmp = Replace(tmp, ".", ",")        'noktaları virgül ile değiştri
tmp_dizi = Split(tmp, "+")
'Sayfa1.Range("D:D").NumberFormat = "#0.00"
For i = 0 To UBound(tmp_dizi)
    Sayfa1.Cells(i + 1, 4).Value = CDbl(tmp_dizi(i))
Next i

 

[modoste]

command buton nasıl eklenir bilmiyorum görsel anlatabilirmisiniz kısaca
çözüm için teşekkür ederim.

 

[systran]

https://drive.google.com/file/d/0By_vlGkmFxCCVVdxYzdoRU1DSjg/edit?usp=sharing
buradan dosyanızı indirebilirsiniz. sol üst tarafta aşağıya bakan bir ok var .

 

[Emir Hüseyin Çoban]

command buton nasıl eklenir bilmiyorum görsel anlatabilirmisiniz kısaca
çözüm için teşekkür ederim.

. . .

Syn modoste,
1900 küsur mesaj sayınızla CommandButton eklemeyi nasıl bilmezsiniz.
Biraz araştırma yapınız. Forum içerisinde arama yapmanızı geçtim, Youtube sitesine bile yazsanız sonuç alırsınız.

. . .

 

[modoste]

sayın hüseyin çoban başka bir pc den yazıyodum şimdi evdeyim
daha önce command button ve ona modül atama yapmadığım için yazmıştım ama dediğiniz gibi en kısa sürede hatta yarın sabah öğrenmem lazım. daha çok formüller kısmıyla çok bilgi öğrendiğim için benide utandırdınız sayın Hüseyin Çoban