Tek hücredeki rakamları ayırma

[sirkülasyon]

13.01.00.62-01.3.9.00-1-03.2
A2:A23 arasında yukarıda yer alan kod sistemi mevcut.
Buton yardımı ile
"B" sütununa 13.01.00.62 kısmını
"C" sütununa 01.3.9.00 kısmını
"D" sütununa 1 kısmını
"E" sütununa 03.2 kısmını ayırabileceğim kod için yardımcı olabilir misiniz?

Teşekkür eder saygılarımı sunarım

 

[YUSUF44]

MEtni Sütunlara Dönüştür özelliğinde ayırıcı olarak - seçmeyi denediniz mi?

 

[Ömer BARAN]

Merhaba.

Sayın YUSUF44'ün belirttiği işlemi makro ile yapmak isterseniz aşağıdaki kod satırı bu işlemi yapar.
.

[A2:A23].TextToColumns [B2], 1, 1, OtherChar:="-"

 

[calecale]

Üstatlar cevaplamış ama bende bir şeyler karaladım . Belki kullanmak isteyen olur diye.

Private Sub CommandButton1_Click()
Dim deger
Dim i

For i = 2 To 23

deger = Cells(i, 1)
Cells(i, 2) = Mid(deger, 1, 11)
' B sütunu 2. satıra A sütunundaki karakterlerden 1. karakterden den başlar 11 karakter alır.
deger = Cells(i, 1)
Cells(i, 3) = Mid(deger, 13, 9)
' C sütunu 2. satıra A sütunundaki karakterlerden 13. karakterden den başlar 9 karakter alır.
deger = Cells(i, 1)
Cells(i, 4) = Mid(deger, 23, 1)
' D sütunu 2. satıra A sütunundaki karakterlerden 23. karakterden den başlar 1 karakter alır.
deger = Cells(i, 1)

Cells(i, 5) = Mid(deger, 25, 4)
' E sütunu 2. satıra A sütunundaki karakterlerden 25. karakterden den başlar 4 karakter alır.

Next
MsgBox "İşlem tamam"
End Sub

 

[sirkülasyon]

Sayın YUSUF44, Ömer BARAN ve calecale
Emekleriniz ve yardımlarınız için teşekkür ederim

 

[exceluygulamalari]

Merhabalar,

Aşağıdaki linkteki konu anlatımının faydalı olacağını düşünüyorum.

https://exceluygulamalari.wordpress.com/2016/11/26/harf-sayi-veveya-karakter-dizileri-arasindan-veri-ayiklama-islemleri/

Umarım faydalı bulursunuz,
Saygılarımla.