sayıya çevirme sorunu

Katılım
2 Temmuz 2009
Mesajlar
542
Excel Vers. ve Dili
office 2019 Türkçe
Altın Üyelik Bitiş Tarihi
28/12/2022
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...
 

Ekli dosyalar

yanginci34

Altın Üye
Katılım
6 Temmuz 2010
Mesajlar
1,627
Excel Vers. ve Dili
excel2016
Altın Üyelik Bitiş Tarihi
12-10-2026
Ö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.
 
Katılım
2 Temmuz 2009
Mesajlar
542
Excel Vers. ve Dili
office 2019 Türkçe
Altın Üyelik Bitiş Tarihi
28/12/2022
üstad merhaba. G sütunundaki "mal ve hizmet tutarını" toplamaya çalışıyorum. dediğiniz şekilde denedim ama olmadı.
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
D sütunu için

Kod:
=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

Kod:
=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.
 
Katılım
2 Temmuz 2009
Mesajlar
542
Excel Vers. ve Dili
office 2019 Türkçe
Altın Üyelik Bitiş Tarihi
28/12/2022
tamam üstadım.sorunum çözüldü. teşekkür ederim.
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
Kod:
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
 
Katılım
2 Temmuz 2009
Mesajlar
542
Excel Vers. ve Dili
office 2019 Türkçe
Altın Üyelik Bitiş Tarihi
28/12/2022
veysel üstadım güzel alternatif olmuş. teşekkür ederim. emeğinize sağlık.
 
Üst