Litview den sayfa 5. satırdan aktarma

[YILDIZ YAĞMURU]

Merhaba,
Aşağıdaki sayfaya aktar kodunu sayfada 5 . satırdan nasıl başlatabiliriz acaba

Private Sub CommandButton1_Click()
Dim i As Long, sat As Long, sh As Worksheet
Set s1 = ActiveSheet 'Sayfaya ListView1 de seçili olanları aktar
sat = s1.Cells(55, "A").End(xlUp).Row + 1
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
If sat >= 55 Then
MsgBox "Sayfada satır doldu." & vbLf & " ilk sayfada " & _
i - 1 & " Satırdan sonraki seçilen veriler akatarılmadı", vbCritical, "UYARI"
Exit Sub
End If
s1.Cells(sat, "A").Value = ListView1.ListItems(i).Text
For k = 1 To ListView1.ColumnHeaders.Count - 1
s1.Cells(sat, k + 1).Value = ListView1.ListItems(i).SubItems(k)
Next k
sat = sat + 1
End If
Next i
End Sub

 

[Orion1]

ilgili yere kırmızı kodu girip deneyiniz.
sat=5
s1.Cells(sat, "A").Value = ListView1.ListItems(i).Text
For k = 1 To ListView1.ColumnHeaders.Count - 1

 

[Orion1]

Deminki yanlış oldu.
Bu aşağıdaki kodları kullananın.
Private Sub CommandButton1_Click()
Dim i As Long, sat As Long, sh As Worksheet
Set s1 = ActiveSheet 'Sayfaya ListView1 de seçili olanları aktar
sat = s1.Cells(55, "A").End(xlUp).Row + 1
If sat >= 55 Then
MsgBox "Sayfada satır dolu." & vbLf & " veriler akatarılmadı", vbCritical, "UYARI"
Exit Sub
End If
sat =5
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
If sat >= 55 Then
MsgBox "Sayfada satır doldu." & vbLf & " ilk sayfada " & _
i - 1 & " Satırdan sonraki seçilen veriler akatarılmadı", vbCritical, "UYARI"
Exit Sub
End If
s1.Cells(sat, "A").Value = ListView1.ListItems(i).Text
For k = 1 To ListView1.ColumnHeaders.Count - 1
s1.Cells(sat, k + 1).Value = ListView1.ListItems(i).SubItems(k)
Next k
sat = sat + 1
End If
Next i
End Sub

 

[YILDIZ YAĞMURU]

ilgili yere kırmızı kodu girip deneyiniz.
sat=5
s1.Cells(sat, "A").Value = ListView1.ListItems(i).Text
For k = 1 To ListView1.ColumnHeaders.Count - 1

Orion1,
Bu şekilde Aktar komutunda hata veriyor ama
benmi yanlış yaptım yoksa..

s1.Cells(sat = 5, "A").Value = ListView1.ListItems(i).Text
For k = 1 To ListView1.ColumnHeaders.Count - 1

 

[YILDIZ YAĞMURU]

Orion1,
Bu şekilde Aktar komutunda hata veriyor ama
benmi yanlış yaptım yoksa..

s1.Cells(sat = 5, "A").Value = ListView1.ListItems(i).Text
For k = 1 To ListView1.ColumnHeaders.Count - 1

Süpersin Orion1 Korktum senden Bir an en son yazdıgıma cevap verdin sandım. şaşırdım

 

[Orion1]

Süpersin Orion1 Korktum senden Bir an en son yazdıgıma cevap verdin sandım. şaşırdım

doğrusu 3 nolu mesajımdadır.

 

[YILDIZ YAĞMURU]

Deminki yanlış oldu.
Bu aşağıdaki kodları kullananın.
Private Sub CommandButton1_Click()
Dim i As Long, sat As Long, sh As Worksheet
Set s1 = ActiveSheet 'Sayfaya ListView1 de seçili olanları aktar
sat = s1.Cells(55, "A").End(xlUp).Row + 1
If sat >= 55 Then
MsgBox "Sayfada satır dolu." & vbLf & " veriler akatarılmadı", vbCritical, "UYARI"
Exit Sub
End If
sat =5
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
If sat >= 55 Then
MsgBox "Sayfada satır doldu." & vbLf & " ilk sayfada " & _
i - 1 & " Satırdan sonraki seçilen veriler akatarılmadı", vbCritical, "UYARI"
Exit Sub
End If
s1.Cells(sat, "A").Value = ListView1.ListItems(i).Text
For k = 1 To ListView1.ColumnHeaders.Count - 1
s1.Cells(sat, k + 1).Value = ListView1.ListItems(i).SubItems(k)
Next k
sat = sat + 1
End If
Next i
End Sub

Orion1,

Ellerine bilgine sağlık .. son bişi daha isteyeceğim senden .. Formu aç kapa yaptıktan sonra tekrar aktar dediğimizde yine 5. satırdan başlıyor yai 5 satırdaki veryi silip yenisini yazıyor acaba 5 satır doluysa eğer 6 satırdan devam edebilir mi ?
yada 5,6,7,8,9,10 satırlar doluysa en son boş satırdan başlayabilirmi

ilk kaydettiğimizde 5.satırdan başlasın ..sonraki kayıtlarda en son boş satırdan devam etsin istiyorum yani şimdiden tekrar ilgine alakana çok teşekkür ederim Orion1

 

[Orion1]

İlgili yerleri değiştiriniz.

If sat >= 55 Then
MsgBox "Sayfada satır dolu." & vbLf & " veriler akatarılmadı", vbCritical, "UYARI"
Exit Sub
End If
[B][COLOR="Red"]if sat -1< 5 then sat=5[/COLOR][/B]
For i = 1 To ListView1.ListItems.Count

Orion1,

Ellerine bilgine sağlık .. son bişi daha isteyeceğim senden .. Formu aç kapa yaptıktan sonra tekrar aktar dediğimizde yine 5. satırdan başlıyor yai 5 satırdaki veryi silip yenisini yazıyor acaba 5 satır doluysa eğer 6 satırdan devam edebilir mi ?
yada 5,6,7,8,9,10 satırlar doluysa en son boş satırdan başlayabilirmi

ilk kaydettiğimizde 5.satırdan başlasın ..sonraki kayıtlarda en son boş satırdan devam etsin istiyorum yani şimdiden tekrar ilgine alakana çok teşekkür ederim Orion1

 

[YILDIZ YAĞMURU]

çok teşekkürler orion1

İlgili yerleri değiştiriniz.

If sat >= 55 Then
MsgBox "Sayfada satır dolu." & vbLf & " veriler akatarılmadı", vbCritical, "UYARI"
Exit Sub
End If
[B][COLOR="Red"]if sat -1< 5 then sat=5[/COLOR][/B]
For i = 1 To ListView1.ListItems.Count

Süpersin arkadaşım çok çok teşekkür ederim ..

 

[Orion1]

Süpersin arkadaşım çok çok teşekkür ederim ..

Rica ederim.
O sizin süperliğiniz.