listbox double clıck olayındaki kod için yardım

[mustafa7691]

sn dostlar yine sayenizde ve forumdan aldığım bazı kodlarla kendi işime yarayacak bir çalışma içindeydim.sayfada bir değişiklik yaptım ve kod çalışmaz oldu.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Set s1 = Sheets("RUTİN AŞILAR")
s1.Cells(ListBox1.List(, 0) + 4, "a").Select
veriekle
End Sub

double clıck kodu buydu ancak
s1.Cells(ListBox1.List(, 0) + 4, "a").Select satırı hata verdi.tabi kodun açıklamasını yapamadığım için çözemiyorum.açıklama şansı olan hocalarım yardımcı olursanız sevinirim.saygılarımla

 

[Orion1]

ListBox1.List(satır, kolon)

 

[Recep İpek]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Set s1 = Sheets("RUTİN AŞILAR")
s1.Cells(ListBox1.ListIndex + 4, "a").Select
veriekle
End Sub

olarak deneyiniz.

 

[mustafa7691]

hocam teşekkür ederim ama

(,0)+4, "A") demekle neyi yani hangi alanı kastediyor onu anlayamıyorum.

ListBox1.List(satır, kolon) sizin açıklamanıza göre benim formüldeki satır nereyi seçiyor . ve sayın ripek bu +4 yukardan satırın sayısımı acaba

 

[Orion1]

hocam teşekkür ederim ama

(,0)+4, "A") demekle neyi yani hangi alanı kastediyor onu anlayamıyorum.

ListBox1.List(satır, kolon) sizin açıklamanıza göre benim formüldeki satır nereyi seçiyor . ve sayın ripek bu +4 yukardan satırın sayısımı acaba

Sayın ripek'in kodlarını kullanınız.
Seçili satıra 4 satır ekleyip o hücreyi seçiyor.

 

[Recep İpek]

ve sayın ripek bu +4 yukardan satırın sayısımı acaba

Sanırım dediğinizi yapıyor.

Siz tam olarak Listbox'dan seçtiğiniz verinin satırını mı seçmek istiyorsunuz?

 

[mustafa7691]

kitap büyük olduğu için yükleyemiyorum ama sonuçta evet.listbox taki satırtı seçip çift tıklama ile o kişiye ait aşıları user forma almak istiyorum.sn ripek in kodu bu işi yapıyor ama başka bir sorunum var çalışmadan kaynaklanan onu biraz incelersem size tekrar yazıcam.çok teşekkürler şimdilik çözdünüz saygılarımla

 

[mustafa7691]

sayın dostlar bu koda da bi bakarmısınız.

Private Sub TextBox1_Change()
ActiveSheet.Unprotect Password:="0"
ListBox1.Clear
Set s1 = Sheets("RUTİN AŞILAR")

For a = 1 To [b65536].End(3).Row
Set bul = Cells(a, "b").Find(TextBox1, lookat:=xlPart)
If bul Is Nothing Then GoTo 2

ListBox1.AddItem Cells(a, "b")
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(a, "b")
2
Next
ActiveSheet.Protect Password:="0"
End Sub


normalde bu kodla textbox a girilen soy isim listboksta listelenebiliyordu.
benim tabloda soy isim "B",adı "C",aşı tarihi "d" ve doğum tarihi "e" sütununda kayıtlı.şimdi burada ben textboxa soyadı girdiğimde soyadı list boxta iki kez yan yana yazılıyor.bunu çözemedim yardımınız olursa sevinirim.
sanırım
ListBox1.AddItem Cells(a, "b")
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(a, "b")
2
burada bir sorunum var.


ayrıca bir commbut dada bu kodlarla listboxı genişletebiliyordum.
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="0"

ListBox1.Clear
Set s1 = Sheets("RUTİN AŞILAR")

For a = 1 To [b65536].End(3).Row
Set bul = Cells(a, "b").Find(TextBox1, lookat:=xlPart)
If bul Is Nothing Then GoTo 2
ListBox1.ColumnCount = 5

ListBox1.AddItem Cells(a, "b")
ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(a, "b")
ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(a, "c")
ListBox1.List(ListBox1.ListCount - 1, 3) = Format(Cells(a, "d"), "dd.mm.yy")
ListBox1.List(ListBox1.ListCount - 1, 4) = Format(Cells(a, "e"), "dd.mm.yy")





2
Next
ActiveSheet.Protect Password:="0"
End Sub

ama tabi aynı nedenle soyisim iki kez görünüyor.

 

[Recep İpek]

Tamamen deneme ama

ListBox1.AddItem Cells(a, "b")

satırını silerek tekrar deneyiniz.

 

[mustafa7691]

evet sayın Ripek düzeldi teşekkür ederim.saygılarımla