+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listbox Tıkladığın Satır İstediğin Veriyi Girme (/konu-listbox-tikladigin-satir-istedigin-veriyi-girme.html)
Sayfalar:
1
2
Listbox Tıkladığın Satır İstediğin Veriyi Girme - svncmert - 12/12/2024
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.
RE: Listbox Tıkladığın Satır İstediğin Veriyi Girme - C*e*l*o*y*c*e - 12/12/2024
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.
RE: Listbox Tıkladığın Satır İstediğin Veriyi Girme - svncmert - 13/12/2024
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ı.
RE: Listbox Tıkladığın Satır İstediğin Veriyi Girme - atoykan - 14/12/2024
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
RE: Listbox Tıkladığın Satır İstediğin Veriyi Girme - svncmert - 14/12/2024
Private Sub UserForm_Activate() burada hata veriyor.
RE: Listbox Tıkladığın Satır İstediğin Veriyi Girme - svncmert - 14/12/2024
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.