Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

error 438 en visual basic

21/10/2008 - 17:33 por rocelixa | Informe spam
Ayuda Hacer una pregunta
hola

espero pueda ayudarme tengo este problema

tengo una macro ke esta asignada a un option button en una hoja de
excel ke permite poner texto en otra hoja al dar click en el option
button esta operacion la hice con otros option button y funciona
perfectamente solo ke al agregarle mas option button cuando doy click
en ellos me manda en siguiente error

Se ha producido el error '438' en tiempo de ejecución:

El objeto no admite esta propiedad o método

ya compare el codigo kon el codigo de los option button ke si
funcionan y no se como reparar el problema pues el codigo esta bien.
espero puedan ayudarme se los agradecere infinitamente

el pequeño codigo es este

Sub Residente()

'Residente

Dim valor
If ActiveSheet.Shapes("Option Button 36").Value = xlOn Then
valor = "1"
Sheets(2).Cells(4, 10) = valor
End If
End Sub
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
22/10/2008 - 02:37 | Informe spam
hola, !

(a menos que hubiera quedado algun detalle "en el tintero"...)
no alcanzo a apreciar la necesidad de usar codigo con optionbuttons de la barra "formularios" -?-
si en las propiedades del control (clic-secundario / formato del control) puedes vincular a otra hoja

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
tengo una macro ke esta asignada a un option button en una hoja de excel
ke permite poner texto en otra hoja al dar click en el option button
esta operacion la hice con otros option button y funciona perfectamente
solo ke al agregarle mas option button cuando doy click en ellos me manda en siguiente error
Se ha producido el error '438' en tiempo de ejecucion:
El objeto no admite esta propiedad o metodo
ya compare el codigo kon el codigo de los option button ke si funcionan
y no se como reparar el problema pues el codigo esta bien.
espero puedan ayudarme se los agradecere infinitamente

el pequeno codigo es este
Sub Residente()
Dim valor
If ActiveSheet.Shapes("Option Button 36").Value = xlOn Then
valor = "1"
Sheets(2).Cells(4, 10) = valor
End If
End Sub

Preguntas similares

 

Busqueda sugerida :