Farklı sayfalardaki aynı sütunu başka bir yere kopyalamak

[elohimmeth]

Merhabalar. Excel de bulunan sayfaların m31 f50 f51 f52 sütunlarını önceden oluşturduğum veriler adlı sayfaya m31 A sütuna, f50 B sütuna, f51 C, sütuna f52 D sütununa gelecek şekilde aşağı doğru sıralamak istiyorum.Fakat eğer m31 f50 f51 f52 sütunu herangi bir sayfada boş ise veriler adlı sayfaya da boş sütun bıraksın istiyorum.Umarım anlatabilmişimdir.Yardım ederseniz çok memnun olurum.

 

[Muhammet Okumuş]

Dosyanızı eklemden cevap bulmanız biraz zor olur.

 

[elohimmeth]

Örnek olarak;

Sub kopya()
For i = 1 To Sheets.Count - 1
Sheets(i).Range("a1").Copy
Sheets("veri").Select
say = WorksheetFunction.CountA([a1:a65000])
Range("a" & say + 1).PasteSpecial
Application.CutCopyMode = False
Next
End Sub

burda her sayfadaki a1 hücrelerini veri adlı sayfaya sırayla aktardım. Fakat sayfaların herhangi birinde a1 hücresi boş ise veri adlı sayfada da boş bırakmasını istiyorum. Excel dosyası şuanda bilgisayarımda olmadığı için ekleyemedim.Makro bu haliyle a1 hücresi boş ise atlamayıp diger sayfanın a1 hücresindeki veriyi onun yerine yazıyor.

 

[Muhammet Okumuş]

Sub kopya()
For i = 1 To Sheets.Count - 1
if Sheets(i).Range("a1")="" then
say = WorksheetFunction.CountA([a1:a65000])
Range("a" & say + 1)=" "
Goto 10
End If
Sheets(i).Range("a1").Copy
Sheets("veri").Select
say = WorksheetFunction.CountA([a1:a65000])
Range("a" & say + 1).PasteSpecial
Application.CutCopyMode = False
10
Next
End Sub

Boş hücreleri " " şu şekil göstererek sonuca ulaşabilirsiniz.

 

[elohimmeth]

Çok teşekkür ederim