Makro ile Kelimenin Başına ve Sonuna Kelime ekleme.

[ahzola]

Merhabalar;

A sütununda şu şekilde bir listem var.

KARANFİL
SÜMBÜL
GÜL
HANIMELİ
ORKİDE
YASEMİN
LALE
PAPATYA
NERGİS
LEYLAK
YABAN GÜLÜ
…………..
…………..
…………..
…………..

B sütununda

HERCAİ MENEKŞE var.

Yazılacak makro ile

D sütununda

HERCAİ MENEKŞEKARANFİL
HERCAİ MENEKŞESÜMBÜL
HERCAİ MENEKŞEGÜL
HERCAİ MENEKŞEHANIMELİ
HERCAİ MENEKŞEORKİDE
HERCAİ MENEKŞEYASEMİN
HERCAİ MENEKŞELALE
HERCAİ MENEKŞEPAPATYA
HERCAİ MENEKŞENERGİS
HERCAİ MENEKŞELEYLAK
HERCAİ MENEKŞEYABAN GÜLÜ
…………..
…………..
…………..
…………..

ve E sütununda da

KARANFİLHERCAİ MENEKŞE
SÜMBÜLHERCAİ MENEKŞE
GÜLHERCAİ MENEKŞE
HANIMELİHERCAİ MENEKŞE
ORKİDEHERCAİ MENEKŞE
YASEMİNHERCAİ MENEKŞE
LALEHERCAİ MENEKŞE
PAPATYAHERCAİ MENEKŞE
NERGİSHERCAİ MENEKŞE
LEYLAKHERCAİ MENEKŞE
YABAN GÜLÜHERCAİ MENEKŞE
…………..
…………..
…………..
…………..
…………..
…………..


bu şekilde yazılmasını istiyorum.

Özetle :

B sütunundaki kelimeyi A sütunundaki kelimelerin önüne ve arkasına ekleyecek.

B sütunundaki Kelimeyi A sütunundaki Listede bulunan kelimelerin önüne yazdıklarını D sütununa
arkasına yazdıklarını E sütununa aktaracak.

Konuya hakim arkadaşlarımızın yardımlarını bekliyorum

saygılarımla.

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırarak dener misiniz?

Sub EkleAktar()
    For i = 2 To [A65536].End(3).Row
        Cells(i, 4).Value = [B2] & Cells(i, 1).Value
        Cells(i, 5).Value = Cells(i, 1).Value & [B2]
    Next
End Sub

 

[ahzola]

Çok teşekkür ederim

Sayın dEdE.

İyiki varsınız.
Herşey gönlünüzce olsun.

 

[ahzola]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırarak dener misiniz?

Sub EkleAktar()
    For i = 2 To [A65536].End(3).Row
        Cells(i, 4).Value = [B2] & Cells(i, 1).Value
        Cells(i, 5).Value = Cells(i, 1).Value & [B2]
    Next
End Sub

Sayın dEdE

İyi günler diliyorum.
Makromuzu başka bir dosyada kullanacağım.
küçük bir revizyon yaparsanız çok sevinirim.

B2 deki veriyi A sütununda bulunan verilerin hem sağına hem soluna ekliyorduk.

Şimdi ise B2 deki veriyi A sütunundaki verilerin sadece sağına
bir boşluk bırakarak ekleyeceğiz.
Yazdırmaya da 6. satırdan itibaren başlayacağız
1 satır yazıp 2 satır boşluk bırakıp sonra tekrar yazacak şekilde ayarlayacağız.
6 satırda ki verinin sonuna B2 deki veriyi bir boşluk bırakarak ilave edecek.
7 ve 8. satırdaki verileri es geçip. 9. satırdaki verinin sonuna yine bir boşluk bırakarak
B2. deki veriyi yazacak. 10 ve 11 satırları es geçip 12 satıra aynı şekilde yazacak böyle
devam edecek.

yardımlarınız için şimdiden teşekkür ederim.

saygılarımla.

Edit : Genele yaymak adına yeni konu açtım.
http://www.excel.web.tr/f48/makro-ile-satyr-atlatarak-veri-birle-tirme-t123769.html