Barkod Sistemi için PARÇAAL

[korkmazes]

Merhaba Arkadaşlar,

2 gündür bunu çözmek için uğraşıyorum. Bununla ilgili excel oluşturdum fakat ürünlerin barkodunu okurken gereksiz karakterleri
Parçala_al fonksiyonu ile siliyorum. Alttaki kod üzerinden nasıl yapabilirim? Yardımlarınızı bekliyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Range("a1:a500"), Target) Is Nothing Then
        vl = Target.Value
        If Len(vl) = 43 Then '**
             Target = Mid(vl, 24, 8)
        End If '**
    End If
End Sub

A3C0560480020ş0000610542ş1381ç7550303003ş30ç06ç2020

 

[ÖmerBey]

Merhaba,
Kodunuzu aşağıdaki şekilde düzenleyip deneyiniz...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("a1:a500"), Target) Is Nothing Then
    vl = Target.Value
    If Len(vl) > 43 Then '**
        Application.EnableEvents = False
        Target.Value = Mid(vl, 1, 13)
        Target.Offset(0, 1).Value = Mid(vl, 15, 10)
        Target.Offset(0, 2).Value = Mid(vl, 26, 15)
        Target.Offset(0, 3).Value = Mid(vl, 42, 10)
        Application.EnableEvents = True
    End If '**
End If
End Sub

 

[korkmazes]

Çok teşekkürler @ÖmerBey . Vermiş olduğunuz kod çalıştı. 1381ç7550303003 olanı ç karakterini - değiştirmek istiyorum. Tarih kısmında ise 30.06.2020 nokta ile değiştirmesini nasıl yapabilirim. Vermiş olduğunuz kod üzerinden?

Merhaba,
Kodunuzu aşağıdaki şekilde düzenleyip deneyiniz...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("a1:a500"), Target) Is Nothing Then
    vl = Target.Value
    If Len(vl) > 43 Then '**
        Application.EnableEvents = False
        Target.Value = Mid(vl, 1, 13)
        Target.Offset(0, 1).Value = Mid(vl, 15, 10)
        Target.Offset(0, 2).Value = Mid(vl, 26, 15)
        Target.Offset(0, 3).Value = Mid(vl, 42, 10)
        Application.EnableEvents = True
    End If '**
End If
End Sub

 

[ÖmerBey]

Buyurunuz...

Target.Offset(0, 2).Value = Replace(Mid(vl, 26, 15), "ç", "-")
Target.Offset(0, 3).Value = Replace(Mid(vl, 42, 10), "ç", ".")

 

[korkmazes]

Çok teşekkürler @ÖmerBey.

Buyurunuz...

Target.Offset(0, 2).Value = Replace(Mid(vl, 26, 15), "ç", "-")
Target.Offset(0, 3).Value = Replace(Mid(vl, 42, 10), "ç", ".")

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar diliyorum...