hücre formatlama

[a_self_lion]

Selam arkadaşlar;

Benim hücrelerde yazılı olan stok kodlarım var bunların okunurluğu ve doğrulu açısından

110501001
11050100101
110501002
110501003
110501004
11050100401
110501005
şekinde aşağı doğru inen stok kodları var bunların formatını
11 05 01 001
11 05 01 001 01
11 05 01 002
11 05 01 003

veya
11-05-01-001
11-05-01-001_01
11-05-01-002
11-05-01-003
şeklnde nasıl gösterttilebilirim format olarak.

Yardımlarınızı bekliyorum. Şimdiden teşkkürler

 

[Korhan Ayhan]

Selamlar,

Biçimlendirme istediğiniz hücrelerin A sütununda olduğunu düşünürsek. Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub HÜCRELERİ_BİÇİMLENDİR()
    Dim X As Long
    For X = 1 To [A65536].End(3).Row
    If Cells(X, 1) <> "" Then
        Select Case Len(Cells(X, 1))
        Case Is = 9
        Cells(X, 1).NumberFormat = "## ## ## ###"
        Case Is = 11
        Cells(X, 1).NumberFormat = "## ## ## ### ##"
        End Select
    End If
    Next
End Sub

 

[a_self_lion]

Süper Oldu eline sağlık Sayın Korhan arkadaşım. bunu birde vba ile olmadan excel içinde yapma şansımız varmı.

 

[a_self_lion]

Birde A stununda var bir D sutununda birde G stununda var bu kodlar bunları ya makro istediği zaman stunu bize sorsa olmaz mı ben uğraştım yapamadım

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Option Explicit
 
Sub HÜCRELERİ_BİÇİMLENDİR()
    Dim X As Long
    Dim Hücre As Range
    Dim Adres As Variant
    Set Adres = Application.InputBox("Lütfen sütun seçiniz.", "SÜTUN SEÇİMİ", , , , , , 8)
    If Adres Is Nothing Then Exit Sub
    If WorksheetFunction.CountA(Adres) = 0 Then
    MsgBox "Hiç hücre bulunamadı !", vbCritical, "Dikkat !"
    Else
    For Each Hücre In Adres.SpecialCells(xlCellTypeConstants, 23)
    If H&#252;cre <> "" Then
        Select Case Len(H&#252;cre)
        Case Is = 9
        H&#252;cre.NumberFormat = "## ## ## ###"
        Case Is = 11
        H&#252;cre.NumberFormat = "## ## ## ### ##"
        End Select
    End If
    Next
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
    End If
End Sub

 

[a_self_lion]

Teşekkür ederim. Deneyeceğim

 

[i_karamaz]

Birde resimdeki gibi yapabilirsin arkadaşım