Şarta Bağlı Sayfaya Veri Getirme

[ahmed_ummu]

Merhaba arkadaşlar.

Örnek olarak gönderdiğim dosyada, form üzerinde bulunan Optionbuttonlardan "TÜM PERSONEL" seçeneğini seçip, Checkboxlardan herhangi bir seçim yaptığımda seçilen bilgilerin tümünü getiriyor. Fakat Optionbuttonlardan diğer seçenekleri seçtiğimde, mesela "EĞİTİM ÖĞRETİM HİZMETİ" "TÜM KADROLU PERSONEL" vb seçip, checkboxlardan seçim yaptığımda bilgiler son kişiye kadar gelmiyor. Yardımcı olabilir misiniz. Çözemedim bir türlü.

 

[AdemCan]

Merhaba, CheckBoxlarda kullandığınız döngü kodlarını

For i = 5 To sh2.Cells(Rows.Count, 2).End(xlUp).Row
If sh2.Cells(i, 2).Value = sh1.Cells(i - 3, 2).Value Then
sh2.Range(SutunHarf & s).Value = sh1.Cells(i - 3, 4).Value
sh2.Range(SutunHarf & s).Font.Size = 8
sh2.Range(SutunHarf & s).Borders.LineStyle = 1
s = s + 1
End If

bu kodlar ile değiştiriniz.

For i = 2 To sh1.Cells(Rows.Count, 2).End(xlUp).Row
    If sh2.Cells(s, 2).Value = sh1.Cells(i, 2).Value Then
        sh2.Range(SutunHarf & s).Value = sh1.Cells(i, 4).Value
        sh2.Range(SutunHarf & s).Font.Size = 8
        sh2.Range(SutunHarf & s).Borders.LineStyle = 1
        s = s + 1
    End If
Next i

Örnek olarak CheckBox1 için değiştirdim, Siz diğer CheckBoxlara göre kodu değiştirirsiniz.

 

[ahmed_ummu]

Merhaba, CheckBoxlarda kullandığınız döngü kodlarını

For i = 5 To sh2.Cells(Rows.Count, 2).End(xlUp).Row
If sh2.Cells(i, 2).Value = sh1.Cells(i - 3, 2).Value Then
sh2.Range(SutunHarf & s).Value = sh1.Cells(i - 3, 4).Value
sh2.Range(SutunHarf & s).Font.Size = 8
sh2.Range(SutunHarf & s).Borders.LineStyle = 1
s = s + 1
End If

bu kodlar ile değiştiriniz.

For i = 2 To sh1.Cells(Rows.Count, 2).End(xlUp).Row
    If sh2.Cells(s, 2).Value = sh1.Cells(i, 2).Value Then
        sh2.Range(SutunHarf & s).Value = sh1.Cells(i, 4).Value
        sh2.Range(SutunHarf & s).Font.Size = 8
        sh2.Range(SutunHarf & s).Borders.LineStyle = 1
        s = s + 1
    End If
Next i

Örnek olarak CheckBox1 için değiştirdim, Siz diğer CheckBoxlara göre kodu değiştirirsiniz.

Çok teşekkürler sayın AdemCan düzeldi.

 

[AdemCan]

Rica ederim.