OptionButton ile ilgili yardım

[imdatsaral]

Selam Arkadaşlar,

Private Sub OptionButton1_Click()
Sheets("Kumas_Bilgi_Etiketi").Rows("162:184").Select
Selection.EntireRow.Hidden = True
Range (I10)
End Sub

Private Sub OptionButton2_Click()
Sheets("Kumas_Bilgi_Etiketi").Rows("162:184").Select
Selection.EntireRow.Hidden = False
Range (I10)
End Sub

OptionButton Tıkladığımda Range dizisinde hata veriyor. Benim Yapmak istediğim işlem yapılıp I10 hücresini seçsin

İyi çalışmalar

 

[BG]

Merhaba

Selam Arkadaşlar,

Private Sub OptionButton1_Click()
Sheets("Kumas_Bilgi_Etiketi").Rows("162:184").Select
Selection.EntireRow.Hidden = True
Range (I10)
End Sub

Private Sub OptionButton2_Click()
Sheets("Kumas_Bilgi_Etiketi").Rows("162:184").Select
Selection.EntireRow.Hidden = False
Range (I10)
End Sub

OptionButton Tıkladığımda Range dizisinde hata veriyor. Benim Yapmak istediğim işlem yapılıp I10 hücresini seçsin

İyi çalışmalar

sizin kod satırınız : Range (I10)
range("I10").select
veya [I10].select

tırnak işaretlerinin olmamasından dolayı hata veriyor olabilir mi !!

 

[Kemal Demir]

Merhaba,

Private Sub OptionButton1_Click()
Sheets("Kumas_Bilgi_Etiketi").Rows("162:184").Select
Selection.EntireRow.Hidden = True
Range("I10").Select
End Sub

Private Sub OptionButton2_Click()
Sheets("Kumas_Bilgi_Etiketi").Rows("162:184").Select
Selection.EntireRow.Hidden = False
Range("I10").Select
End Sub

Yukarıdaki gibi denermisiniz.

 

[ersoyalan]

Buda benden olsun.
Rakkas hocamın verdiği kod bende hata verdiği için ufak bir ekleme yaptım.

Syg,
E.ALAN

Sub OptionButton1_Click()
On Error Resume Next
Sheets("Kumas_Bilgi_Etiketi").Rows("162:184").Select
Selection.EntireRow.Hidden = True
Range("I10").Select
End Sub

Sub OptionButton2_Click()
On Error Resume Next
Sheets("Kumas_Bilgi_Etiketi").Rows("162:184").Select
Selection.EntireRow.Hidden = False
Range("I10").Select
End Sub

 

[imdatsaral]

Teşekkür ederim Rakkas istediğim gibi sağol