Kolonlardaki bilgileri başka bir sheet de tek kolana almak

[haso_excel]

Merhaba arkadaşlar,

Elimdeki çalışma sayfasında 1+n kadar kolondaki bilgileri başka bir sayfada başlıkları olmadan (ikinci satırdan başlayarak), satırda kolonların toplamları var (en alt satırı almadan) onları da almadan, diğer bir sheetin A kolonunun ikinci satırından başlamak üzere alt alta getirmesi için bir makroya ihtiyacım var. Rica etsem yardımcı olabilir misiniz? Dosyam ekte

 

[haso_excel]

Ben tek kolon için aşağıdaki kodu siteden birşeyler bularak yazdım. Sheet1 e gönderiyorum ama seçili alanı kopyalamıyor. Bundan sonraki süreç diğer koonları sırası ile A kolonunun en alt satırından başlayarak kopyalaması. Yardımcı olursanız sevinirim.

Sub kopya()
Set s1 = Sheets("data")
Set s2 = Sheets("Sheet1")

son = s1.[a65536].End(3).Row - 1
s1.Range("a2:a" & son).Copy

s2.Select
Range("A2").Select

[a2].PasteSpecial

End Sub

 

[muygun]

Merhaba;
Ekli dosyada 4 farklı seçenek var.
İnceleyin. Size uygun olanı bırakın. Diğerlerini silin.
İyi çalışmalar.

 

[haso_excel]

Çok teşekkür ederim ellerinize sağlık. Süper olmuş. Aşağıdaki kod işime yararıyor.

Yalnız 2017_1 başlıklı kolon eğer "T" kolonundan başlarsa kodun neresinde bir değişiklik yapmam gerektiğini çözemedim. Son kez o konuda da bir yardımcı olabilir misiniz rica etsem.

Sub sıfır_dahil_başlıksız()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Sheet1").Range("a1:b65536").ClearContents
Set s1 = ThisWorkbook.Worksheets("2017B_1000 (2)")
Set s2 = ThisWorkbook.Worksheets("Sheet1")
s2.Cells(1, 1) = "TUTAR"

For k = 1 To s1.Range("ıu1").End(xlUp).Column
For i = 2 To s1.Range("A65536").End(xlUp).Row - 1
sonsatir = s2.Range("A65536").End(xlUp).Row + 1
s2.Cells(sonsatir, 1) = s1.Cells(i, k)

Next i
Next k
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

 

[haso_excel]

Bu satır kodda ne ifade ediyor. Ben kodu T kolonundan itibaren başlayacak şekilde düzenlemeye çalışıyorum.

For k = 1 To s1.Range("ıu1").End(xlUp).Column

 

[haso_excel]

Halletim elinize sağlık çok teşekkür ederim.