hücreleri birleştirip yazmak

[udentr2002]

Merhaba,

Dosyamda yaklaşık 5000 satırlık veri var. Yapmak istediğim. Bir buton yardımı ile a stünündaki yazan veri ile B stünundaki hücrelerde yazan veriyi birleştirip yine b stünuna yazmak. Örnek verecek olursam

A2 hücresinde ahmet yazsın
B2 hücresinde ise mehmet yazsın

Bir butona tıkladığımda

B2 hücresine ahmet / mehmet yazsın

bunu 5000 satıra kadar aynı şekilde yazması yani b3 hücresine de A3 ile B3 hücrelerini birleştirip yazacak
Bunun için nasıl bir şey yapabilirim. Yardımcı olan tüm arkadaşlara teşekkür ederim.

İyi Çalışmalar

 

[zafer]

Merhaba

Aşağıdaki kodları kendi dosyanızda deneyiniz.

F8 ile kodlar üzerinde satır satır ilerlerseniz değişkenlerin durumuna bakıp sonra kendinize göre geliştirebilirsiniz.

Sub birl()

son = Cells(65000, 1).End(xlUp).Row

For i = 1 To son
asutun = Cells(i, 1)
bsutun = Cells(i, 2)
bbirl = asutun & " / " & bsutun

Cells(i, 2) = bbirl
Next


End Sub

 

[uzmanamele]

merhaba

alternatif olsun

Sub birlestir()

    Range("C2").FormulaR1C1 = "=RC[-2]&"" / ""&RC[-1]"
    Range("C2").Copy Range("C3:C5000")
    Range("C2:C5000").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

[udentr2002]

Zafer hocam elinize sağlık. Allah razı olsun.

Uzman amele hocam ilgilendiğin için teşekkürler