kodlarda değişiklik

[Erdinç FIRTINA]

Değerli Üyeler,
Aşağıdaki kodları, belirlenen kriterlere göre veri alarak başka bir sayfaya veri aktarıyorum. Bu verileri aktarırken ilgili sayfanın A sütununa sıra no vermek için kodlarda ne gibi bir değişiklik yapılmalıdır?

Yardımlarınız teşekkürler!!!

Private Sub CommandButton1_Click()
Sheets("ÖĞRENCİBİLGİLERİ").Select
Set sh = Sheets("ÖĞRENCİBİLGİLERİ")
sonsat = sh.Cells(65536, 2).End(xlUp).Row
ListBox1.Clear
ListBox1.ColumnCount = 5
ListBox1.ColumnWidths = "20;100;50;50;50"
For i = 2 To sonsat
x = ListBox1.ListCount
If Cells(i, 6) = "ERKEK" Then
ListBox1.AddItem
ListBox1.List(x, 0) = Cells(i, 1)
ListBox1.List(x, 1) = Cells(i, 2)
ListBox1.List(x, 2) = Cells(i, 6)
End If
Next i
Set sh = Nothing
End Sub

Private Sub CommandButton2_Click()
Sheets("ERKEK").Select
[B2:I500].Clear
Dim sat As Long, i As Long
sat = Sheets("ERKEK").Cells(500, "B").End(xlUp).Row + 1
MsgBox sat
If ListBox1.ListCount > 0 Then
For i = 0 To ListBox1.ListCount - 1
Sheets("ERKEK").Cells(sat, "B").Value = ListBox1.Column(0, i)
Sheets("ERKEK").Cells(sat, "C").Value = ListBox1.Column(1, i)
Sheets("ERKEK").Cells(sat, "D").Value = ListBox1.Column(2, i)
sat = sat + 1
Next
End If
ActiveWorkbook.Save
Unload Me
UserForm2.Show
End Sub

 

[Korhan Ayhan]

Selamlar,

Kodunuzdaki For i = 0 To ListBox1.ListCount - 1 satırından sonra aşağıdaki kodu ekleyip denermisiniz.

Sheets("ERKEK").Cells(sat, "A").Value = sat - 1

 

[Erdinç FIRTINA]

Sayın COST_CONTROL,

Çok ama çok teşekkür ederim. Aynı kodlardan hareketle, aktar kodu ile ilgili bir şey daha sorabilir miyim?
Yok sormayayım. Yeni bir konu açayım. Çünkü çok işlevsel ve düzeyli olan bu forumun kurallarına uymak istiyorum.

Size ve tüm emeği geçen herkese yürekten teşekkür ediyorum.