Soru Listbox sil komutu ve Tarih ayarlama

[sedat2161]

Hayırlı Sabahlar arkadaşlar. Ekli dosyamda
--Listbox ta seçtiğim şahsın satırını silmek istiyorum
-- Userform üzerindeki 8,9,10,11,12,13 textboxlara tarih örneğin 15.05.2020 yazdığımda aktardıktan sonra tekrar textboxlara geldiğimde 05/15/2020 olarak ay ile gün yer değiştiriyor.
Yardımlarınızı bekliyorum. Hayırlı günler diliyorum.

 

[Mahmut Bayram]

İlgili yerleri örnekteki gibi değiştirip deneyin.

Format((Sheets("PUANTAJ").Cells(i + 8, 7)), "dd.mm.yyyy")
Format((Sheets("PUANTAJ").Cells(i + 8, 8)), "dd.mm.yyyy")
Format((Sheets("PUANTAJ").Cells(i + 8, 9)), "dd.mm.yyyy")
Format((Sheets("PUANTAJ").Cells(i + 8, 10)), "dd.mm.yyyy")
Format((Sheets("PUANTAJ").Cells(i + 8, 11)), "dd.mm.yyyy")
Format((Sheets("PUANTAJ").Cells(i + 8, 12)), "dd.mm.yyyy")

 

[sedat2161]

İlgili yerleri örnekteki gibi değiştirip deneyin.

Format((Sheets("PUANTAJ").Cells(i + 8, 7)), "dd.mm.yyyy")
Format((Sheets("PUANTAJ").Cells(i + 8, 8)), "dd.mm.yyyy")
Format((Sheets("PUANTAJ").Cells(i + 8, 9)), "dd.mm.yyyy")
Format((Sheets("PUANTAJ").Cells(i + 8, 10)), "dd.mm.yyyy")
Format((Sheets("PUANTAJ").Cells(i + 8, 11)), "dd.mm.yyyy")
Format((Sheets("PUANTAJ").Cells(i + 8, 12)), "dd.mm.yyyy")

Merhaba Mahmut Bey
Hocam ilgili yer dediğiniz yeri tarif edebilir misiniz. Bir türlü yapamıyorum.
-Birde satır silme sorunum vardı. İyi çalışmalar diliyorum.

 

[sedat2161]

Merhaba Mahmut Bey
Hocam ilgili yer dediğiniz yeri tarif edebilir misiniz. Bir türlü yapamıyorum.
-Birde satır silme sorunum vardı. İyi çalışmalar diliyorum.

Arkadaşlar sorunum çözülmedi yardımcı olursanız çok memnun olurum.

 

[byfika]

Merhabalar,
Listbox ta seçilen şahsın satırını silmek için userform kodlarına alttaki kodları ilave edip deneyiniz...

Private Sub cmdSIL_Click()
For a = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(a) Then
ara = ListBox1.List(a, 0)
Sheets("PUANTAJ").Range("b:b").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete
End If
Next
End Sub