Soru Tekrarlayan sayıları Tek göstermek

[sunjar]

Merhaba excell de 1 veya 2 hücrede tekrarlayan sayıları başka, diğer hücrede tek göstermek

MESELA : A1 Hücresine, B1 ve B2 Hücrelerinde ki rakamları birleştirelim.

B1 de ( 10 ) olsun B2 de ( 02 ) olsun A1 hücresine bunları birleştirdiğimizde A1 ( 102 ) olsun istiyorum. Bende A1 ( 1002 ) olmakta ben böyle istemiyorum.

Çok uğraştım ama bir türlü kodunu bulamadım. Yardımcı olurmusunuz Lütfen Resim olarakta atıyorum.

 

[sunjar]

Daha önce bir arkadaşım bana burada yardımcı olmuştu kodu aşağıda

=EĞER(VE(AD18="";AE18="");"";EĞER(AD18=AE18;AD18;AD18&AE18))

Ama bu tekrarlayan sayıları tek yapmıyor B1 ( 1002 ) B2 ( 0223 ) DİYELİM A1 E ( 10020223 ) OLARAK EKLEMEKTDE ben A1 ( 1023 ) olmasını istiyorum

Saygılarımla

 

[Erdem Akdemir]

Merhaba,

Yanlış anlamadıysam aşağıdaki gibi olabilir.

=--SOLDAN(B1;2)&--SAĞDAN(B2;2)

 

[Muzaffer Ali]

Merhaba.
Bende eğer yanlış anlamadıysam aşağıdaki gibi olacak

=METNEÇEVİR(B1;0)&METNEÇEVİR(B2;0)

 

[sunjar]

Ver,len kodları yukarıda yazmış olduğum gibi tekrarlayan sayılarıda eklemekte. Yani 1022 burada 2 iki defa yazılmayacak tek yazılmalı

kısaca 102 olmalı

 

[sunjar]

B

Merhaba,

Yanlış anlamadıysam aşağıdaki gibi olabilir.

=--SOLDAN(B1;2)&--SAĞDAN(B2;2)

Hocam bu formül olmadı malesef

 

[Erdem Akdemir]

Birkaç örneğin olduğu örnek bir dosya ekleyebilir misiniz.

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki dizi formülünü deneyiniz. CTRL+SHIFT+ENTER ile kapatmayı unutmayın.

=EĞER(SOLDAN(B1)="0";0;"")&TOPLA.ÇARPIM(--(PARÇAAL(B1&B2;BÜYÜK(EĞERHATA(KAÇINCI(SATIR(1:10)-1;--PARÇAAL(B1&B2;SATIR(1:4);1);0);"");SATIR(DOLAYLI("1:"&TOPLA.ÇARPIM(--ESAYIYSA(KAÇINCI(SATIR(1:10)-1;--PARÇAAL(B1&B2;SATIR(1:4);1);0))))));1))*10^(SATIR(DOLAYLI("1:"&TOPLA.ÇARPIM(--ESAYIYSA(KAÇINCI(SATIR(1:10)-1;--PARÇAAL(B1&B2;SATIR(1:4);1);0)))))-1))

 

[Erdem Akdemir]

Merhaba,

Kullanıcı tanımlı fonksiyonla yapmak isterseniz aşağıdaki kodu bir modüle ekleyin ve deneyin.

=saybir(B1:B2)

Function saybir(alan As Range)
Application.Volatile

For Each deg In alan
For i = 1 To Len(deg)

a = VBA.Mid(deg, i, 1)

If InStr(1, b, a) = 0 Then b = b & a

Next i
Next deg

saybir = b

End Function

 

[sunjar]

Dosya gönderiyorum zannedersem sorunum bu sefer çözülecektir. Detaylı bir şekilde anlatılmıştır. Yardımlarınız için teşekkür ederim.

excell dosyam

 

[Erdem Akdemir]

Verdiğim formül ve kod istediğinizi yapıyor.

Deneme yaptınız mı?

 

[sunjar]

Teşekkürler sizlere allah razı olsun tamamdır kardeşim tekrar denedim kodu modüle ekledim refresh yaptım şimdi oldu.

Sağolun yardımlarınız için