Rows Hide

[علی فاطمی]

با درود
ایطورکی درسش کن ببین میشه - لمشو بگیر - خان خاکزاد گفت " " بردار نگفت که که واسه دونقه : هم برش دار- بعدشم میای به textbox اتون خاصیت text میدی - اگر text میدی باید بنویسی

val(m) مثلا

Private Sub CommandButton3_Click()
UserForm1.Hide
Dim a
Dim m
Dim n
m = TextBox1.Value
n = TextBox2.Value
Sheet1.Rows.EntireRow.Hidden = True
Sheet1.Range(m & ":" & n).Rows.EntireRow.Hidden = False
Sheet1.PrintPreview
a = Application.WorksheetFunction.Count(Sheet1.Range(" a1:a100"))
UserForm1.Hide
Sheet1.Range("1:" & a).Rows.EntireRow.Hidden = False
End Sub

مثل همیشه بسیار عالی بود .
ممنون از توجه شما.