vba wielkość spreadsheet

[Ghostman]

witam

 

mam taki kod

 

Private Sub CommandButton1_Click()Dim kryteria, warianty_dec, obiekty_db, obiekty_zl, wiersze As Integerkryteria = Val(il_krytTB.Text)warianty_dec = Val(il_war_decTB.Text)obiekty_zl = Val(il_ob_zlTB.Text)obiekty_db = Val(il_ob_dbTB.Text)wiersze = warianty_dec + obiekty_zl + obiekty_dbMultiPage1.Value = MultiPage1.Value + 1End Sub

mam page1 gdzie są komórki z których pobierają się wartości i page2 gdzie jest spreadsheet1. Chciałbym ,że liczba wierszy spreadsheet1 zależała od wartości "wiersze" i liczba kolumn od wartości kryteria.

 

Próbowałem rows i columns ale nie działa.