a sütundan sutundan değer aktarma

[birayfil]

a sütunundan boş olan sütuna değer aktarma

sayfa 1 de sabit olan a sutunundaki değerleri

sayfa 2 deki a satırında sağında son boş olan sütuna aktarmak istiyorum.

şimdiden teşekkür ederim.

ilave olarak
birde ayrıca hangi sütuna aktaracağımızı kendimiz seçebiliyormuyuz.

 

[apocalyt]

dosya ekleyip onun üzerinden açıklama yaparsanız daha hızlı cevap alabilirisiniz..

 

[YUSUF44]

Aşağıdaki kodları bir modüle ekleyip çalıştırabilrisiniz:

Sub sütunaktar()
'
' sütunaktar Makro
'

'
    Set s1 = Worksheets("sayfa1")
    Set S2 = Worksheets("sayfa2")
    s1.Columns("A:A").Copy
    S2.Select
    a = S2.Range("A1").End(xlToRight).Column
    Cells(1, a + 1).Select
    ActiveSheet.Paste
    Range("A1").Select
    s1.Select
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

Sayfa1'in A sütununu kopyalar, Sayfa2'nin 1. satırındaki ilk boş hücrenin olduğu sütuna yapıştırır. Eğer 1. satırda boş hücre olan sütunlarda kullanılırsa üstüste yapıştıracağından işinizi görmez. Yani Sayfa1'in A1 hücresinin her zaman dolu olması gerekir. A1 boş olursa bir sonraki işlemde aynı sütuna yapıştırır.

 

[birayfil]

1 nci aktarıyor 2 nci de Cells(1, A + 1).Select hatası veriyor.

çalışıyor pardon

eline koluna sağlık çok teşekkür ederim.

 

[YUSUF44]

Bende öyle bir problem olmadı. Her çalıştırdığımda sayfa2'de yeni sütuna yapıştırma yapıyor. Hatalı olan örnek dosyanızı ekleyin, bakalım.