verileri ayırma

[metinozlu]

Merhaba
a süyununda belli işlemlerden sonra oluşmuş sayısal veri var. veri 4564,45 şeklinde. makro ile a sütünunun 4564 şeklinde yazılmasını b sütünuna 45 şeklinde yazdırılmasını istiyorum.
iyi çalışmalar

 

[Haluk]

Makro şart mı ?

 

[red_lion_72]

selam,

Ã?rnek dosya ekleyebilirmisiniz?

Kolay gelsin.

 

[metinozlu]

Süper hızlı bir cevap
maalesef makro şart
hücreler metni sütunlara dönüştür ile halledilebilir.ama maalesef otomatik yapılması gerekiyor.

 

[Haluk]

Formul ile;

C1 hücresine:
=TRUNC(A1)

D1 hücresine:
=SUBSTITUTE(A1;C1 & ",";"")+0

Sonra, formülleri aşağıya doğru sürükleyin.

 

[abazya]

Veri+ Metni sütunlara cevir+ileri(ayırıcılarbölümünde)virğül olarak yapmak işine yararmı sana örnek ekte göndermek isterdim ama şuan çıkmam gerekiyor

 

[metinozlu]

dim i as integer
For i= 2 to 2000
cells(i,"a").select
activecell(1,1)="kuruşu yazdıracak kod"?
activecell.value="lirayı yazdıracak kod"?
next i
? işaretli yerler için kod gerekli

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.


[vb:1:6de4956980]dim i as integer
For i= 2 to 2000
cells(i,2)=int(cells(i,1))
cells(i,3)=(cells(i,1)- int(cells(i,1)))*100
next i[/vb:1:6de4956980]

 

[metinozlu]

kod için teşekkür ederim
Basit bir yöntemle sorunu çözmüşsünüz.Sanırım kodlar işe yarar.İlgilenen forum üyelerine teşekkür ederim.