Başka Sayfadan Veri Alma

[Suu35]

Merhaba.
Ben 10. sınıf bilişim öğrencisiyim. Öğretmen excelde başka bir sayfadan veri alma ödevi verdi fakat ödev
numara| ad soyad
1
2
3
şeklinde olacak , 2.sayfaya sadece tek, 3.sayfaya çift sayılar gelecek.Hiçbir yerde bunun kodunu bulamadım.Excel'i ingilizce kullanıyorum. Yardım ederseniz sevinirim

 

[asi_kral]

Merhaba
Bir örnek dosya ekler misiniz_?
Siz içerisini hocanın istediği şekilde doldurun gönderin bakalım ona göre yapmaya çalışalım.

 

[Murat OSMA]

Sub Tek_Cift_Ayır()
    Dim Rky As Integer
    For Rky = 2 To Range("A65536").End(3).Row
        If Rky Mod 2 = 0 Then
            Cells(Rky, 1).Resize(, 2).Copy Sayfa2.Range("A65536").End(3)(2, 1)
                Else
            Cells(Rky, 1).Resize(, 2).Copy Sayfa3.Range("A65536").End(3)(2, 1)
        End If
    Next Rky
    Rky = Empty
End Sub

 

[Suu35]

Merhaba
Bir örnek dosya ekler misiniz_?
Siz içerisini hocanın istediği şekilde doldurun gönderin bakalım ona göre yapmaya çalışalım.

Ekli dosyayı görüntüle dgfdgd.xlsx ilk sayfamı bu şekilde yaptım

 

[Suu35]

ödevi c# kullanarakmı yapacağım ?

 

[apocalyt]

formülle düzenledim..kolay gelsin..

 

[Suu35]

çook teşekkürler