bir hücrede bulunan satırları ayrı hücrelerde yazmak

[azize]

merhaba
ben bir program yapmaya çalısıyorum . ekteki gibi bir hücredeki noktadan sonraki sayıları başka bir hücreye otomatik atmak istiyorum ama nasıl yapcağım.. yardımcı olursanız sevinirm

 

[zafer]

Merhaba

Aşağıdaki kodları uygulayınız.

Sub parcala()

For y = 1 To Cells(65536, 1).End(xlUp).Row
cumledeki_degerler = Split(Cells(y, 1), ".")
For i = 0 To UBound(cumledeki_degerler)
Cells(y, i + 2) = cumledeki_degerler(i)
Next
Next
End Sub

 

[azize]

Merhaba

Aşağıdaki kodları uygulayınız.

Sub parcala()

For y = 1 To Cells(65536, 1).End(xlUp).Row
cumledeki_degerler = Split(Cells(y, 1), ".")
For i = 0 To UBound(cumledeki_degerler)
Cells(y, i + 2) = cumledeki_degerler(i)
Next
Next
End Sub

[/QUteşekkür ederim forumdan cevap beklerken buldum. siz galiba makro ile yaptınız .. bunu nasıl kullancağım benimki bir sayfada en az üç satırda kullanacağım bu işlemi.. anlamadım makrayu pek bilmiyorum teşekkür ederim tekrardan

 

[zafer]

Merhaba

Formül ile yaptıysanız daha iyi.

Yinede kullanmak isterseniz makrolu dosya ektedir

 

[azize]

Merhaba

Formül ile yaptıysanız daha iyi.

Yinede kullanmak isterseniz makrolu dosya ektedir

teşekkür ederim