İki sütunu tek sütuna dönüştürme

[Mdemir63]

Selamlar,

Arkadaşlar dosyamda Adı ve Soyadı altında iki sütun var,Bu sütunları diğer sayfada Adı soyadı olarak tek sütun haline getirmek istiyorum. Nasıl yapabilirim?

Saygılar

 

[Orion1]

Ekli dosyayı inceleyiniz .Butona basınız sayfa2'ye aktaracaktır.

Sub aktar()
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("A2:B65536").ClearContents
sat = 2
For i = 2 To Cells(65536, "B").End(xlUp).Row
    Sheets("Sayfa2").Cells(sat, "A").Value = sat - 1
    Sheets("Sayfa2").Cells(sat, "B").Value = Cells(i, "B").Value & " " & Cells(sat, "C").Value
    sat = sat + 1
Next i
Application.ScreenUpdating = True
MsgBox "Aktarma Yapıldı", vbOKOnly + vbInformation
End Sub

 

[Mdemir63]

Selamlar,
Hocam evet istediğim buydu . Öncelikle çok teşekkür ederim. Öğrenmek için ben bildiklerimi satır sonlarına yazdım (Tabi doğru biliyorsam) Soru işareti koyduğum satırları açıklayabilirmisiniz?

Saygılar sunarım

Sub aktar()
Sheets("Sayfa1").Select 'Sayfa1 seç
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("A2:B65536").ClearContents 'Sayfa2 yi seç A2:B65536 arasını temizle
sat = 2 '?
For i = 2 To Cells(65536, "B").End(xlUp).Row '?
Sheets("Sayfa2").Cells(sat, "A").Value = sat - 1 '?
Sheets("Sayfa2").Cells(sat, "B").Value = Cells(i, "B").Value & " " & Cells(sat, "C").Value '?
sat = sat + 1 '?
Next i
Application.ScreenUpdating = True '?
MsgBox "Aktarma Yapıldı", vbOKOnly + vbInformation
End Sub

 

[Mdemir63]

Selamlar,
Hocam açıklayabilmeniz mümkün mü?

Saygılar

 

[Orion1]

Selamlar,
Hocam evet istediğim buydu . Öncelikle çok teşekkür ederim. Öğrenmek için ben bildiklerimi satır sonlarına yazdım (Tabi doğru biliyorsam) Soru işareti koyduğum satırları açıklayabilirmisiniz?

Saygılar sunarım

Kırmızı ile yazdığım yerlerde açıklamaları mevcuttur.

Sub aktar()
Sheets("Sayfa1").Select 'Sayfa1 seç
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("A2:B65536").ClearContents 'Sayfa2 yi seç A2:B65536 arasını temizle
sat = 2 '?
[COLOR="Red"]'sat değişkenine 2 sabit değerini ata[/COLOR]
For i = 2 To Cells(65536, "B").End(xlUp).Row '?
[COLOR="red"]'2 'den B sütunundaki son satırsayısı miktarı kadar döngüye gir[/COLOR]
    Sheets("Sayfa2").Cells(sat, "A").Value = sat - 1 '?
[COLOR="red"]'A sütunundaki son satıra sat değişkeninindeki değerin 1 eksiğini yaz[/COLOR].
    Sheets("Sayfa2").Cells(sat, "B").Value = Cells(i, "B").Value & " " & Cells(sat, "C").Value '?
[COLOR="red"]'İsim ve soyismi aralarında bir boşluk bırakarak B sütunundaki son satırda birleştir.[/COLOR] 
sat = sat + 1 '?
[COLOR="red"]'sat değişkenine 1 ekle[/COLOR]
Next i
Application.ScreenUpdating = True '?
[COLOR="red"]'yapılan işlemleri ekranda göster.[/COLOR]
MsgBox "Aktarma Yapıldı", vbOKOnly + vbInformation
End Sub

 

[Mdemir63]

Hocam çok teşekkür ederim

Saygılar sunarım