Seçime Göre Satır Gizleme

[hvkvn]

Mrb arkadaşlar, örnekteki comboboxda toplam ve nakli yekün var. Toplam seçiliyken 25-26-27-28-29 ve 30ncu satırların gizlenmesini,
nakli yekün seçiliyken bu satırların görünmesini istiyorum.
Bunu nasıl yapabilirim ?

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub Açılan10_Değiştir()
If Sheets("veriler").Range("a30") = 1 Then
Range("A27:A31").EntireRow.Hidden = True
Else:
Range("A27:A31").EntireRow.Hidden = False
End If
End Sub

 

[hvkvn]

teşekkür ederim uzmanamele, şimdilik yeterli üzerinde çalışıp biraz daha geliştirmem gerekecek sorumda en basite indirmiştim, takılırsam tekrar yardımını isterim.

 

[hvkvn]

mr uzmanamele, senin yapmış olduğun örnek çalışıyor fakat bu kodu kendi dosyamda çalıştıramadım nedeninide çözemedim yardırmcı olursan sevinirim,