Makro ile sütundaki dolu hücreleri kopyalamak

[Fatihckck]

Herkese merhaba iyi forumlar,

Farklı bir excel dosyasından hücre kopyalacağım ancak almak istediğim sütundaki sadece dolu hücreleri almak istiyorum.

Mesela D sütununda 5. satırın altındaki sadece dolu dosyaları kopyala diyebileceğim bir makro istiyorum.

Mevcuttaki makrom:
kaynak.ActiveSheet.Range("D5").Copy ThisWorkbook.ActiveSheet.Range("urunkodlari")

Yardım eden arkadaşlara teşekkür ederim.

 

[alicimri]

Kaynak dosyadaki verileriniz liste halinde ve aralarda boş satırlar yoks ise CurrentRegion kullanarak
kaynak.ActiveSheet.Range("D5").CurrentRegion.Copy ThisWorkbook.ActiveSheet.Range("urunkodlari")
Kaynak dosyadaki verileriniz dağınık bir durumda ise dosyaların durumunu görmek gerek.
tcdosya gibi dosya bir paylaşım sitesine örnek dosya ekleyin.

 

[Muzaffer Ali]

Merhaba.

kaynak.ActiveSheet.Range("D5:D" & Rows.Count).SpecialCells(xlCellTypeConstants, 23).Copy ThisWorkbook.ActiveSheet.Range("urunkodlari")

 

[alicimri]

Veriler dağınık ise

adr = Split(kaynak.ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 23).Address, ":")
kaynak.ActiveSheet.Range(adr(0) & ":" & adr(UBound(adr))).copy ThisWorkbook.ActiveSheet.Range("urunkodlari")

 

[Fatihckck]

Merhaba teşekkür ederim ilginiz için

Kopyalanacak excelin linki :

Kopyalanacak_Sutun.xlsx dosyasını indir - download

Kopyalanacak_Sutun.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

Yapıştırılacak makrolu excel linki :

Hucrelerin_Yapistirilacagi_Tablo.xlsm dosyasını indir - download

Hucrelerin_Yapistirilacagi_Tablo.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[Fatihckck]

Merhaba teşekkür ederim ilginiz için

Kopyalanacak excelin linki :

Kopyalanacak_Sutun.xlsx dosyasını indir - download

Kopyalanacak_Sutun.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

Yapıştırılacak makrolu excel linki :

Hucrelerin_Yapistirilacagi_Tablo.xlsm dosyasını indir - download

Hucrelerin_Yapistirilacagi_Tablo.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

Yapıştırılacak olan satırların altında boşluklar olması gerekiyor yapıştırırken boşluk nasıl bırakabilirim bana bir yol gösterebilir misiniz ?
Yapıştıracağım hücrelere ad tanımladım ancak bu eylem çoklu seçimlerde çalışmaz hatası alıyorum.

 

[alicimri]

Ad tanımlama yapmanız gerekmez. Aşağıdaki kod işinize yarayabilir.

Sub aktar()
son = kaynak.ActiveSheet.Cells(Rows.Count, 4).End(3).Row
bas = 7
For i = 5 To son
ThisWorkbook.ActiveSheet.Cells(bas, 9).Value = kaynak.ActiveSheet.Cells(i, 4).Value
bas = bas + 2
Next
End Sub

 

[alicimri]

bas = 7 satırını
bas = 17 olarak değiştirin yanlış yazmışım.