veri listbox

[sinemomec]

eklediğim dosyada listbox kısmında kişileri seçip tarih eklemek veya silmek istiyorum.

İndir Yeni Microsoft Excel Çalışma Sayfası

Dosyayı indir Yeni Microsoft Excel Çalışma Sayfası

dosya.co

 

[dEdE]

Merhaba,
Aşağıdaki kodları LISTE isimli UserForm'un kod bölümüne yapıştırarak dener misiniz?

Spoyler: Tarih Ekleme, Silme

Public kayitno As Long

Private Sub CommandButton1_Click()
If ListBox1.ListIndex < 0 Then
MsgBox "Listeden bir seçim yapmalısınız !", vbExclamation, "DİKKAT !..."
Exit Sub
End If
myDate = Application.InputBox("Lütfen Ziyaret Tarihini Aşağıdaki Gibi Giriniz.", "Tarih Girişi", Format(Date, "dd.mm.yyyy"))
If myDate = False Then Exit Sub
If IsDate(myDate) Then
Sheets("Sayfa1").Cells(ListBox1.ListIndex + 2, 6) = Format(CDate(myDate), "dd.mm.yyyy")
Else
MsgBox "Yanlış Tarih Girdiniz " & vbclrf & "Lütfen " & Date & " Şeklinde Giriniz.", vbExclamation, "D i k k a t ! . . !"
End If
End Sub

Private Sub CommandButton2_Click()
If ListBox1.ListIndex < 0 Then
MsgBox "Listeden bir seçim yapmalısınız !", vbExclamation, "DİKKAT !..."
Exit Sub
End If
If MsgBox("Seçtiğiniz kayıdın tarihi silinecektir. Onaylıyor musunuz?", vbCritical + vbYesNo, "ONAY") = vbYes Then
Sheets("Sayfa1").Cells(ListBox1.ListIndex + 2, 6) = ""
End If
End Sub

Private Sub userform_initialize()
satır_sayısı = WorksheetFunction.CountA(Range("B:B")) + 1
ListBox1.ColumnCount = 5
ListBox1.ColumnHeads = True
ListBox1.RowSource = "B2:F" & satır_sayısı
End Sub

 

[sinemomec]

burada aktif olan sayfada listbox çalışmakta ben hep listbox sayfa1 göstermesini istiyorum. teşekkür ederim.

 

[sinemomec]

burada bide ziyaret eklediğimizde ziyaret eklediğim kişinin excel sayfasına tarihi eklemesini istiyorum ancak yapamadım. teşekkür ederim.

İndir Yeni Microsoft Excel Çalışma Sayfası

Dosyayı indir Yeni Microsoft Excel Çalışma Sayfası

dosya.co

 

[dEdE]

Private Sub userform_initialize() satırının altına şu satırı Sheets("Sayfa1").Activate ekleyiniz.

 

[sinemomec]

teşekkür ederim.

 

[sinemomec]

burada listbox seçtiğim kişiye eklediğim tarihi sayfa1 yapıyor ben ise kişinin kendi excel sayfasına eklemesini ve bura bir kez ekliyor ben birden fazla tarih eklemesini istiyorum.

 

[dEdE]

burada bide ziyaret eklediğimizde ziyaret eklediğim kişinin excel sayfasına tarihi eklemesini istiyorum

Tarih ziyaret edilen kişinin sayfasında nereye eklenecek? Satır Sütun? yuarıdan aşağıya/Soldan sağa?

 

[sinemomec]

a sütünü yukardan aşağı ve istediğim kadar 1 veya 2 değil

 

[dEdE]

Private Sub CommandButton1_Click()
    If ListBox1.ListIndex < 0 Then
        MsgBox "Listeden bir seçim yapmalısınız !", vbExclamation, "DİKKAT !..."
        Exit Sub
    End If
    kim = ListBox1.List(ListBox1.ListIndex, 0)
    myDate = Application.InputBox("Lütfen Ziyaret Tarihini Aşağıdaki Gibi Giriniz.", "Tarih Girişi", Format(Date, "dd.mm.yyyy"))
    If myDate = False Then Exit Sub
    If IsDate(myDate) Then
        ss = Sheets(kim).Cells(Rows.Count, "A").End(3).Row + 1
        Sheets(kim).Cells(ss, 1) = Format(CDate(myDate), "dd.mm.yyyy")
    Else
        MsgBox "Yanlış Tarih Girdiniz " & vbclrf & "Lütfen " & Date & " Şeklinde Giriniz.", vbExclamation, "D i k k a t ! . . !"
    End If
End Sub