Listview daki veriyi kaydetmek

[HD1975]

Merhaba ;

Gönderdiğim dosyada kayıt1 tuşuna bastığımda listview2'deki verileri,
veri sayfasındaki en son verinin altına kayıt etmesi gerekiyor ama beceremedik.

Saygılar

Pardon Başlık "Listview daki veriyi kaydetmek" düzeltebilirmisiniz.

 

[hamitcan]

İlgili kodu aşağıdaki ile değiştirin.

Private Sub kayıt1_Click()
Set Sh = Sheets("ÇİLEK")
If A.Text = "" Then: MsgBox "Miktar giriniz", vbCritical, "HATALI GİRİŞ": Exit Sub
If yeni = True Then
    son = Sh.Cells(65536, 1).End(xlUp).Row
    Sh.Cells(son + 1, 1) = A.Text
    Sh.Cells(son + 1, 2) = B.Text
    Sh.Cells(son + 1, 3) = C.Text
    Sh.Cells(son + 1, 4) = D.Text
    Sh.Cells(son + 1, 5) = E.Text
    Sh.Cells(son + 1, 6) = F.Text
    Sh.Cells(son + 1, 7) = G.Text
    Sh.Cells(son + 1, 8) = TextBox1.Text
    Sh.Cells(son + 1, 9) = TextBox2.Text
    Sh.Cells(son + 1, 10) = J.Text
Else
    y = ListView2.SelectedItem.Index
    satir = ListView2.ListItems(y).ListSubItems(10).Text
    Sh.Cells(satir, 1) = A.Text
    Sh.Cells(satir, 2) = B.Text
    Sh.Cells(satir, 3) = C.Text
    Sh.Cells(satir, 4) = D.Text
    Sh.Cells(satir, 5) = E.Text
    Sh.Cells(satir, 6) = F.Text
    Sh.Cells(satir, 7) = G.Text
    Sh.Cells(satir, 8) = TextBox1.Text
    Sh.Cells(satir, 9) = TextBox2.Text
    Sh.Cells(satir, 10) = J.Text
End If
ListeGuncelle1
Set Sh = Nothing

End Sub

 

[HD1975]

Olmadı;

Sanırım ben yanlış anlattım.

Listview2'ye çilek sayfasındaki veriler gelecek bunlar geliyor,bu verilerden seçileni kayıt1 tuşu ile veri sayfasındaki verilerin en sonundaki boş satıra kayıt edecek.

Başka bir detay yok,koddaki liste güncelle bağlantısına gerek yok oda iptal olacak.

Saygılar

 

[hamitcan]

Bir de böyle deneyin.

Private Sub kayıt1_Click()
Set Sh = Sheets("VERİ")
If yeni = True Then
    son = Sh.Cells(65536, 1).End(xlUp).Row
     y = ListView2.SelectedItem.Index
    Sh.Cells(son + 1, 1) = ListView2.ListItems(y).Text
    Sh.Cells(son + 1, 2) = ListView2.ListItems(y).ListSubItems(1).Text
    Sh.Cells(son + 1, 3) = ListView2.ListItems(y).ListSubItems(2).Text
    Sh.Cells(son + 1, 4) = ListView2.ListItems(y).ListSubItems(3).Text
    Sh.Cells(son + 1, 5) = ListView2.ListItems(y).ListSubItems(4).Text
    Sh.Cells(son + 1, 6) = ListView2.ListItems(y).ListSubItems(5).Text
    Sh.Cells(son + 1, 7) = ListView2.ListItems(y).ListSubItems(6).Text
    Sh.Cells(son + 1, 8) = ListView2.ListItems(y).ListSubItems(7).Text
    Sh.Cells(son + 1, 9) = ListView2.ListItems(y).ListSubItems(8).Text
    Sh.Cells(son + 1, 10) = ListView2.ListItems(y).ListSubItems(9).Text
End If
Set Sh = Nothing
End Sub

 

[HD1975]

Tepki Vermiyor,bir kayıt işlemi gerçekleşmediği gibi hatada vermiyor.

 

[hamitcan]

Listview2 içinde önce bir satır seçin, sonra kayıt1 düğmesine basın.

 

[HD1975]

Teşekkür Ederim,yalnız ufak bir sorun var...
Verileri textboxlara aktardıktan sonra sayfaya kayıt etmem gerekiyor.

Nedenine gelince ;

Textboxlara aldığım verilerle beraber bir kaç textboxa daha veri girip,ikisinin
toplamı satırlara aktarılması gerekiyor.


Yani önce listview2'den textboxlara,textboxlardanda sayfanın en son satırana
kayıt etmem gerekiyor.

Saygılar

 

[hamitcan]

Sorularınızı eksik sormayınız, yapılan çözümlerin ne kadar zaman aldığını bilmelisiniz.

Private Sub kayıt1_Click()
Set Sh = Sheets("VERİ")
If yeni = True Then
    son = Sh.Cells(65536, 1).End(xlUp).Row + 1
     
    Sh.Cells(son, 1) = A.Text
    Sh.Cells(son, 2) = B.Text
    Sh.Cells(son, 3) = C.Text
    Sh.Cells(son, 4) = D.Text
    Sh.Cells(son, 5) = E.Text
    Sh.Cells(son, 6) = F.Text
    Sh.Cells(son, 7) = G.Text
    Sh.Cells(son, 8) = TextBox1.Text
    Sh.Cells(son, 9) = TextBox2.Text
    Sh.Cells(son, 10) = J.Text

     
End If
Set Sh = Nothing

End Sub
Private Sub ListView2_Click()
     y = ListView2.SelectedItem.Index
     
     A = ListView2.ListItems(y).Text
     B = ListView2.ListItems(y).ListSubItems(1).Text
     C = ListView2.ListItems(y).ListSubItems(2).Text
     D = ListView2.ListItems(y).ListSubItems(3).Text
     E = ListView2.ListItems(y).ListSubItems(4).Text
     F = ListView2.ListItems(y).ListSubItems(5).Text
     G = ListView2.ListItems(y).ListSubItems(6).Text
     TextBox1 = ListView2.ListItems(y).ListSubItems(7).Text
     TextBox2 = ListView2.ListItems(y).ListSubItems(8).Text
     J = ListView2.ListItems(y).ListSubItems(9).Text

End Sub

 

[HD1975]

Çok Haklısınız,hakkınızı helal edin.

Gayet iyi olmuş..

Teşekkür Ederim.

Saygılar