Combobox seçimine göre tablo satır sayısı ayarlama

[hvkvn]

mrb arkadaşlar, başlıktada belirttiğim gibi bir tablom var ve combobox taki seçime göre tablo satır sayısının değişmesini istiyorum ama başarılı olamadom yardımlarınızı bekliyorum örnek ektedir.

 

[Ömer]

Merhaba,

Kodları module kopyalayın daha sonra sayfadaki açılır kutuya atayın.

Sub EkleSil()
Application.ScreenUpdating = False
    If Sheets("Sayfa2").Range("A1") = 1 Then
        Rows("29:33").EntireRow.Hidden = True
        Rows("37:39").EntireRow.Hidden = False
    Else
        Rows("29:33").EntireRow.Hidden = False
        Rows("37:39").EntireRow.Hidden = True
    End If
Application.ScreenUpdating = True
End Sub

.