Birleşen hücrelerin karakter değeri

[tatar7]

Arkadaşlar; bana hücreleri birleştirdiğimde bu hücrelerin içinde bulunan yazının karakteri değil o hücreye vermiş olduğum karakter değerini baz alarak birleştirmesini istiloyurm.
Yardımcı olacak arkadaşlara şimdiden çok teşekkür ediyorum

 

[uzmanamele]

merhaba
sanırım birleştirilen hücreler arasında boşluk kalsın istiyorsunuz, aşağıdaki şekilde deneyiniz

=BİRLEŞTİR(A2&" "&B2&" "&C2&" "&D2&" "&E2&" "&F2&" "&G2&" "&H2)

 

[uzmanamele]

merhaba
aşağıdaki kodları modüle yazarak deneyiniz

=birleştira(A2:H2)

'kodları yazan: Yurttaş
Public Function BİRLEŞTİRA(ALAN As Range, Optional sALAN As String = " ") As String
Dim sonuc As String, c As Range
Application.Volatile
On Error GoTo Hata
For Each c In ALAN
If c <> Empty Then sonuc = sonuc & c.Value & sALAN
Next c
sonuc = Left(sonuc, Len(sonuc) - Len(sALAN))
B&#304;RLE&#350;T&#304;RA = sonuc
On Error GoTo 0
Exit Function
Hata:
B&#304;RLE&#350;T&#304;RA = "#Error#"
End Function

 

[Halit TÜRK]

Alternatif olarak,

=PARÇAAL(A2;1;10)&", "&PARÇAAL(B2;1;6)&", "&PARÇAAL(C2;1;5)&", "&PARÇAAL(D2;1;5)&", "&PARÇAAL(E2;1;4)&", "&PARÇAAL(F2;1;4)&", "&PARÇAAL(G2;1;10)&", "&PARÇAAL(H2;1;20)

Virg&#252;lleri kendiniz koyacaksan&#305;z,

=PARÇAAL(A2;1;10)&PARÇAAL(B2;1;6)&PARÇAAL(C2;1;5)&PARÇAAL(D2;1;5)&PARÇAAL(E2;1;4)&PARÇAAL(F2;1;4)&PARÇAAL(G2;1;10)&PARÇAAL(H2;1;20)

 

[kulomer46]

1. sat&#305;rda sadece rakamlar olsun ( &#214;rne&#287;in "10 karakter" de&#287;il sadece "10" yazs&#305;n)

=B&#304;RLE&#350;T&#304;R(SOLDAN(A2;A1);SOLDAN(B2;B1);SOLDAN(C2;C1);SOLDAN(D2;D1);SOLDAN(E2;E1);SOLDAN(F2;F1);SOLDAN(G2;G1);SOLDAN(H2;H1))

 

[tatar7]

Olmadı

hücre içinde hiç sayısal bir değer düşünmeyelim
30 karakterlik bi hücrem olacak benim ben buna 10 karakterlik yazı yazsamda 40 yazsamda bana 30 karaktermiş gibi birleştirmesi gerekiyor
benim amacım excel deki bazı verileri bu şekilde sayfının birinde toplayıp txt formatına çevirip başka bir programa yüklemek

 

[tatar7]

değerli fikirlerinizi bekliyorum
vba da falan yokmudur
arkadaşlar yardımınız için şimdiden teşekkür ediyorum

 

[Halit TÜRK]

Selam,

Rakamların yanında (,) kullanmayınız..

=PARÇAAL(M(A2);1;5)&PARÇAAL(M(B2);1;5)&PARÇAAL(M(C2);1;5)&PARÇAAL(M(D2);1;5)&PARÇAAL(M(E2);1;5)&PARÇAAL(M(F2);1;5)&PARÇAAL(M(G2);1;5)&PARÇAAL(M(H2);1;5)

=PARÇAAL(M(A2);1;10)&PARÇAAL(M(B2);1;6)&PARÇAAL(M(C2);1;5)&PARÇAAL(M(D2);1;5)&PARÇAAL(M(E2);1;4)&PARÇAAL(M(F2);1;4)&PARÇAAL(M(G2);1;10)&PARÇAAL(M(H2);1;20)

 

[tatar7]

Yardım lütfen

İstemiş olduğum bilgi birleştir komutu ile Alttaki gibi oluyor

çarşdanaldım1500ytllikdomates
çarşıdanaldım2040ytllikpatlıcanbibersalatalık

istemiş olduğum birleştirme şekli ise

çarşıdan aldım 1500 ytl lik domates
çarşıdan aldım 2040 ytl lik patlıcanbibersal

İlgi ve alakanız için teşekkür ediyum arkadaşlar

 

[Halit TÜRK]

Rica ederiz, iyi &#231;al&#305;&#351;malar...

 

[kulomer46]

Ekli Dosyayı inceleyiniz dostum

 

[tatar7]

Arkadaşlar hepinize teşekkür ediyorum

kulomer46 ayriyeten teşekkür ediyorum bu işimi görür müthiş olmuş sen bir harikasın
peki bunda birkaç tane farklı alanlardan farklı verileri alıp diğer sayfada birleştirmem gerekiyor - sonra altta liste halinde onlar ca yüzlerce satırlık veriyi diğer sayfada birleştirecek bunla alakalı bi fikir verirseniz çook sevinirim.
şimdiden Allah razı olsun

 

[kulomer46]

Can&#305;n sa&#287;olsun, i&#351;ini g&#246;rmesi beni &#231;ook memnun etti..

&#220;zerinde i&#351;lem yap&#305;lacak verilerle dolu excel sayfas&#305;n&#305; g&#246;nder, y&#252;zlerce sat&#305;rl&#305;k veriyi istedi&#287;in gibi i&#351;leyecek kodu ekleyelim.

 

[tatar7]

kulomer46

kulomer46 üstadım bu konu üzerinde bi fikir verirsen çok sevinirim kolay gelsin

 

[kulomer46]

De&#287;erli arkada&#351;&#305;m,
G&#246;ndermi&#351; oldu&#287;unuz cal&#305;&#351;ma.xls dosyan&#305;z&#305; inceledim. Ne istemi&#351; oldu&#287;unuzu anlayamad&#305;m. Bo&#351; h&#252;crelere not eklemi&#351;siniz. Daha a&#231;&#305;klay&#305;c&#305; anlat&#305;rsan&#305;z yard&#305;mc&#305; olal&#305;m &#304;n&#351;allah..

 

[tatar7]

Değerli üstadım

tekrar düzenledim inş. bu sefer olmuştur
bu konuda fazla olduğumu biliyorum ama bu konu ile alakalı yardım veya görüşleriniz bekliyorum
saygılarımı sunuyorum

 

[kulomer46]

Ekli dosyayı bir inceleyiniz..

 

[tatar7]

kulomer46

sevgili üstadım size çook teşekkür ediyorum. uzun zamandır uğraşıp duruyordum beni inş. büyük bir yükten kurtaracak bu değerli projeniz
kolay gelsin :mutlu: :bravo:

 

[kulomer46]

Sizede kolay gelsin, g&#252;le g&#252;le kullan&#305;n..