[حل شده] هاید کردن شیت

[sayed]

سلام دوستان
من کد زیر را نوشتم برای hide وunhide کردن شیت ها اکسل بدین صورت که اگرمقدار سلول (1 ,i) بیشتر مساوی 1 بود شیت (3 ,i) را unhide ودر غیر این صورت هاید کند. ولی ارور میده ، کسی دلیلشو میدونه، راهنمائیم کنه.

Sub addsheet()
Dim AA As String
For i = 1 To 6
AA = Cells(i, 3).Text
If Cells(i, 1).Value >= 1 Then
Sheets(AA).Visible = True
Else
Sheets(AA).Visible = False
End If
Next i
Sheets("sheet1").Cells(1, 1).Activate
End Sub 

[iranweld]

با سلام

کدهای ذیل رو تست کنید. (بررسی کنید که نام sheet1 شما AA نباشد)

Sub addsheet()
Dim AA As String
For i = 1 To 6
AA = Cells(i, 3).Text
If Cells(i, 1).Value >= 1 Then
Sheets("AA").Visible = True
Else
Sheets("AA").Visible = False
End If
Next i
Sheets("Sheet1").Select
End Sub