Koşullu (Boşluk Silerek) Veri Aktarma

[askm]

Kolay gelsin.
Ekteki dosyada sayfa1 deki verileri sayfa2 ye aktarmak istiyorum. Aralardaki boş satırları atlayacak.
İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Murat OSMA]

Merhaba Ali Bey,

Bu kodları kullanabilirsiniz..

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    s% = 21
    For i% = 2 To Sayfa1.Range("A65536").End(3).Row
        If Sayfa1.Cells(i, 1).Value <> "" Then
            Sayfa2.Cells(s, 1).Value = Split(Sayfa1.Cells(i, 3).Value, "/")(0)
            Sayfa2.Cells(s, 3).Value = Split(Sayfa1.Cells(i, 3).Value, "/")(1)
            Sayfa2.Cells(s, 5).Value = Split(Sayfa1.Cells(i, 6).Value, " ")(0)
            s = s + 1
        End If
    Next i
    i = Empty: s = Empty
End Sub[/SIZE][/FONT]

 

[askm]

Murat Bey çok teşekkürler. Elinize zihninize sağlık.

 

[Murat OSMA]

Rica ederim, iyi akşamlar.​

 

[askm]

Murat Bey bir sorun oldu. Office 2010 64 bitte çalışıyor. Ama 2013 de çalışmıyor. Birde kod ile verileri aldığımız zaman hücreye göre işlem yapan farklı sütunlar işlem yapmaz oldu. Bunun güvenlik ayarları ile ilgisi olabilir mi.