Soru Seçili Aralığı Bir sayfadan Diğer sayfaya Kopyalayıp Her Seferinde bir sonraki boş hücreye gelecek şekilde Değer Olarak Yapıştırma.

[hashim86]

Sayfa2 den A1:F12 Aralığını Sayfa 1 de A1den başlayarak, Her makro çalıştığında sonraki boş satıra, sayfa2 deki hücreleri değer olarak yapıştıracak bir makro nasıl yazılır...

 

[YUSUF44]

Deneyiniz:

Sub kopya()
yeni = Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("Sayfa2").[A1:F12].Copy: Sheets("Sayfa1").Cells(yeni, "A").PasteSpecial Paste:=xlValues
End Sub

 

[hashim86]

Deneyiniz:

Teşekkür ederim ♡♡ umarım işe yarar..

 

[1mak1mak]

Deneyiniz:

Merhaba Kodu kendime uyarladım Sayfa1 den Sayfa2 ye D Sütunundaki değerleri atıyorum ancak ben bunu her seferinde bir sonraki Sütuna
kopyalamak istiyorum her seferinde aynı Sütuna yazıyor ilave olarak aralardaki Boş Satırları kaldırıp değerleri "0" dahil Alt Alta gelecek şekilde yapıştırabilirmiyiz. Ekte Örnek dosyayı paylaşıyorum.
Şimdiden Teşekkürler

 

[YUSUF44]

Tam uyarlayamamışsınız maalesef. Satıra kaydetmekle sütuna kaydetmek arasında çok fark vardır. Boşluksuz aktarmak da başka işlem gerektirir. aşağıdaki kodlardan istediğinizi kullanabilirsiniz:

Sub kopya()
yeni = Sheets("Sayfa2").Cells(1, Columns.Count).End(xlToLeft).Column + 1
Sheets("Sayfa1").[D1:D142].Copy: Sheets("Sayfa2").Cells(1, yeni).PasteSpecial Paste:=xlValues
Sheets("Sayfa2").Range(Cells(1, yeni), Cells(142, yeni)).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

Sub kopya()
yeni = Sheets("Sayfa2").Cells(1, Columns.Count).End(xlToLeft).Column + 1
Sheets("Sayfa1").[D1:D142].SpecialCells(xlCellTypeConstants, 23).Copy: Sheets("Sayfa2").Cells(1, yeni).PasteSpecial Paste:=xlValues
End Sub

 

[1mak1mak]

Tam uyarlayamamışsınız maalesef. Satıra kaydetmekle sütuna kaydetmek arasında çok fark vardır. Boşluksuz aktarmak da başka işlem gerektirir. aşağıdaki kodlardan istediğinizi kullanabilirsiniz:

Sub kopya()
yeni = Sheets("Sayfa2").Cells(1, Columns.Count).End(xlToLeft).Column + 1
Sheets("Sayfa1").[D1:D142].Copy: Sheets("Sayfa2").Cells(1, yeni).PasteSpecial Paste:=xlValues
Sheets("Sayfa2").Range(Cells(1, yeni), Cells(142, yeni)).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

Sub kopya()
yeni = Sheets("Sayfa2").Cells(1, Columns.Count).End(xlToLeft).Column + 1
Sheets("Sayfa1").[D1:D142].SpecialCells(xlCellTypeConstants, 23).Copy: Sheets("Sayfa2").Cells(1, yeni).PasteSpecial Paste:=xlValues
End Sub

Çok Teşekkür ederim ilaveler varmış bilmemek kötü ama karşılaştırdım bundan sonra bu konuda soru sormam
diye düşünüyorum elinize aklınıza sağlık.