makro ile kopyalama ve yapıştırma

[hsayar]

bilemiyorum

 

[baris74]

Arkadaşlar c ve d sütunundaki hücrelerde değerler var ben bunları kopyamak istiyorum fakat sütunlarda düzensiz sıfırlar var onların kopyalanmasını istemiyorum.
Kopyalama işleminden sonra verilerimi başka programa yapıştıracam bana bu konuda makro yazarak yardımcı olabilirmisiniz

Teşekkürler

 

[baris74]

yardımcı olacak yokmu

 

[Mx@Raid]

Sub Kopyala()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s1.Range("A2,A4,A6,A8,A10").Select
Selection.Copy
s2.Select
s2.Range("A1").Select
ActiveSheet.Paste
s1.Select
s1.Range("2:2,4:4,6:6,8:8,10:10").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub

Bu yöntemdeki A2 ile A10 arasındaki hücrelerin hepsini tek tek yazmak yerine satır atlayarak a10'a kadar
nasıl tanımlayabilirim.

Yine 2:2 ile 10:10 arasını tek tek yazmak yerine 2:2 ile 10:10 arasında nasıl
bir uygulmadan sonra 10:10 yazabilirim. Verdiğim bu örnek kısa aralıklar içeriyor.

Aslında D2 ile D3600 arasında değerleri seçmem gerekiyor ki bu da oldukça zor bir iş.

İşlem yapacağım hücre aralığı d2'den d3600'e kadar, Yine 2:2 ile 3600:3600 aralığını
kulanacağım; yalnız örnekte de verdiğim gibi birer satır atlayarak hücre seçmem gerekiyor.(D2: D3600) uygulması
benim işimi çözecek bir sonuç değil çünkü iki aralık içerisinde bütün hücreleri seçmek değil amacım.

Neden bu kadar satır var diyecek olursanız normalde 1800 kişinin listesi mevcut
ama dosyayı hazırlayan arkadaş pdf olarak göndermiş hazırladığı tabloda isim soyisimleri alt alta yazmış Excel'e dönüştürdükten
sonra soyisimlerin yer aldığı hücreleri kopyalayıp başka bir sayfaya aktardıktan sonra boşalan hücreleri silip isimlerinin
yanındaki hücreye aktarmam istendi; e haliyle tek tek o kadar hücreyi seç, kopyala, yapıştır oldukça uzun zaman isteyen işlem bunun
yerine makro nasıl olur düşüncesiyle bu yöntemi uygulamak istiyorum ki, elimde belirttiğim oranda en az 10 dosya var. İşin içinden
çıkamayınca forumdaki arkadaşlardan yardımla çözebilirim umuduyla konu hakkında araştırdım ama ya bilgi yetersizliği ya da tamda benim
isteğim sonuca cevap verecek konuları göremediğim için iki üç gündür debelenip duruyorum.

İşin doğrusu buna en kısa zamanda cevap alabilirsem iyi olacak.
işi veren deyim yerindeyse ensemde boza pişiriyor.

Umarım konu hakkında yardımcı olabilirsiniz.

Teşekkürler.