Tetbox1 deki metni parçalamak

[hsayar]

Arkadaşlar
Textbox1.value ="4_4003_01_01_106330_020_01_0"
ise
aktif sayfa
[A1]= 4
[A2]= 4003
[A3]= 01
[A4]= 01
[A5]= 106330
[A6]= 020
[A7]= 01
[A8]= 0

değerlerini alması için ne yapmalıyım

 

[Zeki Gürsoy]

arr = Split(Textbox1, "_")
 
For i = 0 To UBound(arr)
    Cells(i, 1) = arr(i)
Next

 

[hsayar]

teşekkür ederim hocam

arr = Split(Textbox1, "_")
 
For i = 0 To UBound(arr)
    Cells(i [B]+ 1[/B] , 1) = arr(i)
Next

galiba cells için + 1 olmalı

 

[Zeki Gürsoy]

Doğru. k::