Soru Hücre içindeki değeri ayırmak

[Sezerkaratas]

Sorum bir hücrede k10s-s9m-m5l yazdığını düşünün ben bir kodla her - sonrasını ayırabilirim öreneyin k10s yi a1 e yazsın s9m yi b1 e yazsın gibi

 

[tamer42]

Sorum bir hücrede k10s-s9m-m5l yazdığını düşünün ben bir kodla her - sonrasını ayırabilirim öreneyin k10s yi a1 e yazsın s9m yi b1 e yazsın gibi

Sub Test()
Dim X As String
Dim n() As String

X = "k10s-s9m-m5l"

n = Split(X, "-")

Range("a1") = n(0)
Range("a2") = n(1)
Range("a3") = n(2)

End Sub

 

[Sezerkaratas]

çok teşekür ederim harikasınız

 

[Sezerkaratas]

peki bunu nasıl değişken yapabilirim ? örneği 3 tane kod vardı bu kod 10 adet olsa ms1-me5-me6-me7-mk1-mew gibi
for i = 0 to 15
if not n(i) = "" gibi yapsam işimi çözer sanırım daha farklı bir yolu var mı acaba kendimi geliştirmek için soruyorum
i ye son sayı vermek için ne yapabilirim for i = 0 to x yapabilmem için ne yapabilirim

 

[Sezerkaratas]

Sub Test()
Dim X As String
Dim n() As String

X = "k10s-s9m-m5l"

n = Split(X, "-")

Range("a1") = n(0)
Range("a2") = n(1)
Range("a3") = n(2)

End Sub

peki bunu nasıl değişken yapabilirim ? örneği 3 tane kod vardı bu kod 10 adet olsa ms1-me5-me6-me7-mk1-mew gibi
for i = 0 to 15
if not n(i) = "" gibi yapsam işimi çözer sanırım daha farklı bir yolu var mı acaba kendimi geliştirmek için soruyorum
i ye son sayı vermek için ne yapabilirim for i = 0 to x yapabilmem için ne yapabilirim

 

[tamer42]

peki bunu nasıl değişken yapabilirim ? örneği 3 tane kod vardı bu kod 10 adet olsa ms1-me5-me6-me7-mk1-mew gibi
for i = 0 to 15
if not n(i) = "" gibi yapsam işimi çözer sanırım daha farklı bir yolu var mı acaba kendimi geliştirmek için soruyorum
i ye son sayı vermek için ne yapabilirim for i = 0 to x yapabilmem için ne yapabilirim

Sub Test()
Dim X As String
Dim n() As String

for i=2 to 10
X = cells(i, 2)

n = Split(X, "-")

Range("b"& i) = n(0)
Range("c"& i)  = n(1)
Range("d"& i)  = n(2)

next i

End Sub

 

[Sezerkaratas]

Sub Test()
Dim X As String
Dim n() As String

for i=2 to 10
X = cells(i, 2)

n = Split(X, "-")

Range("b"& i) = n(0)
Range("c"& i)  = n(1)
Range("d"& i)  = n(2)

next i

End Sub

beni yanlış anladınız for i = 0 to sat gibi yapabilmek için ne yapabiliceğimi soruyordum

 

[tamer42]

beni yanlış anladınız for i = 0 to sat gibi yapabilmek için ne yapabiliceğimi soruyordum

Sub Test()
Dim X As String
Dim n() As String

X = "..... - .....- .....- ..... - ..... - ..... - ..... - ..... - .....- ..... - ..... -....."

n = Split(X, "-")

For i = 0 To 10

Range("a" & i + 1) = n(i)

Next i

End Sub