WEBHARVY ILE CEKTIGIM VERILERI EXCEL SAYI OLARAK GORMUYOR.

[622ali]

MICROSOFT OFFICE PROFESYONEL PLUS 2019 kullaniyorum. Webharvy programi uzerinden, internetten cektigim sayisal verileri excele aktardigimda basit sayisal islemlerde(toplama cikarma bolme gibi) surekli #DEĞER! hatasi aliyorum.

Ne yaptiysam olmadi. Cozum onerilerinizi bekliyorum... Simdiden tesekkurler.

 

[Ömer]

Merhaba,

Gelen verileri içeriğini görmek için, tabloda 10-20 arası sayı olan hücre bırakarak dosya ekler misiniz.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

 

[622ali]

Tesekkurler.

İndir ornek dosya

Dosyayı indir ornek dosya

dosya.co

 

[Merhum İdris SERDAR]

.

Tabloyu Word'e koyalayın. Sonra Word'den Excel'e kopyalayın.

Dosyanız burada.

İndir ornek dosya

Dosyayı indir ornek dosya

dosya.co

.

 

[Ömer]

Merhaba

Alternatif.

Web den veri alınca damga(9) karakteri sorunu olabiliyor.

Kodları çalıştırırsanız temizlemiş olursunuz.

Sub degis()
    Cells.Replace Chr(9), ""
End Sub

 

[622ali]

Gunlerdir ugrasiyordum, sayenizde 1 dakikada hallettim. Ne kadar tesekkur etsem az. iyiki varsiniz....

 

[622ali]

Yeni konu acmak istemedim. Yine benzer sorunla karsilastim. Bu sefer bir web sayfasindan excele kopyaladigim verileri excel sayi olarak gormuyor ve DEGER hatasi aliyorum.

Word e kopyalayip geri tekrar excele aktardigimda sorun hala devam ediyor. Baska ne yapabilirim acaba?

 

[Ömer]

Merhaba,

B1 hücresine gidip F2 ile içine girin, 2 değerinin başındaki karakteri kopyalayın.

ctrl+h (bul değiştir) gidip: aranan değer bölümüne kopyaladığınız karakteri yapıştırıp tümünü değiştire basın.

 

[Haluk]

Ya da, dosyaya bir modül ekleyip aşağıdaki kodu yapıştırın.

Function RemoveNonAsciiChars(ByVal xStr As String) As String
    Dim RegExp As Object
    Set RegExp = CreateObject("VBScript.RegExp")
    With RegExp
        .Global = True
        .MultiLine = False
        .IgnoreCase = True
        .Pattern = "[^\u0000-\u007F]"
    End With
    RemoveNonAsciiChars = Application.WorksheetFunction.Trim(RegExp.Replace(xStr, ""))
    Set RegExp = Nothing
End Function

Daha sonra, bunu sayfada fonksiyon olarak kullanın;

=RemoveNonAsciiChars(A1)+0

bu formülü aşağıdaki hücrelere de kopyalamak için, hücreyi aşağıya doğru sürükleyin.

.

 

[veyselemre]

Alternatif olarak deneyin.

Sub test()
    ActiveSheet.UsedRange.Replace Chr(160), ""
End Sub