Makrolarda satırları dinamik aratma

[mamus165]

Umarım başlığı doğru seçmişimdir.Benim sorunum şu.Örnek olarak excelde A1 DEN başlayıp A100 e kadar giden ingilizce kelimeler var.Ve ben bu kelimelerin türkcesini örneğin a1 in altına satır ekleyerek yazdım ve böylece 100 satırın altını hücre ekleyerek doldurdum.Şimdi tercüme ettiğim bu kelimeleri.başka bir sayfaya alt alta yazmak istiyorum.. ama teker teker seçerek değil o zaman çok karıştırıyorum. Yanlışlıkla orjinal kelimelride seçiyorum.Bunu dinamik olarak yapabilirmiyi.. a2.a4 .a6. a8. gibi 100 e kadar birer atlayarak hücereleri seçip kopyalamak istiyorum.bu mümkünmü?Ve yeni sayfada bunları yine alt alta aralarında satır boşluğu olmadan yazmak istiyorum.Yardımcı olursanız memnun olurum.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub TEST()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For sut = 1 To s1.[a65536].End(xlUp).Row Step 1
s1.Range("a" & sut).Copy
s = s + 1
s2.Range("a" & s).PasteSpecial
Next
Application.DisplayAlerts = False
End Sub

 

[hamitcan]

Alternatif;

Sub NN()
For i = 2 To [a65536].End(3).Row Step 2
c = c + 1
Sayfa2.Cells(c, 1) = Cells(i, 1)
Next
End Sub

 

[mamus165]

Umarım başlığı doğru seçmişimdir.Benim sorunum şu.Örnek olarak excelde A1 DEN başlayıp A100 e kadar giden ingilizce kelimeler var.Ve ben bu kelimelerin türkcesini örneğin a1 in altına satır ekleyerek yazdım ve böylece 100 satırın altını hücre ekleyerek doldurdum.Şimdi tercüme ettiğim bu kelimeleri.başka bir sayfaya alt alta yazmak istiyorum.. ama teker teker seçerek değil o zaman çok karıştırıyorum. Yanlışlıkla orjinal kelimelride seçiyorum.Bunu dinamik olarak yapabilirmiyi.. a2.a4 .a6. a8. gibi 100 e kadar birer atlayarak hücereleri seçip kopyalamak istiyorum.bu mümkünmü?Ve yeni sayfada bunları yine alt alta aralarında satır boşluğu olmadan yazmak istiyorum.Yardımcı olursanız memnun olurum.

Çok sağolun teşkkür ederim işe yaradı.