Listview'e ekleme ve kayıt yapma.

[unalh]

Bir kayıt ekranım var şuan yapılan işlem textleri doldurduktan sonra kayıt yap deyince ilgili sayfaya kayıt yapıyor bunu şu şekilde değiştirmek istiyorum textleri doldurduktan sonra listeye ekle buradan lisview'e eklesin böylelikle birkaç kayıt yaptıktan sonra kaydet deyince ilgili sayfaya sırasıyla kaydetmesi.
Bunu yapmamın sebebi fazla çek girince kontrol etmek herhangi bir hata varsa bunun üzerinden düzeltmek ve kayıt yapmak.

İlginize şimdiden teşekkür eder hayırlı işler dilerim

 

[halit3]

Bir kayıt ekranım var şuan yapılan işlem textleri doldurduktan sonra kayıt yap deyince ilgili sayfaya kayıt yapıyor bunu şu şekilde değiştirmek istiyorum textleri doldurduktan sonra listeye ekle buradan lisview'e eklesin böylelikle birkaç kayıt yaptıktan sonra kaydet deyince ilgili sayfaya sırasıyla kaydetmesi.
Bunu yapmamın sebebi fazla çek girince kontrol etmek herhangi bir hata varsa bunun üzerinden düzeltmek ve kayıt yapmak.

İlginize şimdiden teşekkür eder hayırlı işler dilerim

hatırladığım kadarı ile buna benzer bir işlem yapmıştık burada
ekli dosyayı kontrol ediniz.

 

[unalh]

Halit bey ilginize teşekkürler

Şöyle bir durum var tutar kısmını sayısal olarak kayıt yapması mümkünmüdür.

Ben daha önceki kayıt şeklilini şöyle yapıyordum

TextBox9.Text*1

Bunu listview üzerinden nasıl yaptırabiliriz?

 

[Terkanli]

Sayfa1.Cells(1, "A") = Format(ListView1.ListItems(S).SubItems(1), "#,##0.00") * 1
Şeklinde,
Tansu

 

[Terkanli]

Listview e öğeleri böyle alırsanız, format daha düzgün görünür...

Sheets("Sayfa1").Select
Set Sh = ActiveSheet
EndRow = Sh.Cells(65536, 1).End(xlUp).Row
With ListView1
.ListItems.Clear
For i = StartRow To EndRow
.ListItems.Add , , Sh.Cells(i, 1)
x = x + 1
With .ListItems(x).ListSubItems
.Add , , Sh.Cells(i, 1) ' normal metin
.Add , , FormatDateTime(Sh.Cells(i, 2), vbGeneralDate) 'Tarih formatı
.Add , , Format(Sh.Cells(i, 3), "#,##0.00") 'Rakam formatı
.Add , , i
end with
kolay gelsin

 

[unalh]

Arkadaşlar ilginize teşekkür ediyorum.

 

[halit3]

ekli dosyanıza bir bakarmısınız.

 

[unalh]

Halit bey ilginize çok teşekkür ederim gerçekten çok güzel oldu.:bravo:




Kayıt ekledikçe sıra numarası verdirebilirmiyiz?
Tabi numara sayfadaki numarayı takip edecek.
Bu düşündüğüm olmasada olur kayıt butonu ile sayfaya kayıt yapıldığı zaman hallederim.

Hayırlı akşamlar.

 

[halit3]

kayıt kodunu bununla değiştir.

Private Sub CommandButton5_Click()
yer = ActiveSheet.Name
sat1 = Worksheets(yer).[a65536].End(3).Row + 1
For r = 1 To ListView1.ListItems.Count
Sheets(yer).Cells(sat1, 1).Value = ListView1.ListItems(r)
On Error Resume Next
For i = 0 To ListView1.ColumnHeaders.Count - 1
If i = 9 Then
Sheets(yer).Cells(sat1, i + 1).Value = ListView1.ListItems(r).ListSubItems(i).Text * 1
ElseIf i = 3 Then
Sheets(yer).Cells(sat1, i + 1).Value = CDate(ListView1.ListItems(r).ListSubItems(i).Text)
ElseIf i = 8 Then
Sheets(yer).Cells(sat1, i + 1).Value = CDate(ListView1.ListItems(r).ListSubItems(i).Text)
Else
Sheets(yer).Cells(sat1, i + 1).Value = ListView1.ListItems(r).ListSubItems(i).Text
End If
Next i
Sheets(yer).Cells(sat1, 1).Value = sat1 - 1
sat1 = sat1 + 1
Next r
MsgBox "işlem tamam"
End Sub

 

[unalh]

Halit bey günaydın cevaplarınız için teşekkür ederim.

Hayırlı cumalar ve hayırlı işler.

 

[halit3]

teşekkürler sizede hayırlı cumalar

iyi çalışmalar