Rakam ParÇalama

[argo619]

Arkadaşlar ekli dosyamda a1 hücresinde yazılı bulunan sayıyı (aralarında nokta var) istenilen hücrelere nasıl ayırabiliriz
yardımlarınız için şimdiden tşk
saygılarımla

 

[Necdet]

A sütununu seçin ve

Veri
Metni Sütunlara Dönüştür
Sınırlı
Ayraç olarak Noktayı seçin ve
TAMAM

 

[argo619]

hocam ilginize teşekkür
denedim ama a1 hücresini komple getiriyor
oysa benim istediğim a1 hücresindeki sayının ilk iki basamağını yani 03 rakamlarını b1 hücresine taşımalı
yoksa ben mi beceremedim bağışlayın

 

[argo619]

hocam teşekkür ederim çok beceriksiz mişim özür
harikasınız teşekkürler
yaptım sonunda sayenizde
sğlun

 

[Ömer]

Merhaba,

Dosyanız ektedir. Kodlar siteden alıntıdır..

 

[argo619]

Sn hocam tekrar rahatsız ediyorum özür dilerim
şimdi şöyle bir sorun oldu a1 hücresindeki sayı değişince otomatikmen hücrelere bölünmüş sayılarında değişmesi gerekir yani a1 hücresindeki sayı değişken olacak
saygılarımla

 

[argo619]

espiyonaj hocam harikasınız
teşekkürler
tam istediğim gibi
sağolun i

 

[Ömer]

Rica ederim.

İyi çalışmalar..

 

[Necdet]

Merhaba.
Baştan böyle anlamadım.
Alternatif olsun. Aşağıdaki kodları ilgili sayfanın kod bölümüne aktarırsanız, giriş sırasında rakamları ayırır. Rakamları başka bir ortamdan kopyalıyorsanız kodları bir modüle bağlamak ve ufak bir değişiklik yapmak gerek.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Row = 1 Then Exit Sub
Dizi = Split(Target, ".")
Target.Offset(0, 1) = Dizi(0)
Target.Offset(0, 2) = Dizi(1)
Target.Offset(0, 3) = Dizi(2)
Target.Offset(0, 4) = Dizi(3)
Son:
End Sub