ماکرویی بابت hide و unhide کردن

[saleh64]

سلام من میخوام وقتی تیک check Box میزنیم و به طور مثال در سلول c1 کلمه truo نوشته میشه به فرض کل ستون D, ا Hidden بشه و وقتی تیک بر میداریم ستون unhide بشه
کد زیر نوشتم ولی نمیدونم کجاش مشکل داره که اعمال نمیشه
لطفا راهنمایی کنیدممنون

Sub s()
' s Macro'

If Range("c1") = "truo" Then Columns("D:D").Select
Selection.EntireColumn.Hidden = True
else Range("c1") = "false" Then Columns("C:E").Select
Selection.EntireColumn.unHidden = True
Range("A3").Select
End If
End Sub 

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[saleh64]

کسی بلد نیست راهنمایی کنه !!!؟

[مصطفی رجبی]

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

If Range("A1") = "True" Then

Columns("D:D").Hidden = True

Else
Columns("D:D").Hidden = False
End If