Bir hücreye girilen veriyi istenilen formata getirme

[u.L.a.s]

Excelde bir hücreye(P44 Hücresine) aşağıdaki gibi bir veri yapıştırıyorum. Bu veri hücreye yapıştırdığımda aynen aşağıda göründüğü gibi Wrap bir şekilde olduğu gibi hücreye işlenmiş oluyor.

Saha Dolabı 33
Tevzi Kutu D1-10
Tevzi Kutu Devre 24

Ben bu veriyi sanki Wrap değilmiş gibi aradaki boşlukları kaldırarak aynen aşağıdaki gibi bir hale getiriyorum. ve saha dolabı,tevzikutu,tevzikutudevre verilerinden sonrada iki nokta üst üste koyuyorum

Saha Dolabı: 33 Tevzi Kutu: D1-10 Tevzi Kutu Devre: 24

Bunu bu hücrede bu hale getirecek makro koda ihtiyacım var. bilgi ve yardımlarınızı rica ederim

 

[u.L.a.s]

Daha açıklayıcı olmak için ekteki örnek dosyayı yolluyorum

A1 hücresine ben olduğu gibi veriyi yapıştırdığımda Yine A1 hücresinde B1 hücresi istediğim hali gibi olsun istiyorum

http://s4.dosya.tc/server4/2n09ag/Yeni_Microsoft_Excel_Calisma_Sayfasi.rar.html

 

[çıtır]

B1 hücresine kopyala

=PARÇAAL(A1;1;MBUL(DAMGA(10);A1))&":"&PARÇAAL(A1;MBUL(DAMGA(10);A1);MBUL(DAMGA(10);A1)+1)&":"&PARÇAAL(A1;MBUL(DAMGA(10);A1)+MBUL(DAMGA(10);A1)+1;UZUNLUK(A1))

 

[u.L.a.s]

Bu formülle şu veri oluşmuş oldu

Saha Dolabı 33:Tevzi Kutu 79T:evzi Kutu Devre 1

Yani iki nota üst üste işaretleri doğru yere yerleşmemiş burada.

 

[u.L.a.s]

Bu Formülde şöyle birşey uygulamak gerekebilir

nacizhane fikrim tabiki çok bildiğimdende değil

Char(10) olarak search yapmak yerine Find Saha Dolabı diyip bunun sonuna iki nokta üst üste işareti koymak şeklinde olabilir ama tabi bu formül düzeneği nasıl hazırlanır onu bilmiyorum işte