• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

veri listbox

Merhaba,
Aşağıdaki kodları LISTE isimli UserForm'un kod bölümüne yapıştırarak dener misiniz?
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
 
burada aktif olan sayfada listbox çalışmakta ben hep listbox sayfa1 göstermesini istiyorum. teşekkür ederim.
 
Private Sub userform_initialize() satırının altına şu satırı Sheets("Sayfa1").Activate ekleyiniz.
 
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.
 
sinemomec' Alıntı:
burada bide ziyaret eklediğimizde ziyaret eklediğim kişinin excel sayfasına tarihi eklemesini istiyorum
Genişletmek için tıkla ...

Tarih ziyaret edilen kişinin sayfasında nereye eklenecek? Satır Sütun? yuarıdan aşağıya/Soldan sağa?
 
Kod: 
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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst