Soldan ve Parça Al ile Veri yapıştırma

[Kavinsky]

Herkese merhabalar
Aşağıdaki kodu barkod tabancası ile okutuyorum.

9000000028005517062321470400

Yapmak istediğim şey Barkodda bu kodu Userform içindeki textboxa okuttuktan sonra (Yani textbox verisi doluyken) CommandButton1 seçsin ve makroyu çalıştırsın.
A2 içine soldan ilk 11 hanesini alıp (90000000280 şeklinde) yapıştırmak.

Ardından;
Parçaal formülü mantığında

9000000028005517062321470400

kalınlaştırdığım haneleri alıp (Yani Soldan 13 ve 14. karakteri) H7 hücresine yapıştırmak.

Bunu vba olarak yapmak mümkün müdür ? Teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    If Len(Me.TextBox1) = 28 Then
        Range("A2") = Left(Me.TextBox1, 11)
        Range("H7") = Mid(Me.TextBox1, 13, 2)
    End If
End Sub