CheckBox Kod kısaltma

[irfancantr]

İyi akşamlar,

Aşağıda gördüğünüz gibi uzunca bir kod hazırladım.

If CheckBox1 Then Cells(SATIR, "CN") = ("+") Else Cells(SATIR, "CN") = ("")
If CheckBox2 Then Cells(SATIR, "CO") = ("+") Else Cells(SATIR, "CO") = ("")
If CheckBox3 Then Cells(SATIR, "CP") = ("+") Else Cells(SATIR, "CP") = ("")
If CheckBox4 Then Cells(SATIR, "CQ") = ("+") Else Cells(SATIR, "CQ") = ("")
If CheckBox5 Then Cells(SATIR, "CR") = ("+") Else Cells(SATIR, "CR") = ("")
.............
........
....
If CheckBox70 Then Cells(SATIR, "FE") = ("+") Else Cells(SATIR, "FE") = ("")

Bu örnekte bulunan kod gibi kısaltma şansımız var mı?

[CODE][COLOR="Red"][B]Uzun kod.....[/B][/COLOR]
Cells(SATIR, "I") = TextBox1.Text
Cells(SATIR, "J") = TextBox2.Text
Cells(SATIR, "K") = TextBox3.Text
Cells(SATIR, "L") = TextBox4.Text
..........
......
....
Cells(SATIR, "BP") = TextBox60.Value

[COLOR="red"][B]Kısaltılmış hali kod......[/B][/COLOR]
Dim ts, kaplan, SATIR
    SATIR = Range("A" & Rows.Count).End(xlUp).Row + 1
kaplan = 9
For ts = 1 To 60
    Cells(SATIR, kaplan) = Controls("Textbox" & ts)
    kaplan = kaplan + 1
Next

[/CODE]

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

for a=1 to 70
cells(SATIR,a+91)=iif(controls("checkbox" & a),"+","")
next

 

[İhsan Tank]

Merhaba

Dim ts, kaplan, satır
satır = 1
kaplan = 92
For ts = 1 To 70
If Controls("Checkbox" & ts) Then Cells(satır, kaplan) = ("+") Else Cells(satır, kaplan) = ("")
kaplan = kaplan + 1
Next

Bunu dener misiniz_?

 

[irfancantr]

Merhaba

Dim ts, kaplan, satır
satır = 1
kaplan = 92
For ts = 1 To 70
If Controls("Checkbox" & ts) Then Cells(satır, kaplan) = ("+") Else Cells(satır, kaplan) = ("")
kaplan = kaplan + 1
Next

Bunu dener misiniz_?

Hoş geldiniz İhsan hocam teşekkür ederim harika oldu.

Peki ben listboxtan ilgili sütunu seçtiğimde "+" işareti koyulan hücrelere denk gelen checkboxlar userformda seçili görünebilir mi?

Sizin hazırladığınız listbox1_click () koduna ilave edicem,

Dim sat, kaplan, ts
On Error Resume Next
For sat = 2 To Cells(65536, "b").End(xlUp).Row
If Cells(sat, "A") = ListBox1.Column(0) * 1 Then
kaplan = 2
For ts = 1 To 7
Controls("ComboBox" & ts) = Cells(sat, kaplan)
kaplan = kaplan + 1
Next
kaplan = 9
For ts = 1 To 72
Controls("Textbox" & ts) = Cells(sat, kaplan)
kaplan = kaplan + 1
Next
End If
Next

 

[İhsan Tank]

Merhaba
1. problem benim mesajımın üstünde levent hocamın bir mesajı var ve emek harcanmış.
2. sorunuzun bu konu ile alakası yok yeni bir konu açın ve ufak çaplı bir dosya ekleyin konu içinde ve dosya içinde açıklama ekleyin.

 

[irfancantr]

Pardon heyecandan olsa gerek Sayın Levent hocamın cevabını göremedim, çok özür dilerim Levent hocam.

Konuyu tekrardan küçük bir örnekle açıcam. Tekrardan çok teşekkürler hayırlı geceler.

 

[İhsan Tank]

Pardon heyecandan olsa gerek Sayın Levent hocamın cevabını göremedim, çok özür dilerim Levent hocam.

Konuyu tekrardan küçük bir örnekle açıcam. Tekrardan çok teşekkürler hayırlı geceler.

Rica ederim
:keyif: