Satırların yerını değiştirme

[ogzerdogan]

9000 satırlık bır exel dosyam var ve

baştan itibaren her 1.satır:ingilizce anlamı ,2.satır datürkçe anlamı yazıyor anacak bunların yerlerını değiştirmek istıyorum.işlem bittiğinde 1. Satır türkçe 2. Satır ingilizce olucak

9000 satır için bu boyle olucak .tüm tek satırlar ingilzce ,çift satırlar türkçe .

 

[Necdet]

Veri 1. satırdan mı başlıyor? ve hangi sütunda?
En önemlisini söylemiyorsunuz.
www.dosta.tc gibi paylaşım sitelerinden birine örnek basit bir dosya eklerseniz kod yazacak arkadaşlar için ayrıca veri oluşturma zahmetinden kurtarırsınız.

Aşağıdaki kodlar A sütunu için çalışır. Verinin 1. satırdan itibaren olduğu varsayılmıştır.

Sub AltSatirUstSatira()

    Dim i As Long
    Dim t As String
    
    Application.ScreenUpdating = False
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row Step 2
        t = Cells(i, "A")
        Cells(i, "A") = Cells(i + 1, "A")
        Cells(i + 1, "A") = t
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "İşlem Tamamdır....", vbInformation, "excel.web.tr"
    
End Sub

 

[ogzerdogan]

3. Satırdan başlıyor 9613 te bitiyor .

3. Satırdaki ifade ingilizce
4. Satırdaki ifade türkçe


---------------------------
teşekkürler

 

[Necdet]

Döngüdeki i değerini 3 ten başlatın.

For i = 3 ......

 

[ogzerdogan]

Sub AltSatirUstSatira()

Dim i As Long
Dim t As String

Application.ScreenUpdating = False

For i = 3 To Cells(Rows.Count, "A").End(9613).Row Step 2
t = Cells(i, "A")
Cells(i, "A") = Cells(i + 1, "A")
Cells(i + 1, "A") = t
Next i

Application.ScreenUpdating = True

MsgBox "İşlem Tamamdır....", vbInformation, "excel.web.tr"

End Sub

olucak o zmn,teşekkürler