koddaki bir cümlenin açıklaması için

[mustafa7691]

sn dostlar yine yardımınıza ihtiyacım var.sayfa büyük foruma yükleyemedim.normalde user form üzerinden arama yapmaya yarıyan bir form.ancak biraz uyarlama gerekti.birçok sorunu hallettim ama bir yerde takıldım.list box ta açılan arama sonuçları üzerine çift tıklama ile o sonuçları texboxlara dağıtıyordum.ancak
s1.Cells(ListBox1.List(, 0) + 4, "a").Select satırı hata veriyor.açıkçası satırın açıklamasınıda bilemedim.bunu bana açıklayabilirmisiniz yada hatayı görebilirmisiniz.saygılarımla





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


Sub veriekle()
ActiveSheet.Unprotect Password:="0"
ARAMA.alan02.Value = ActiveCell.Value
ARAMA.alan03.Value = ActiveCell.Offset(0, 1).Value
ARAMA.alan04.Value = Format(ActiveCell.Offset(0, 2).Value, "dd.mm.yyyy")
ARAMA.alan05.Value = Format(ActiveCell.Offset(0, 3).Value, "dd.mm.yyyy")
ARAMA.alan06.Value = ActiveCell.Offset(0, 4).Value
ARAMA.alan07.Value = ActiveCell.Offset(0, 5).Value
ARAMA.alan08.Value = ActiveCell.Offset(0, 6).Value
ARAMA.alan09.Value = ActiveCell.Offset(0, 7).Value
ARAMA.alan10.Value = ActiveCell.Offset(0, 8).Value
ARAMA.alan11.Value = ActiveCell.Offset(0, 9).Value
ARAMA.alan12.Value = ActiveCell.Offset(0, 10).Value
ARAMA.alan13.Value = ActiveCell.Offset(0, 11).Value






ActiveSheet.Protect Password:="0"
End Sub

 

[Zeki Gürsoy]

s1.Cells(ListBox1.List( [B][COLOR=red],[/COLOR][/B] 0) + 4, "a").Select

kısmında virgülün solunda eksiklik var.

Bu şekilde deneyin.

s1.Cells(ListBox1.List(ListBox1.ListIndex + 4, 0), "a")).Select

 

[mustafa7691]

hayır hocam bu şekilde compıle error hatası veriyor.değiştirmeyi bile kabul etmedi yinede sağolun.+4 rakamı anladığım kadarıyla yukardan aşağıya ilgili satırı gösteriyoır.sanırım çünki ilk 4 satır bu arama sayfasına dahil olmayan genel kurum bilgileri içeriyor.