hücreye yazılanlar birer karakter boşlukla görünsün

[necip54]

Herkese selamlar,
Kalvye ile hücreye H5Y9 yazdığım zaman bu yazılanlar hücre içinde
H 5 Y 9 olarak yer alsın. Yani her karakterin aralarında birer boşluk olmasını sağlayabilir miyiz? :?

Bu işlem makro ile olursa işime yaramaz, ancak biçimlendirme ile olursa daha pratik olur veya başka çözüm bulan olursa şimdiden teşekkür ederim.
necip54

 

[Hüseyin]

Sayın necip54,
sorunuzu karşılayacak bir biçimlendirme dizilimi aklıma gelmedi.
Diğer arkadaşlardan bir öneri gelebilir belki, ancak ben bu arada bir makro kodu eklemek istedim.

Sub arala()
karakter = Len(ActiveCell.Value)
deger = ActiveCell.Value
For i = 1 To karakter
parca = Mid(deger, i, 1)
yenideger = yenideger + parca + " "
Next
ActiveCell.Value = Trim(yenideger)
End Sub

Siz makro ile olmaz diye belirtmişsiniz, bunu unutmadım. Ancak konuyu okuyan başka arkadaşlara fikir verebilir diye ekledim.

 

[Haluk]

Makro haricinde bir çözümü ben de bulamadım.

Eğer sözkonusu verilerin karakter sayısı her zaman aynı ise, örneğin 4 ise o zaman başka bir sütunda A1 hücresindeki 4 karakter uzunluğundaki bir veri için aşağıdaki formül kullanılabilir;

=MID(A1;1;1) &" "& MID(A1;2;1) & " " & MID(A1;3;1) & " " & MID(A1;4;1)

 

[necip54]

Sn Hüseyin bey ve Sn Raider, çözüm önerileriniz için teşekkür ederim.
Ben bu birer aralıklı yazdırma işlemini bir ödeme formunda şifre kaydedilen hücrede kullanmak istemiştim. Başka bir excel kitabında daha önceden kaydedilmiş ve toplam 4 karakterden oluşan ve harf ve rakamlardan oluşan(bir şifrede 4 karakterin birkaçı rakam geri kalanı harf ve karışık düzende) olan yüzlerce şifeden sırası gelen şifre makro ile bir hücreye seçiliyor ve yapıştırlıyor(büyükçe boyda). Ben bu şifreyi tamamen ayrı bir excel formunda (ödeme talimatı) sağ üst köşede o ödeme için kullanmak durumundayım.Karşı taraf da aynı şifreler olduğundan ahangi şifrenin sırasının geldiğini o da biliyor ve benim gönderdiğim şifre ile kontrol ediyor, çakışıyorsa ödeme yapılıyor yoksa hayır, isterse altında imza mühür ne olursa olsun imkansız. İşte bu sebepten dolayı bu makro ile elde edilen şifrenin hiç değişitirilmeden(aynı kombinasyonda hiçbir karekterin yerleri bile değişmemesi gerekli) bahsettiğim formdaki hücreye yazılması gerekir. Bunu daha önce el ile girişler yaparak yürütürken bazen hatalar yaptığımız oldu, ya yanlış bir karakter yazıldı ya da yerleri değiştirilip yazıldı velhasıl işler aksadı, tekrar yazıldı düzeltildi, bir sürü zaman kaybı. Hal böyle olunca elde edilen şifreyi COPY, PASTE yöntemiyle forma aktarınca yanlışşıklar oluşmadı ama bu sefer de karakterler birbirine yakın olduğundan faks ile gönderirken görüntü kaybından olsa gerek karşı taraftan iyi okunamama
problemleri oluştu gene telefonlar edilmeye başlanıldı. Bu problemi de şöyle aştık, PASTE edilen şifre karakterleri aralarına girilerek birer aralık verildi, olay aslında böyle iyi gidiyordu ve aklıma acaba bunun kolay bir yönü olur mu sorusu geldi ve biçimlendirme ile olsa en pratiği olur diye düşündüm(word de bu işlem var çünkü, belki excel de de vardır dedim)
ama excel de böyle bir biçimlendirme yokmuş.

Yani benimkisi "bundan iyisi Þam da kayısı" örneği.

Gene de bir kod yazılıp klavyenin numaralar kısmındaki "enter" tuşuna basılcınca aktif olup aktif hücreyi bu şekilde biçimlendirse diye hayal ettiydim ama bu da beni aşar.

teşekkürler
necip54

 

[Haluk]

@necip54:

Eğer VBA ile çözüm isterseniz o zaman işimiz kolay.

Yukarıda Huseyin tarafından verilen kodu boş bir modulün içine yerleştirin ve ilave olarak da aşağıdaki Autpen ve Auto_Close prosedurlerini aynı modul içine yerleştirin.

Hücreye veriyi girdikten sonra klavyedeki F11 tuşuna basın, isteğiniz gerçekleşecektir. Dilerseniz aynı şekilde Enter tuşu ile de yapılır tabii ama, kullanıcıya bu tuş daha çok lazım olabilir.

