Veri kaydetme

[dilekgüç]

ListBox1de seçtigim verilri toptan görüyorum üzerini tıkladıgım zaman lisBox2 da verileri gösteriyor lisBox2 de kaydet yaptığım zaman (a) kolonuna kaydediyor.

ListBox2 den 2ci veri verdiğim zaman 1ci viriyi siliyor silinmeden devam etmek istiyorum viriler silinmeden altalta devam etmek iştiyorum.

ilğilenen arkadaşlara teşekkür ederim .

 

[Orion1]

Ekteki dosya gibimi istiyorsunuz.

Private Sub CommandButton3_Click()
Set s1 = Sheets("liste")
's1.[a3:a65536].ClearContents
'sat = ListBox2.ListCount
'sut = ListBox2.ColumnCount
sat2 = s1.Cells(65536, "A").End(xlUp).Row + 3
Range("A" & sat2).Resize(ListBox2.ListCount, 1) = ListBox2.List
End Sub

 

[dilekgüç]

Evren Gizlen kardeşim tesekkür ederim aralarında 1 veye 2 boşluk olabiliri.
İyiakşamlar.

 

[Orion1]

Evren Gizlen kardeşim tesekkür ederim aralarında 1 veye 2 boşluk olabiliri.
İyiakşamlar.

Dediğiniz düzenlemeyi yaptım.2 boşluk bırakıyor.2 kayıt arasında.
Dosyayı 2nci mesajdan inidrebilirsiniz.

 

[dilekgüç]

Tesekkürler iyiakşamlar.

 

[Orion1]

Tesekkürler iyiakşamlar.

Rica ederim.
İyi akşamlar.

 

[dilekgüç]

EvrenGizlen kardesim ListBox2 de sorunsuz çalısıyor ama ListBox3 lü de sorun yasıyorum yeni dosyayı bir inçelerseniz sevinirim saygılar.

 

[Orion1]

Önceki dosyadan listbox1in doubleclick olayındaki kodları bu dosyadaki listboxın doubleclick olayına yaznız.
Dosyanız ekte.

 

[dilekgüç]

Evren Gizlen hocam eline koluna sağlık iyiaksamlar..

 

[Orion1]

Evren Gizlen hocam eline koluna sağlık iyiaksamlar..

Rica ederim.
İyi akşamlar.

 

[dilekgüç]

Evren Gizlen hocam
Kaydet tusuna basıldıgı zaman aynı veriden varsa kaydetmeyi kabul etmesin istiyorum yardımlarınız için tesekkürler. iyi çalışmalar dilerim

 

[Orion1]

Evren Gizlen hocam
Kaydet tusuna basıldıgı zaman aynı veriden varsa kaydetmeyi kabul etmesin istiyorum yardımlarınız için tesekkürler. iyi çalışmalar dilerim

Litbox'ın içinedeki ayni verileri kaydetmesin diğerlerini kaydetsinmi.Böylemi istiyorsunuz.Bu durumda kodları yeni baştan yazmak gerekecek.Keşke baştan söyleseydiniz.

 

[dilekgüç]

Evren Gizlen hocam
klasör listelerini alırkan
aynı klasörleri kaydediyor
2 sefer kayıt yaparsam
bende 2ci ye kaydet tusuna
baştıgım zaman o verinin kayıtlı
oldugunu birdirsin iştiyorum.
İyi çalışmalar dilerim.

öyle birsorun yasayacagım aklıma gelmemişti hocam.

 

[Orion1]

Klasör listesi için yaptım.
İsterseniz ve beğnirseniz alt klasör listesi içinde yaparım.Dosyanız ekte.

 

[dilekgüç]

Klasör listesi için yaptım.
İsterseniz ve beğnirseniz alt klasör listesi içinde yaparım.

Kusura bakmayın bir zahmet en çok kullandıgım yer orası.

allah razı olsun sizden çok teşekkürler hoçam ..

 

[Orion1]

Dosyanız hazır.

 

[dilekgüç]

Yardımlarınız için tesekkürler. iyi çalışmalar dilerim

 

[Orion1]

Yardımlarınız için tesekkürler. iyi çalışmalar dilerim

Rica ederim.
Sizede iyi çalışmalr dilerim.
Sorması ayıp,DJ'likmi yapıyorsunuz?

 

[izcik]

Dosyanız hazır.

Değerli Evren Gizlen bu işi severek yapıyor