noktalara göre ayırma

[Erdem Akdemir]

elimizde farklı şirketlerin mizanları var, ama hesap planları düzgün açılmamış

bazısı 120.1.01.001 şeklinde bazısı ise 120.001.01 şeklinde açılmış

benim istediğim noktalara göre bu hesapları parçalara ayırmak

böyle birşey mümkün müdür?

 

[hurkanpisirici]

ilk önce noktaları kaldırın sonra hepsini istediğiniz standarta getirin noktaları kaldırmak için hesap nolarının olduğu sütunu tarayın ctrl+h yapın ilk kutucuğa nokta koyun ve hepsini değiştir diyin noktaların kaybolması gerekir sonra istediğiniz şekilde biçimlendirirsiniz.

 

[Erdem Akdemir]

ilk önce noktaları kaldırın sonra hepsini istediğiniz standarta getirin noktaları kaldırmak için hesap nolarının olduğu sütunu tarayın ctrl+h yapın ilk kutucuğa nokta koyun ve hepsini değiştir diyin noktaların kaybolması gerekir sonra istediğiniz şekilde biçimlendirirsiniz.

o şekilde olmuyor

bunlar alt hesaplar ve açanlar belli bir standartta açmamışlar

standatlar noktalama işaretleri, onlara göre ayrım yapmak lazım

noktaları kaldırırsak ayırmak imkansız olur

 

[zafer]

Merhaba

Veri/Metni sütunlara ayır ile yapabilirsiniz.

 

[hurkanpisirici]

Sayın zafer hocam noktaların hizaları aynı olmadığı için bu çözümde olmayacaktır diye düşünüyorum.Ama hepsini sıralatıp aynı hizaya getirilebilir herhalde.

 

[zafer]

Merhaba

Ağağıdaki kodlarıda kullanabilirsiniz.

Öncelikle hücrelere nasıl bir ayrım yapılacak onu açıklarsanız daha iyi çözüm üretilebilir.

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

 

[Erdem Akdemir]

Merhaba

Ağağıdaki kodlarıda kullanabilirsiniz.

Öncelikle hücrelere nasıl bir ayrım yapılacak onu açıklarsanız daha iyi çözüm üretilebilir.

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

işte budur

süper olmuş

elinize sağlık

 

[Erdem Akdemir]

120.001.005.012

bu şekildeki bir hesabı ayırmadı

zafer hocam bir gözden geçirseniz

 

[zafer]

Merhaba

Hücrelerin biçimini Metin yapınız.

120 001 005 012 olarak gözükecektir

veya

For i = 0 To UBound(cumledeki_degerler)
[B][COLOR=red]Cells(y, i + 2).NumberFormat = "@"
[/COLOR][/B]Cells(y, i + 2) = cumledeki_degerler(i)

satırı ilave ediniz.

 

[Erdem Akdemir]

Merhaba

Hücrelerin biçimini Metin yapınız.

120 001 005 012 olarak gözükecektir

veya

For i = 0 To UBound(cumledeki_degerler)
[B][COLOR=red]Cells(y, i + 2).NumberFormat = "@"
[/COLOR][/B]Cells(y, i + 2) = cumledeki_degerler(i)

satırı ilave ediniz.

sizden birşey daha istesem çok olurmuyum acaba

parçalara ayırırken noktalarda başında olabilir mi?

 

[zafer]

Merhaba

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)
If i = 0 Then Cells(y, i + 2) = cumledeki_degerler(i) Else Cells(y, i + 2) = "." & cumledeki_degerler(i)
Next
Next
End Sub

iyi çalışmalar