Söz konusu module yerleştirilecek kodlar:

Sub Auto_Open()
    Application.OnKey "{F11}", "arala"
End Sub
'
Sub arala()
    karakter = Len(ActiveCell.Value)
    deger = ActiveCell.Value
    For i = 1 To karakter
    parca = Mid(deger, i, 1)
    yenideger = yenideger + parca + " "
    Next
    ActiveCell.Value = Trim(yenideger)
End Sub
'
Sub Auto_Close()
    Application.OnKey "{F11}"
End Sub

Kodları yapıştırdıktan sonra dosyayı kaydedip, kapatın ve daha sonra tekrar açın. Denemenizi yapın....

 

[necip54]

Sn Raider
VBA ile önerdiğinizi uyguladım, benim işimi kolaylaştırdı.Makro dan ne farkı var diye bana kızmayın ben F11 tuşunu tercih ettim.
Çok teşekkürler
necip54

 

[Hüseyin]

Sayın @necip54,
şöyle bir çözüm olabilirmi.
Sayfanın bir yerine Print butonu koyalım. Yazdırma için buraya basmak gereksin.
Bu buton önce hücredeki veriye benim yukarıda yazdığım makro ile aralarına birer boşluk eklesin.
Print etsin ve sonrasında aynı işlemin tersini yaparak hücredeki boşlukları yok edip eski haline getirsin.

Bu şekilde olurmu?

 

[necip54]

Sn Hüseyin bey,
Sn Raider in biraz önceki çözümü benim için yeterlidir.
makro ve ek butonlar baştan da söylediğim gibi tercihim değil, çünkü bu formlar ne kadar sade olursa o kadar makbul olacak, bence raider in çözümü yeterli.

Çok teşekkürler
necip54

 

[necip54]

Sn Hüseyin bey,

Bu mesajı yazıp bitirmeden önce excel.gen.tr deki forumdan atılmış olduğumu öğrendim. Sebebi:
Ben bu soruyu excel.gen.tr deki foruma birkaç gün önceden sormuştum. Malum ya bayağı önceden faaliyete geçen forum ve ben de 3-4 senedir oraya üyeyim ve birçok soruma daha önceleri çok mükemmel cevaplar ve çözümler aldım. Onlara minnettarım.
Bu soruma da makro ile ve de yan hücreye yazılacak formüllerle çözüm önerdiler fakat tam benim istediğim olmadığı için tatmin olmadım. Sizin site ile atışmaları da bu arada sıkça okuma fırsatı bularak varlığınızı öğrendim ve belki bir çözüm buluruz diye soruyu size de sordum. Bence bir mahsuru olmaması gerekirken, oradan bir cevap geldi gelen cevapta "bu arada bizim excel bilgimizden şüpheniz var ki aynı soruyu başka siteye de sormuşsunuz" ifadeli bir cevap aldım ve konuyu kilitleyeceklerini ifade etmişler. Ben de olabilir diye düşündüm. Site onların ve istediklerini yapabilirler. Ama konuyu sadece bana kilitlediler ve kendileri birbirlerine çeşitli iltifatlarla benim konum vasıtasıyla kilt kırma özgürlüklerini de kullanarak beni tii ye almaya başladılar.

Sizden ve herkesden ricam oradaki Excelde Kategorisiz Konular bölümünde "hücreye yazılanların birer boşluk bırakarak görünmesi" başlıklı benim sorum ile ilgili bölümdeki son 3-4 mesaja bakıp benimle nasıl alay ettiklerine bakarmısınız.

"hücreye yazarken birer boşluk bırakarak yazmak" fikrini hiç kimse düşünmemiş miş. Güzel espri yapmış, ismini şimdi göremiyorum galiba Cemil Gökmen.
Ben bu muameleyi görecek bir şey yapmadığımı zannediyorum.

necip54

 

[Haluk]

@necip54:

Durumunuza üzüldüm....... ben de oradan banlanmış olduğum için bahsettiğiniz mesajı görme imkanım yok.

Ancak, mesajınızda bahsettiğiniz Cemil Gökmen bey'in size karşı rencide edecek ifadede bulunacağına hiç ihtimal vermiyorum. Son derece beyefendi bir kişidir. Kendisini sizin de forumdan yeteri kadar tanıdığınızı tahmin ediyorum.

 

[necip54]

Sn Raider,
Ben de çok şaşırdım. Dediğim gibi ""hücreye yazarken birer boşluk bırakarak yazmak" fikrini neden düşünmediklerini(bir birlerine hitap ediyorlar) yazan kimse sanki benimle alay etmek için yazdığını zannettim.

Neyse hoş şeyler değil, kimseye kızgın değilim, kendim hariç.

necip54

 

[Hüseyin]

Sayın necip54,

olay üzücü.
Ancak sizinde söylediğiniz gibi:

Site onların ve istediklerini yapabilirler

