Select Case Döngüsü

[ahmed_ummu]

Merhaba arkadaşlar

Aşağıdaki kodda ne gibi bir hata var. İstediğim sonucu vermiyor. Combobox4.'ün değeri "Nisan" se 45. satır gizlenecek. Combobox4'ün değeri "Şubat" ise 43. 44. ve 45. satırlar gizlenecek. Hiçbir işlem yapmıyor, hata da vermiyor.

Select Case ComboBox4.Value
Case Is = "Şubat"
For i = 43 To 45
Rows(i).Hidden = True
Next i

Case Is = "Nisan"
For i = 45 To 45
Rows(i).Hidden = True
Next i

End Select

 

[AdemCan]

Merhaba, kodlar çalışıyor.
Nisan seçildiği zaman 43 ve 44. satırın gösterilmesi için satır ekledim.
Eğer hata almaya devam ederseniz örnek dosya paylaşır mısınız?

Private Sub ComboBox4_Change()
    Select Case ComboBox4.Value
    Case Is = "Şubat"
        For i = 43 To 45
            Rows(i).Hidden = True
        Next i    
    Case Is = "Nisan"
        For i = 45 To 45
            Rows("43:44").Hidden = False
            Rows(i).Hidden = True
        Next i    
    End Select
End Sub

 

[alicimri]

Gizlenecek satırlar ardışıksa for döngüsüne gerek yok.

Rows.Hidden = False
Select Case ComboBox1.Value
Case Is = "Şubat"
Rows("43:45").Hidden = True
Case Is = "Nisan"
Rows(45).Hidden = True
End Select

Not: ilk kod satırı, satırların gizliliğini kaldırıyor.

 

[ahmed_ummu]

Merhaba, kodlar çalışıyor.
Nisan seçildiği zaman 43 ve 44. satırın gösterilmesi için satır ekledim.
Eğer hata almaya devam ederseniz örnek dosya paylaşır mısınız?

Private Sub ComboBox4_Change()
    Select Case ComboBox4.Value
    Case Is = "Şubat"
        For i = 43 To 45
            Rows(i).Hidden = True
        Next i   
    Case Is = "Nisan"
        For i = 45 To 45
            Rows("43:44").Hidden = False
            Rows(i).Hidden = True
        Next i   
    End Select
End Sub

Teşekkürler sayın AdemCan Dosyam işyerinde yarın denerim.

 

[ahmed_ummu]

Gizlenecek satırlar ardışıksa for döngüsüne gerek yok.

Rows.Hidden = False
Select Case ComboBox1.Value
Case Is = "Şubat"
Rows("43:45").Hidden = True
Case Is = "Nisan"
Rows(45).Hidden = True
End Select

Not: ilk kod satırı, satırların gizliliğini kaldırıyor.

Teşekkürler sayın alicimri dosyam işyerinde yarın denerim