Checkbox'ların Userform da işaretli görünmesi

[irfancantr]

Merhaba değerli forum üyeleri,

Dosyam da 8 adet checkbox var , bunları Listbox1'e tıkladığım da ilgili hücreler dolu ise checkboxlar userform da işaretli görünmesini istiyorum. Bu kod hakkında yardım edebilir misiniz?

Herkese şimdiden teşekkür ediyorum.

 

[ynmcan]

Merhaba değerli forum üyeleri,

Dosyam da 8 adet checkbox var , bunları Listbox1'e tıkladığım da ilgili hücreler dolu ise checkboxlar userform da işaretli görünmesini istiyorum. Bu kod hakkında yardım edebilir misiniz?

Herkese şimdiden teşekkür ediyorum.

Syn. İrfancantr;
İlgili hücreler hangileri ? Belirtirmisiniz.

 

[irfancantr]

Syn. İrfancantr;
İlgili hücreler hangileri ? Belirtirmisiniz.

Merhaba,

L:S sütunları ... Yani Listbox hangi satır bilgilerini textboxlara getiriyorsa o satır bilgilerinde "L : S " sütunları arasında ki satır içlerinde " + " işaretli olan checkboxlar userform da işaretli gözüksün istemiştim.

 

[halit3]

Merhaba değerli forum üyeleri,

Dosyam da 8 adet checkbox var , bunları Listbox1'e tıkladığım da ilgili hücreler dolu ise checkboxlar userform da işaretli görünmesini istiyorum. Bu kod hakkında yardım edebilir misiniz?

Herkese şimdiden teşekkür ediyorum.

ListBox1_Click kodunu aşağıdaki ile değiştirin

Private Sub ListBox1_Click()
Dim sat, i, j
sat = ListBox1.ListIndex + 2
On Error Resume Next
For j = 1 To 5
Controls("ComboBox" & j).Text = ""
Controls("Textbox" & j).Text = ""
Controls("ComboBox" & j).Text = Cells(sat, j + 1).Value
Controls("Textbox" & j).Text = Cells(sat, j + 6).Value
Next
For i = 1 To 8
Controls("CheckBox" & i).Value = False
If Cells(sat, i + 11).Value = "+" Then
Controls("CheckBox" & i).Value = True
End If
Next
End Sub

 

[irfancantr]

ListBox1_Click kodunu aşağıdaki ile değiştirin

Sayın halit3 , ilgi ve alakanız için teşekkür ederim. Kodlarınızın mantığı ile birkaç uzun kodu kısaltabilmiş oldum.

 

[halit3]

Sayın halit3 , ilgi ve alakanız için teşekkür ederim. Kodlarınızın mantığı ile birkaç uzun kodu kısaltabilmiş oldum.

İyi çalışmalar