Que estoy haciendo mal
HOla, ojala y puedas ayudarme
Estoy haciendo una macro que entre a varios libros de excel que tienen optionbuttons y por medio de contadores saber que opciones están seleccionadas para graficar después en base a eso.
El problema es que no se como hacer referencia a los distintos libros de excel.
Workbooks.Open Filename:= _
"D:\e2.xls"
Application.Workbooks("e2.xls").Activate
Sheets(1).Select
If virtual Then
cont1=cont1+1
ElseIf presencial Then
count2=count2+1
End If
End Sub
Pienso que me esta faltando algo para decirle que el optionbutton esta dentro de la hoja de excel y no en un formulario.
Ojala puedas decirme que m esta faltando
Gracias
Estoy haciendo una macro que entre a varios libros de excel que tienen optionbuttons y por medio de contadores saber que opciones están seleccionadas para graficar después en base a eso.
El problema es que no se como hacer referencia a los distintos libros de excel.
Workbooks.Open Filename:= _
"D:\e2.xls"
Application.Workbooks("e2.xls").Activate
Sheets(1).Select
If virtual Then
cont1=cont1+1
ElseIf presencial Then
count2=count2+1
End If
End Sub
Pienso que me esta faltando algo para decirle que el optionbutton esta dentro de la hoja de excel y no en un formulario.
Ojala puedas decirme que m esta faltando
Gracias
1 Respuesta
Respuesta
1
La forma es
Sheets(1).OptionButton.Value
si en tu caso, el optionbutton se llama virtual, la consulta sería
Sheets(1).virtual.Value
Sheets(1).OptionButton.Value
si en tu caso, el optionbutton se llama virtual, la consulta sería
Sheets(1).virtual.Value
Excelente, la vdd es que había tratado con varias cosas como HOJA1.Cells(9, 9) = virtual y otras más, pero muchas gracias ya estoy programando y esto me va a ahorrar mucho tiempo.
+ Abusando de ti podrias darme un tip para poner en una variable el contenido de un cuadro de texto.
lo intente con:
conten=ActiveSheet.Shapes("Text Box 32").Select
Pero no sale y no existe la propiedad value para esta opción.
Gracias!
+ Abusando de ti podrias darme un tip para poner en una variable el contenido de un cuadro de texto.
lo intente con:
conten=ActiveSheet.Shapes("Text Box 32").Select
Pero no sale y no existe la propiedad value para esta opción.
Gracias!