hücre içindeki metini bölme

[ripiness]

Selam,

mesela A1 hücresine abcd1234567 (ilk dört hanesi rakam sonrakiler sayı) gibi bir bilgi girişi var. Bu bilgiyi A1 hücresine abcd A2 hücresine 123456-7 olarak yazmasını istiyorum. Bunu nasıl becere biliriz. Yardımlarınız için peşinen teşekkürler.

 

[AS3434]

Eğer verileriniz hep aynı sabit uzunlukta ise;

A1= abcd1234567

A2 hücresine =SOLDAN(A1;4)

A3 hücresine =YERİNEKOY(SAĞDAN(A1;UZUNLUK(A1)-4);SAĞDAN(A1;1);"-"&SAĞDAN(A1;1))

 

[ripiness]

hücre değeri

Hücre içindeki değerlerin uzunlukları sabit.
Formulden ziyade a1 hücresindeki metini abcd1234567 iki ayrı hücreye yazmasını istiyorum a2 hücresine abcd a3 hücresinede 123456-7 bu şekilde yazmasını istiyorum. Daha sonra a1 hücresini sileceğim geri kalanı kullanacağım. Umarım anlata bilmişimdir.

 

[AS3434]

Sayın ripiness
Dosyayı inceleyin.

Dosya yenilendi.

 

[ripiness]

HÜcre BÖlÜndü

Selam,

ABCD1234567 kısımdaki ABCD yi ve 1234567 yi ayırmayı hallettim. Göndermiş olduğun makro güzel ama olomadı. Şimdi 1234567 olan yeri 123456-7 olarak yani makroyu çalıştırdığımda otomatik olarak son hanedeki rakamın önüne - (tire) koymasını istiyorum. Yardımların için teşekkürler.

 

[AS3434]

Sayın ripiness
Dosyaya yazdığım makro hatalı sonuç üretiyordu. Sonradan farkettim. Yukardaki dosyayı yeniledim.

 

[ripiness]

ornek

Tam olarak istediğim ekteki örnektedir.
Senide çok yordum kusura bakma.
:roll:

 

[veyselemre]

Sub deneme()
For x = 2 To [a65536].End(3).Row
    Cells(x, "B") = Left(Cells(x, "a"), 4)
    Cells(x, "C") = Mid(Cells(x, "a"), 5, 6) & "-" & Right(Cells(x, "a"), 1)
Next x
End Sub

 

[AS3434]

Sayın ripiness

Yukardaki dosyayı yeniledim.

 

[ripiness]

çok saol

Çok teşekkür ederim ellerine ve bilgine sağlık.