Aynı Hücredeki metin ve sayıyı toplama

[szuzum]

arkadaşlar b1 hücresinde örnek 50 yemek 10 sigara 5 telefon yazdğım zaman h1 hücresine bu sayıların toplamasını yazmasını istiyorum örenekteki gibi

[/url][/IMG]

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
    Application.ScreenUpdating = False
    For a = 1 To Cells(Rows.Count, "B").End(3).Row
        For i = 0 To Evaluate("=LEN(B" & a & ")-LEN(SUBSTITUTE(B" & a & ","" "",""""))")
             If IsNumeric(Split(Cells(a, "B"), " ")(i)) Then
                topla = topla + Split(Cells(a, "B"), " ")(i) * 1
            End If
        Next i
        Cells(a, "H") = topla
        topla = Empty
    Next a
    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[szuzum]

yaptım da olmadı

 

[Emir Hüseyin Çoban]

. . .

Kodları uygulayarak yapamadığınız dosyayı ekleyin. İnceleyelim.

. . .

 

[szuzum]

https://drive.google.com/file/d/0B0EBizwy-2jreDk2eEFBODFIRDg/edit?usp=sharing

 

[Emir Hüseyin Çoban]

. . .

İllâ zor olsun diyosun yani.

Tablo açılışta parola korumalı!..

. . .

 

[szuzum]

pardon ya 555811

 

[szuzum]

hocam ne oldu

 

[Emir Hüseyin Çoban]

. . .

Olmayan nedir, izleyiniz.

Ekran Görüntüsü (GİF)

. . .

 

[szuzum]

Siz Süpersiniz Ya

 

[szuzum]

hocam peki buna buton eklesek daha hoş olmaz mı

 

[Emir Hüseyin Çoban]

. . .

Olur.

Forumda ve nette makroyu butona atamak diye aratın. Bolca örnek bulabilirsiniz.

. . .