Merhabalar iyi çalışmalar dilerim öncelikle.
frmPersonelListesi userfromda bulunan Listbox Açıklama ( Kart_Basmayan Sayfası F HÜCRESİNE) olan kısma tıkladığım zaman oraya istediğim bir veriyi girmek istiyorum bunu nasıl yapa bilirim bir yolu mümkün mü acaba.

Merhaba
tam sorunuz anlaşılmıyor,exceldeki veriyimi düzelteceksiniz,yoksa Pc de bunan bie exceldeki veriye uzaktan(excel,acces vb programlamı) baglanıp düzenleme ekleme yapmak istiyorsunuz,biraz daha açıklayıcı olurmusunuz.

Listbox üzerine Combobox eklemek istiyorum belirlemiş olduğum verileri kullanıcı seçtiği zaman o veri kalıcı olarak kalmasını istiyorum. Üstüne tekrar geldiğinde değiştirmek istediği zaman. Combobox içerisinde belirli olan veri ile tekrar değiştire bilir olmasını istiyorum. Frame içerisinde combobox koydum kodları yazdım ama olmadı.

Excelde listbox satır içi dinamik combobox tanımlaması yapılabiliyor teknik olarak, ancak bu comboboxı çalıştırabilen henüz görmedim. Listboxınızı çift tıklayarak Açıklama sütununu editlemek için form kodlarınızı

Private Sub lstPersonel_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    Dim StrRowNum As Long

    Dim StrOldVal As String

    Dim StrNewVal As String

    Dim ws As Worksheet



    StrRowNum = lstPersonel.ListIndex + 2    'Seçili satırın Excel'deki satır numarasını belirleme - A2'den başladığı için +2

    StrOldVal = lstPersonel.List(lstPersonel.ListIndex, 5)    'Açıklama adlı 6. sütun (index 5) editlenecek



    ' Kullanıcıdan yeni değeri almak için bir InputBox kullanabiliriz

    StrNewVal = InputBox("Lütfen yeni değeri girin:", "Değeri Düzenle", StrOldVal)



    If StrNewVal <> "" Then    'Eğer kullanıcı bir değer girdiyse kaydet

        Set ws = Worksheets("Kart_Basmayan")    'Kart_Basmayan sayfasında

        ws.Cells(StrRowNum, 6).Value = StrNewVal     'Açıklama sütununa yaz

        

        Call UserForm_Activate   'ListBox'ı yeniden yükle

    End If

End Sub



Private Sub UserForm_Activate()

    Dim sonsat As Long

    Dim ws As Worksheet



    syflr

    

    Set ws = Worksheets("Kart_Basmayan")

    sonsat = ws.Range("A10000").End(xlUp).Row

    If sonsat = 1 Then Exit Sub

    

    'ListBox verileri yükle

    lstPersonel.ColumnCount = 6

    lstPersonel.ColumnHeads = True

    lstPersonel.RowSource = "Kart_Basmayan!A2:F" & sonsat

    lstPersonel.TextAlign = fmTextAlignLeft

    lstPersonel.ColumnWidths = "128;128;128;150;210"

    lstPersonel.ListIndex = 0

    lstPersonel.Locked = False

    lstPersonel.Enabled = True

End Sub

şeklinde revize ederseniz çift tıkladığınız kayıt için Açıklama sütununa sayılmasını istediğiniz değer size sorulur ve hem dosyaya kayıt eder hem listboxı günceller. Bunun dışında Açıklama sütununu form üzerine ekleyeceğiniz bir combobox verisi ile de güncelleyebilirsiniz. Bu durumda Inputbox yerine combobox değerini StrNewVal için inputbox değerini değil combobox değerini kullanabilirsiniz.

Private Sub UserForm_Activate() burada hata veriyor.

Anlaşılan ComboBox ile yapılmıyor yapıla bilir ise nasıl yaparım acaba. Anlatmışsınız yukarıda ama ne yazık ki anlayamadım.