Personel listesinden puantaj listesi oluşturmak

[bkr-ylmz]

İyi akşamlar,
Ekteki örnek dosyadaki gibi Personel listesinde yazan isimlerin hepsini puantaj tablosuna eklemeye çalışıyorum. Personel sayısı 1000 e yaklaşınca elle yapmak zorlaşıyor, pratik bir yolu var mıdır, teşekkürler

 

[çıtır]

Deneyiniz.

Sub personelListe()
Dim s1 As Worksheet: Dim s2 As Worksheet
Dim i As Integer
Set s1 = Sheets("Sayfa2")
Set s2 = Sheets("Sayfa1")
sat = 4
uz = 5 + WorksheetFunction.Max(s1.Range("A5:a5000")) * 3
For i = 8 To uz Step 3
s2.Range("a" & i - 2) = s1.Range("a" & sat)
If s1.Range("N" & sat) <> "" Then
s2.Range("B" & i - 2) = s1.Range("N" & sat)
s2.Range("B" & i - 2).NumberFormat = "dd.mm.yyyy"
End If
If s1.Range("o" & sat) <> "" Then
s2.Range("B" & i - 1) = s1.Range("o" & sat)
s2.Range("B" & i - 1).NumberFormat = "dd.mm.yyyy"
End If
s2.Range("c" & i - 2) = s1.Range("D" & sat)
s2.Range("D" & i - 1) = s1.Range("C" & sat)
s2.Range("D" & i) = s1.Range("B" & sat)
sat = sat + 1
    Next i
End Sub

 

[bkr-ylmz]

Sayın çıtır, cevap için teşekkürler. Personel listesindeki isim listesini puantaj listesine eklemeye çalışıyorum, yazdığınız kodları denedim tam tersine personel listesinde anlayamadığım şekilde birkaç değişiklik yaptı.

 

[çıtır]

Sayın çıtır, cevap için teşekkürler. Personel listesindeki isim listesini puantaj listesine eklemeye çalışıyorum, yazdığınız kodları denedim tam tersine personel listesinde anlayamadığım şekilde birkaç değişiklik yaptı.

Sayfa isimleri ters olmuş.İlk sayfanız Sayfa2 dikkatimden kaçmış.Kodu düzelttim.Yeniden deneyiniz.

 

[bkr-ylmz]

Teşekkürler, emeğinize sağlık.

 

[çıtır]

Teşekkürler, emeğinize sağlık.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.