kelimedeki harfleri belirli sayıda tekrar yazmak

[can-can]

merhaba arkadaşlar biliyorum çok basit bir şey fakat fazla bir bilgiye sahip olmayanlar için zor oluyor maalesef.
misal:
merhaba kelimesini mmeerrhhaabbaa şekkinde nasıl yaparım?
yardımlarınızı bekliyorum tesekkurler....

 

[Haluk]

Herzaman "merhaba" kelimesi gibi harf sayısı 7 mi olacak ?

.

 

[can-can]

yok harfler belirli sayıda tekrar yazılsın yeter tesekkurler.

 

[Haluk]

Çözüm için ekli dosyayı inceleyebilirsiniz.

.

 

[can-can]

tesekkur ederim fakat henüz altın üye olamadığımdan dosyaya ulaşamıyorum acaba dosya.co gibi sitelere yüklme şansınız var mı ?

 

[Haluk]

Bence "Altın Üyelik" başvurunuzu hemen yapın.

Bu seferlik, dosyanız aşağıdaki linkte.

http://s7.dosya.tc/server2/s22lbt/can-can.rar.html

Ancak, çözüm formülle yapıldı. Eğer makro ile çözüm istiyorsanız dosyayı boşuna indirmeyin.


.

 

[can-can]

sifre nedir? makro olsa çok iyi olurdu tesekkurler ilginiz için

 

[Haluk]

Şifreyi özel mesajla gönderdim, kolay gelsin.

.

 

[leumruk]

Selamlar,
Makro alternatifi benden olsun:
Metni bir hücreden alacaksanız kelime yerine hücre adresini yazınız.

Sub harf()
deg = "merhaba"
For x = 1 To Len(deg)
For y = 1 To 2
metin = metin & Mid(deg, x, 1)
Next
Next
MsgBox metin
End Sub

 

[can-can]

çok teşekkür ederim hocam sağolun.

 

[can-can]

Selamlar,
Makro alternatifi benden olsun:
Metni bir hücreden alacaksanız kelime yerine hücre adresini yazınız.

Sub harf()
deg = "merhaba"
For x = 1 To Len(deg)
For y = 1 To 2
metin = metin & Mid(deg, x, 1)
Next
Next
MsgBox metin
End Sub

yalnız bu makro yu çalıştıramadım tam olara isteğim şu şekilde :
http://dosya.co/09109frqdyi9/Yeni_Microsoft_Excel_Çalışma_Sayfası.xlsx.html

 

[Saban Sertkaya]

Sayın leumruk hocamın affına sığınarak,

Kodu aşağıdaki şekilde revize edin.

Sub Düğme1_Tıklat()
For a = 1 To [A1048576].End(xlUp).Row
deg = Cells(a, 1)
For x = 1 To Len(deg)
For y = 1 To 2
metin = metin & Mid(deg, x, 1)
Next
Next
Cells(a, 3) = metin
metin = ""
Next
End Sub

 

[can-can]

Sayın leumruk hocamın affına sığınarak,

Kodu aşağıdaki şekilde revize edin.

Sub Düğme1_Tıklat()
For a = 1 To [A1048576].End(xlUp).Row
deg = Cells(a, 1)
For x = 1 To Len(deg)
For y = 1 To 2
metin = metin & Mid(deg, x, 1)
Next
Next
Cells(a, 3) = metin
metin = ""
Next
End Sub

EyvAllah usta tam istediğim gibi çok tesekkur ederim.

 

[Saban Sertkaya]

Merhabalar,

Teşekkürü Sayın leumruk hocamıza yapmanız daha doğru olacaktır. Kodlama kendisine aittir.