002.19988.005A bu kalıbı yapabilir miyiz?

[femre]

Arkadaşlar elimdeki 6000'e yakın satır olan dosyam var...şunu yapmak istiyorum:
A ve B ve C sutunlarını birleştirince sutunlardaki rakamların başında olan "0" sıfırların yok olmamasını ve her birleştirilen hücre bilgisinin sol başında nokta olmasını istiyorum şöyle:
mesela:
A1 sütunu 002
B1 sütunu 19988
C1 sutunu 005A

değerlerine sahip olsun, şimdi bu üç sutunun makro çalıştıktan sonra A sutununda şu şekilde birleşmesini istiyorum( 6000 civarı satır var hepsi birleşmeli tabi):

yeni A sutunu:
002.19988.005A

böle bişi yapabilmek mümkünmüdür :shock:
fikirlerinizi bekliyorum
saygılar

 

[birol_mumcu]

merhaba;
sıfırların kalmasını istiyorsan sayıları metin olarak saklamalısın....
diğer işlemleri formulle çözmek istersen de aşağıdaki formülü kullanırsan yardımcı olacak sanırım
=BİRLEÞTİR(PARÇAAL(A1;1;3);".";PARÇAAL(B1;1;5);".";PARÇAAL(C1;1;4))
not: verileri A ,B,C sütunlarındaysa formülü D yaz :mrgreen:

 

[YUSUF44]

Aşağıdaki formülü kullanabilirsiniz.

=METNEÇEVİR(A1;"0000")&"."&METNEÇEVİR(B1;"00000")&"."&C1

Yalnız bu formülde C sütunundaki her verinin sizin verdiğiniz örnekteki gibi son karakteri harf olarak düşünülmüştür. C sütununda ne yazıyorsa aynen alır.

Kolay gelsin.

 

[femre]

Arkadaşlar sizin formulu uygulattıramadım bi türlü. :yardim: Ama bulduğum bi macro var ,çalışıyor , 2 sutun birleştiriyor nokta da koyuyor fakat sıfırları siliyor.. bu makro üzerinde yukarıda anlattığım kriterler dikkate alınarak nasıl bir modifiye yapılabilir ?

A1 sütunu 002
B1 sütunu 19988
C1 sutunu 005A

yeni A1 sutunu:
002.19988.005A

not: C sütunu 005A gibi harfli de olabilir, 005 gibi sadece rakamlı da olabilir

Sub birlestir()
say = WorksheetFunction.CountA(Columns(1))
For a = 1 To say
Cells(a, 1) = Cells(a, 1).Value & "." & Cells(a, 2).Value
Next a
End Sub

saygılar

 

[Merhum İdris SERDAR]

Ekteki dosyaya bakınız.

 

[femre]

sayın yurttas,
ekte gönderdiğiniz(birleştir-1.zip) dosyayı inceledim ve gereçekten benim işimi yapabiliyor :bravo: yalnız bir eksiği var, noktanın sağında 1 karakter boşluk bırakıyor :agla:

= birlestir(A1:C1;" ")
002 19988 005A 002. 19988. 005A
003 2345 004d 003. 2345. 004d
005 14567 00y 005. 14567. 00y

bu boşluğun oluşmamasını istiyorum :yardim:
nasıl düzeltebiliriz acaba???
saygılar

 

[Seyit Tiken]

Alternatif.(makrosuz)
Ekteki dosyayı inceleyiniz.

 

[Merhum İdris SERDAR]

Yukarıdaki dosyanızı yeniden yaptım. Güncelledim. Bakınız olmuş mu?

 

[Seyit Tiken]

Alternatif Çözüm.
Doğru Þekli.
Dosyayı inceleyiniz.

 

[femre]

birol mumcu,yusuf 44, seyit tiken ve yurttas beyler.. ..

ilgilendiniz ,çeşitli alternatifler sundunuz çok çok teşekkür ederim...saolun... :hey: