sayıya çevirme sorunu

[spacebar]

arkadaşlar günaydın. pdf olan e-faturadan excele kopyaladığım sayıları toplayamıyorum. forumda araştırma yaptım. ctrl+h ile denedim olmadı. sıfır ile topladım olmadı. bir ile çarptım olmadı. makroları denedim olmadı. çözümü varmıdır, yardımcı olabilirmisiniz. teşekkürler...

 

[yanginci34]

Örnek olarak c sütununu kompile seçip ctrl + H basın sonra bir boşluk vererek Adet yazın daha sonra tümünü değiştir yapın ben denedim oldu bu işlemi diğer sütunlara da başta bir boşluk vererek deneyiniz.

 

[spacebar]

üstad merhaba. G sütunundaki "mal ve hizmet tutarını" toplamaya çalışıyorum. dediğiniz şekilde denedim ama olmadı.

 

[Ali]

D sütunu için

=TOPLA(EĞER(ESAYIYSA(MBUL("EUR";YERİNEKOY($D$2:$D$62;DAMGA(160);"")));YERİNEKOY(BÜYÜKHARF(YERİNEKOY($D$2:$D$62;DAMGA(160);""));"EUR";"")+0;0))

yazıp CTRL + SHIFT+ENTER tuşlarına basarak formül girişini tamamlayınız.

Adet için

=TOPLA(EĞER(ESAYIYSA(MBUL("ADET";YERİNEKOY($C$2:$C$62;DAMGA(160);"")));YERİNEKOY(BÜYÜKHARF(YERİNEKOY($C$2:$C$62;DAMGA(160);""));"ADET";"")+0;0))

yazıp CTRL + SHIFT+ENTER tuşlarına basarak formül girişini tamamlayınız.

Diğerlerini siz aynı mantık ile yaparsınız.

 

[spacebar]

tamam üstadım.sorunum çözüldü. teşekkür ederim.

 

[veyselemre]

Sub duzenle()
    durum = Application.UseSystemSeparators
    al = Application.DecimalSeparator
    Application.UseSystemSeparators = False
    Application.DecimalSeparator = "."
    Application.ThousandsSeparator = ","
    With Range("a2:G" & Cells(Rows.Count, 2).End(3).Row)
        .Replace Chr(160), ""
        .Replace ",", "."
        .Replace "Adet", ""
        .Replace "EUR", ""
        .Value = .Value
    End With
    If al = "," Then
        Application.DecimalSeparator = ","
        Application.ThousandsSeparator = "."
    End If
    Application.UseSystemSeparators = durum
End Sub

 

[spacebar]

veysel üstadım güzel alternatif olmuş. teşekkür ederim. emeğinize sağlık.