13 Haneli rakamları otomatik olarak 12 haneye düşürülmesi

[kurmayy]

Merhabalar...

Çok uğraştım ama yapamadım yardımınıza ihtiyacım var..Örnek dosya ekte sorunumda dosya içerisinde yazıyor...

Şimdiden ilgilenen arkadaşlara teşekkürler...

 

[Asri]

B2 hücresine aşağıdaki kodu ekleyin.

=PARÇAAL(A2;1;12)

ingilizce için,

=MID(A2,1,12)

 

[kurmayy]

Sayın, Asri aşağıdaki hatayı veriyor...

#NAME?

 

[leumruk]

Merhaba,
Formül:

=SOLDAN(A2;12)

Makro isterseniz aşağıdaki kodu kullanabilirsiniz.

Sub Hane_Dusur()
For x = 2 To [a65536].End(3).Row
Cells(x, "a") = Left(Cells(x, "a"), 12)
Next
MsgBox "İşlem tamam.", vbInformation, "DURUM"
End Sub

 

[İhsan Tank]

Sayın, Asri aşağıdaki hatayı veriyor...

#NAME?

eki inceleyin

 

[Necdet]

Merhaba,

Bende makrolu çözüm önermiştim, boşa gitmesin

Sub RakamDuzelt()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        If Len(Cells(i, "A")) = 13 Then Cells(i, "A") = Left(Cells(i, "A"), 12) + 0
    Next i
    Application.ScreenUpdating = True
End Sub

 

[kurmayy]

İlgi ve alakanıza çok teşekkür ediyorum...
Makro çözümü süper oldu....