Soru sayı sorunu

[sultanb]

merhabalar ekte bankadan maille aldığım bir dosya var sayı olarak gelmesi gereken yerde tarih çıkıyor ,panelde araştırmama rağmen çözemedim bu yüzden devamlı pos ekstresine bakmak gerekebiliyor ,zaman kaybı yaşıyorum bunun formülle düzelme durumu var mı , ne yaptıysam olmadı

 

[Korhan Ayhan]

Tarih sorununu aşmanız için ekstre verisini METİN biçiminde kendi tablonuza aktarmanız daha faydalı olacaktır.

 

[YUSUF44]

Ya da kaynak dosyada Bul Değiştir menüsünü kullanarak noktaları virgüle çevirebilirsiniz.

 

[sultanb]

Ya da kaynak dosyada Bul Değiştir menüsünü kullanarak noktaları virgüle çevirebilirsiniz.

17,08,2021 şekılde cevırıyor o zaman yada hücre biçimlemeden sayıya cevır de 17/8 ın rakamsal karsıgı gelıyor

 

[YUSUF44]

Dosyanın bu halinden değil ham halinden bahsediyorum. İşlem yapmadan önce 17.08 yazıyorken bu işlemi yapmalısınız.

Ya da dosyanızın ham halini gönderin ona göre çözüm üretmeye çalışalım.

 

[sultanb]

Dosyanın bu halinden değil ham halinden bahsediyorum. İşlem yapmadan önce 17.08 yazıyorken bu işlemi yapmalısınız.

Ya da dosyanızın ham halini gönderin ona göre çözüm üretmeye çalışalım.

üstte eklediğim dosya sadece gelen dosyayı ,sayılar metın halde gelıyor diye değiştir yapıyorum aynı dosya üzerinden pivot yapıp günlük yada ,stun ekleyıp tarihi ay'a çeviriyorum aylık geçecek tahsılatlara bakıyorum ,burda tarıh seklınde gelenlerı degıstırsem bıle düzelmiyor sadece bu sekılde gelıpte hatalı olanların sayısal değerlerının yüksek olma ihtimali sıkıntıya sebeb olur ,atlamayayım diye çabalıyorum ...yoksa mantıksal olarak 17.ağu yazıca 17,80 diye olduğunu banka ekst.görüyorum ,bu mevzu başka dosyalarda karşımıza çıkabiliyor ...

​

 

[YUSUF44]

Yani elinizdeki verilerin ilk hali bu dosya mıdır? Başka herhangi bir kaynaktan herhangi bir yolla bu dosyaya bu verileri aktarmıyor musunuz?

 

[YUSUF44]

Aşağıdaki kodları bir dener misiniz?

Sub duzelt()
son = Cells(Rows.Count, "A").End(3).Row
Range("E2:L" & son).Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula
For i = 2 To son
    For j = 5 To 12
        If IsNumeric(Cells(i, j)) = False Then
            tutar = (Left(Cells(i, j), 2) + Mid(Cells(i, j), 4, 2) / 10) * 1
            Cells(i, j) = tutar * 1
        Else
            Cells(i, j) = Cells(i, j) * 1
        End If
    Next
Next
Range("E2:L" & son).NumberFormat = "#,##0.00"
End Sub