Satır atlayarak kopyalamak

[TanerSaydam]

Merhaba;

Yapmam gereken bir çeviri var ve bunun için txt dosyasındaki gereksiz satırları gizlemeli ve işim bitince tekrar görünür yapmalıyım. Bende txt dosyasını excel'e attım ve bir makro koduyla tek rakamlı satırları gizledim. Sonra çevirmem gereken yerleri sayfa2'ye aldım. Böylece karşılaştırmalı çeviri yapabileceğim. İşim bittiğinde tek tuşla Sayfa 2'deki verileri Sayfa1'deki değerlerine aktarmak istiyorum. Yani Sayfa2!A1 >> Sayfa1!A2, Sayfa2!A2 >> Sayfa1!A4,
şeklinde. Makro kodunu yazabilir misiniz

Teşekkürler.
http://www.mediafire.com/file/yw8b6386z2bzq2w/env_batcave202_english.xlsm

 

[Necdet]

Merhaba,

Sayfa1 de veriler varsa bunlar silinecek mi? yoksa son satırdan sonra aktarım işi olacak mı?

Eksik bilgi ile soru sormayın lütfen, insanın aklına bir sürü şeyler geliyor.

 

[TanerSaydam]

Merhaba,

Sayfa1 de veriler varsa bunlar silinecek mi? yoksa son satırdan sonra aktarım işi olacak mı?

Eksik bilgi ile soru sormayın lütfen, insanın aklına bir sürü şeyler geliyor.

Sayfa1'deki veri varsa üstüne yazılacak ama silinmeyecek. Konuyu editleyip tekrar anlattım. Yardımlar için şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir Modul'e kopyalayıp dener misiniz?

Sub Aktar()

    Dim i   As Long, _
        j   As Long, _
        s1  As Worksheet, _
        s2  As Worksheet
    
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    
    Application.ScreenUpdating = False
    
    For i = 1 To s2.Cells(Rows.Count, "A").End(3).Row
        j = j + 2
        s1.Cells(j, "A") = s2.Cells(i, "A")
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "İşlem Tamamlanmıştır.....", vbInformation, "www.excel.web.tr"
    
End Sub