Satır Genişlet - Satır Gizle

[u.L.a.s]

Üstadlarım merhabalar

Ekteki görselde ki gibi bir excel çalışma sayfam var. yeşil butonlarla bastığım satır numarası ne ise o satırı row heightini sıfırlayıp ya da diğer butonlada row heightini 20 değeriyle açabiliyorum.

ilk etpta az satır olduğundan bu butonlar çok rahatsız etmiyordu ama şimdi 50 satıra kadar bu butonlardan yerleştireceğim bu sefer görsel olarak çok kalabalık bir sayfa oluyor

ben bu butonlar yerine sayfada kalabalık yaratmayacak bir şey yapayım istiyorum. örneğin P sütunu satırları genişletme butonlarını koydum burada P3 hücresine satırı genişletmek için örneğin 1 tane buton olsun ben P3 hangi satırı genişletmek istiyorsam o satıra ait numarayı yazıp butona basınca o satıra ait genişletmeyi yapsın R3 hücresindede o satırı gizlemeyi yapsın. böylelikle buton kalabalığından kurtulabilirim diye düşünüyorum.

bu arada son iki butonun satır genişliğini sıfırlama ve açma koduna örnek aşağıdaki gibidir.

Sub RowHeightotuzikigenislet()

    Rows("32").RowHeight = 21

End Sub
Sub RowHeightotuzikikapat()

    Rows("32").RowHeight = 0

End Sub

Sub RowHeightotuzucgenislet()

    Rows("33").RowHeight = 21

End Sub
Sub RowHeightotuzuckapat()

    Rows("33").RowHeight = 0

End Sub

 

[ÖmerFaruk]

Sub Satır1()
If [R3] > 0 And [R3] <= Rows.Count Then Rows([R3]).RowHeight = 0
End Sub
Sub Satır2()
If [P3] > 0 And [P3] <= Rows.Count Then Rows([P3]).RowHeight = 20
End Sub

 

[u.L.a.s]

Üstadım emeğine bilgine sağlık çok teşekkür ederim.