Userform listbox tarih ekleme ve sıralama

[58Muhendis58]

Yangın söndürücü kontrolü için bir program hazırladım ancak userforma aktif (seçilebilen tarih alanı ekleyemedim ve listbox ta son yazılanın en üstte görünmesini ve listboxta seçilenin silinebilmesini istiyorum yardımcı olacak ustalara teşekkürler.

 

[58Muhendis58]

ustalar programı ekleyemedim

 

[58Muhendis58]

benim kodlar böyle


Private Sub ComboBoxTET_Change()

End Sub

Private Sub ComboBoxTT_Change()

End Sub

Private Sub ComboBoxYER_Change()

End Sub

Private Sub CommandButton1_Click()

With Worksheets("Anasayfa").PageSetup
.CenterHorizontally = True
.PrintArea = "$b$1:$n$" & Range("n65536").End(3).Row
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

Unload Me
ActiveWindow.SelectedSheets.PrintPreview

If MsgBox("Verileriniz Yazdırılsın mı", vbDefaultButton1 + vbYesNo, "UYARI") = vbYes Then
ActiveSheet.PageSetup.PrintArea = "B1:AC33"
ActiveWindow.SelectedSheets.PrintOut
End If

End Sub

Private Sub TextBox1_Change()
Sheets("Sayfa1").Cells(8, 6).Value = TextBox1

End Sub


Private Sub CommandButtonARA_Click()

On Error GoTo bitir

aranan = InputBox("Kayıtlı Tüp Numarasını Giriniz..", "ARAMA İŞLEMİ")

Range("B:B").Find(aranan).Select

Sil_satir = ActiveCell.Row

TextBoxID.Value = Worksheets("AnaSayfa").Cells(Sil_satir, 1)
TextBoxNO.Value = Worksheets("AnaSayfa").Cells(Sil_satir, 2)
ComboBoxTT.Value = Worksheets("AnaSayfa").Cells(Sil_satir, 3)
ComboBoxAGR.Value = Worksheets("AnaSayfa").Cells(Sil_satir, 4)
ComboBoxGVD.Value = Worksheets("AnaSayfa").Cells(Sil_satir, 5)
ComboBoxLNS.Value = Worksheets("AnaSayfa").Cells(Sil_satir, 6)
ComboBoxTET.Value = Worksheets("AnaSayfa").Cells(Sil_satir, 7)
ComboBoxMNM.Value = Worksheets("AnaSayfa").Cells(Sil_satir, 8)
TextBoxSTT.Value = Worksheets("AnaSayfa").Cells(Sil_satir, 9)
ComboBoxYER.Value = Worksheets("AnaSayfa").Cells(Sil_satir, 10)
TextBoxKNM.Value = Worksheets("AnaSayfa").Cells(Sil_satir, 11)
TextBoxKNTT.Value = Worksheets("AnaSayfa").Cells(Sil_satir, 12)
TextBoxFRM.Value = Worksheets("AnaSayfa").Cells(Sil_satir, 13)
TextBoxAD.Value = Worksheets("AnaSayfa").Cells(Sil_satir, 14)

Exit Sub
bitir: MsgBox "Aranan Kayıt Bulunamadı..!", , "HATA"

End Sub

Private Sub CommandButtonGUNCELLE_Click()
On Eror GoTo bitir

aranan = TextBoxID.Value

Range("a:a").Find(aranan).Select

guncelle = ActiveCell.Row

Worksheets("AnaSayfa").Cells(guncelle, 2) = TextBoxNO.Value
Worksheets("AnaSayfa").Cells(guncelle, 3) = ComboBoxTT.Value
Worksheets("AnaSayfa").Cells(guncelle, 4) = ComboBoxAGR.Value
Worksheets("AnaSayfa").Cells(guncelle, 5) = ComboBoxGVD.Value
Worksheets("AnaSayfa").Cells(guncelle, 6) = ComboBoxLNS.Value
Worksheets("AnaSayfa").Cells(guncelle, 7) = ComboBoxTET.Value
Worksheets("AnaSayfa").Cells(guncelle, 8) = ComboBoxMNM.Value
Worksheets("AnaSayfa").Cells(guncelle, 9) = TextBoxSTT.Value
Worksheets("AnaSayfa").Cells(guncelle, 10) = ComboBoxYER.Value
Worksheets("AnaSayfa").Cells(guncelle, 11) = TextBoxKNM.Value
Worksheets("AnaSayfa").Cells(guncelle, 12) = TextBoxKNTT.Value
Worksheets("AnaSayfa").Cells(guncelle, 13) = TextBoxFRM.Value
Worksheets("AnaSayfa").Cells(guncelle, 14) = TextBoxAD.Value

bitir:

End Sub

Private Sub CommandButtonKAPAT_Click()
Unload Me

End Sub

Private Sub CommandButtonKAYDET_Click()
If TextBoxNO <> "" And TextBoxKNTT <> "" And TextBoxSTT <> "" And ComboBoxYER <> "" And TextBoxAD <> "" Then

SonSatir = WorksheetFunction.CountA(Worksheets("ANASAYFA").Range("A:A")) + 1
If SonSatir = 2 Then

Worksheets("AnaSayfa").Cells(SonSatir, 1) = 1
Worksheets("AnaSayfa").Cells(SonSatir, 2) = TextBoxNO.Value
Worksheets("AnaSayfa").Cells(SonSatir, 3) = ComboBoxTT.Value
Worksheets("AnaSayfa").Cells(SonSatir, 4) = ComboBoxAGR.Value
Worksheets("AnaSayfa").Cells(SonSatir, 5) = ComboBoxGVD.Value
Worksheets("AnaSayfa").Cells(SonSatir, 6) = ComboBoxLNS.Value
Worksheets("AnaSayfa").Cells(SonSatir, 7) = ComboBoxTET.Value
Worksheets("AnaSayfa").Cells(SonSatir, 8) = ComboBoxMNM.Value
Worksheets("AnaSayfa").Cells(SonSatir, 9) = TextBoxSTT.Value
Worksheets("AnaSayfa").Cells(SonSatir, 10) = ComboBoxYER.Value
Worksheets("AnaSayfa").Cells(SonSatir, 11) = TextBoxKNM.Value
Worksheets("AnaSayfa").Cells(SonSatir, 12) = TextBoxKNTT.Value
Worksheets("AnaSayfa").Cells(SonSatir, 13) = TextBoxFRM.Value
Worksheets("AnaSayfa").Cells(SonSatir, 14) = TextBoxAD.Value
Else

Worksheets("AnaSayfa").Cells(SonSatir, 1) = Worksheets("AnaSayfa").Cells(SonSatir - 1, 1) + 1
Worksheets("AnaSayfa").Cells(SonSatir, 2) = TextBoxNO.Value
Worksheets("AnaSayfa").Cells(SonSatir, 3) = ComboBoxTT.Value
Worksheets("AnaSayfa").Cells(SonSatir, 4) = ComboBoxAGR.Value
Worksheets("AnaSayfa").Cells(SonSatir, 5) = ComboBoxGVD.Value
Worksheets("AnaSayfa").Cells(SonSatir, 6) = ComboBoxLNS.Value
Worksheets("AnaSayfa").Cells(SonSatir, 7) = ComboBoxTET.Value
Worksheets("AnaSayfa").Cells(SonSatir, 8) = ComboBoxMNM.Value
Worksheets("AnaSayfa").Cells(SonSatir, 9) = TextBoxSTT.Value
Worksheets("AnaSayfa").Cells(SonSatir, 10) = ComboBoxYER.Value
Worksheets("AnaSayfa").Cells(SonSatir, 11) = TextBoxKNM.Value
Worksheets("AnaSayfa").Cells(SonSatir, 12) = TextBoxKNTT.Value
Worksheets("AnaSayfa").Cells(SonSatir, 13) = TextBoxFRM.Value
Worksheets("AnaSayfa").Cells(SonSatir, 14) = TextBoxAD.Value

End If

Else
MsgBox "GİRİŞ ALANLARINI DOLDURUNUZ!..", , "HATA"

End If

End Sub

Private Sub CommandButtonSIL_Click()

If TextBoxNO.Value <> "" Then

Rows(ActiveCell.Row).Delete
TextBoxNO.Value = ""

Else

MsgBox "Öncelikle Arama İşlemi Yapmaız Gerekmektedir..!", , "DUR"

End If

End Sub

Private Sub Label17_Click()

End Sub

Private Sub Label19_Click()

End Sub

Private Sub Label5_Click()

End Sub

Private Sub Label7_Click()

End Sub


Private Sub ListBox1_Click()

End Sub

Private Sub TextBoxKNTT_Change()

End Sub

Private Sub TextBoxNO_Change()

End Sub

Private Sub UserForm_Initialize()

ListBox1.ColumnCount = 14
ListBox1.RowSource = "AnaSayfa!frm"
ListBox1.ColumnWidths = "30;40;42;38;38;38;40;38;50;85;60;55;40;40"

End Sub

 

[relaxim]

Lütfen dosyanızı upload sitelerinden birine yükleyip bağlantıyı ekleyiniz.

 

[58Muhendis58]

YSC program

 

[58Muhendis58]

Lütfen dosyanızı upload sitelerinden birine yükleyip bağlantıyı ekleyiniz.

usta şimdiden teşekkür ederim

 

[58Muhendis58]

Lütfen dosyanızı upload sitelerinden birine yükleyip bağlantıyı ekleyiniz.

usta ekledim hayırlı bayramlar

 

[58Muhendis58]

arkadaş yok mu yardım edecek biri

sos
help me

 

[58Muhendis58]

Lütfen dosyanızı upload sitelerinden birine yükleyip bağlantıyı ekleyiniz.

usta şu eklediğim programa cevap verebilirsen çok mutlu edersin valla

Lütfen dosyanızı upload sitelerinden birine yükleyip bağlantıyı ekleyiniz.

ustam yardımcı olabilecek misin hala beklemedeyim teşekkür ederim