birer sıra atlayarak veri alma

[Fatih Şenkulak]

herkese merhaba

excel 1.sayfadaki verileri
2.sayfaya 1'er sıra boşluk bırakarak almak istiyorum

teşekkürler

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

Sub Kopyala_Satır_Ekle()
    Dim a As Byte, c As Integer
    Range("B3:F" & Range("C65536").End(3).Row).Copy
    Sayfa2.Select
    Range("B3").PasteSpecial xlPasteAll
    [B4].Select
    a = 2: c = 2
    While ActiveCell.Value <> ""
        c = c + 2
        ActiveSheet.Rows(c).Insert Shift:=xlDown
        ActiveCell.Offset(a, 0).Select
    Wend
    a = Empty: s = Empty
End Sub

 

[Fatih Şenkulak]

sayın murat osma

hızlı cevap için teşekkürler
denedim çalışıyor

teşekkür ederim

 

[Murat OSMA]

Rica ederim Fatih Bey, iyi günler.