Bu durum tabiiki insanları aşağılama hakkını vermez.

Sizin site ile atışmaları da bu arada sıkça okuma fırsatı bularak....

ifadenizden bizim görüşlerimizi ve tutumumuzu gördüğünüzü umuyorum.

Bu durumda geriye söylecek tek bir cümle kalıyor:
"Aramıza hoşgeldiniz."

 

[jale]

Hoşgeldiniz

Hoşgeldiniz Necip Bey :hey:

Her ne kadar ben evsahibi pardon dilim sürçtü forum sahibi değilsemde yinede size hoşgeldiniz demek istedim. :hiho:

Burada huzuru yakalamanızı dilerim. Ayrıca sorduğunuz soruda çok güzel ve mantıklı bir soru.

 

[Serkan Düzcan]

Sn Hüseyin bey,
"bu arada bizim excel bilgimizden şüpheniz var ki aynı soruyu başka siteye de sormuşsunuz" ifadeli bir cevap aldım ve konuyu kilitleyeceklerini ifade etmişler. Ben de olabilir diye düşündüm. Site onların ve istediklerini yapabilirler.

Bu sözü ben söyledim çünkü Sn necip54 malum konunuza bunun mümkün olmadığını söyledik ve makrolarla 2 tane alternatif sunduk, ama buna rağmen cevaplarımızı görmezden gelip konuyu uzattınız ve üzerine birde bu foruma sordunuz ki bu yukarda söylediğim sözü kanıtlar. 2 yıldır forumdaysanız, cevaplanmış sorular kilitlenir biliyor olmanız gerekir.

Ve bu foruma gelip beni banladılar, bana şu şekilde davrandılar demenizi anlamış değilim, amacınız kavga çıkarıp seyretmek mi. Vefa borcunuzu bu şekilde mi ödüyorsunuz.

@Forum admin ve yöneticilerine.
Eğer forumunuz huzurunun bu tür tartışmalar ile bozulmasını istemiyorsanız, bu konularda tavrınızı net koymanızı rica ediyorum.

 

[necip54]

Teşekkürler Jale hanım,
Kendimi ille de haklı gösterme gibi bir gayret içinde değilim.Siz sanırım oradan henüz atılmadınız, benim konuyu inceleyebilirsiniz. Ã?zellikle konu bana kapatılınca sorumluların birbirlerine yazdıkları ve benim de özellikle görmem için görüntüye açık bıraktıkları fakat cevap verememek şartiyle benimle alay edilen 3-4 mesajı görmenizi isterim.
Onlara göre benim kabahatim "yasaklanan meyvayı yemek" Adem/Havva/Elma yani bu siteye de üye olup aynı soruyu bir de buraya sormam oldu. Cennetten kovulduk ama benim düştüğüm dünya da pek ıssız değil, yabancılık çekmeyeceğim. Çook eskiler de var.

Kolay gelsin,
necip54

 

[jale]

Çok üzgünüm Necip Bey bu konuda size yardımcı olamam.Ben o foruma asla bir daha girmeyeceğimi söyledim ve hiç bir nedenden dolayı giremem de.Benim için o defter bitti.

 

[necip54]

Sn Serkan Düzcan,
Ben sizin önerilerinize ve çözümlerinize teşekkür ettim. Bir de bu tarafa sorayım dedim belki birisi bir başka şey önerir diyerek, iyiki de sormuşum. Raider'in de önerisiyle ve benim de belki şöyle olsa olur ama beni aşar şeklinde cevaplarımla benim istediğim(siparişim değil yanlış anlaşılmasın, bana göre olan) çözümü bulduk. Ben isterdim ki bu çözümü sizinle beraberce bulalım, ama eminim ki tahammül edilseydim bulunacaktı.
Sizden de ricam benim konuyla ilgili olarak "konu kapatıldıktan" sonraki benim cevap veremediğim son 3-4 mesajı tarafsız olarak okuyun ve benimle alay edilmediğini söyleyin.

Sahi, ben hiç cevap vermediğim halde neden atıldım?
necip54

 

[Serkan Düzcan]

Benim önerdiğim çözümle Sn Raider ın verdiği kodlar mantık olarak aynı, tek farkı biri hücreye veri girince çalışıyor diğeri F11 tuşuna basınca. Ama siz bu cevabı irdelemeniz kanatindeyim, denediğinizden dahi şüpheliyim. Tahammül edebilseydiniz diyorsunuz, forumda birçok soruyu bilirsiniz 20 leri geçen cevaplar hala çözülmesse maille dosyayı isteriz. Fakat kaçırdığınız nokta biz değil siz tahammül edemediniz ve birgün cevap gelmeyince bu forumada sordunuz. Zaten gelişen olaylar bundan sonradır.

Sadece sizden ricam neden bana böyle yapıldı tarzı mesajlarınızı burda devam ettirmemeniz. Bu forumun ve sizin huzurunuzu daha fazla kaçırmak istemiyorum.

 

[Hüseyin]

Konu Kapanmıştır.