Problema con la ejecución de un CommandButton

23/10/2007 - 20:30 por Miguel | Informe spam

Tengo un formulario de entrada de datos, para lo cual he creado un
UserForm con varios TextBox y Combobox, y tres CommandButton,
(CommandButton1 para Registrar; el CommandButton2 para Cancelar y el
CommandButton3 para Salir del Formulario). El problema me surge con
uno de los CommandButton, concretamente el CommandButton2 que lo
utilizo para Cancelar. Siempre que lo acciono me da el siguiente
error:
"Error de compilación:
No se encontró el método o el dato miembro"

Le doy aceptar y, en la macro, se marca en amarillo lo siguiente:
"Private Sub CommandButton2_Click()"

La macro con la que estoy funcionando, es la siguiente:

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Or TextBox1.Value = "" Or TextBox2.Value = ""
Or ComboBox3.Value = "" Or TextBox3.Value = "" Or ComboBox5.Value = ""
Or ComboBox6.Value = "" Or ComboBox7.Value = "" Or ComboBox8.Value "" Or ComboBox9.Value = "" Or ComboBox10.Value = "" Or
ComboBox11.Value = "" Or ComboBox12.Value = "" Then
MsgBox ("FALTAN CASILLAS POR LLENAR")
Exit Sub
End If
Sheets("ESTADISTICA").Visible = True
Sheets("estadistica").Select
contar = Application.WorksheetFunction.CountA(Range("a2:a50000"))
Cells(contar + 2, 1) = contar + 1
Range("registro") = contar + 1
Cells(contar + 2, 2) = TextBox1.Value
Cells(contar + 2, 3) = TextBox2.Value
Cells(contar + 2, 4) = ComboBox3.Value
Cells(contar + 2, 5) = TextBox3.Value
Cells(contar + 2, 6) = ComboBox5.Value
Cells(contar + 2, 7) = ComboBox6.Value
Cells(contar + 2, 8) = ComboBox7.Value
Cells(contar + 2, 9) = ComboBox8.Value
Cells(contar + 2, 10) = ComboBox9.Value
Cells(contar + 2, 11) = ComboBox10.Value
Cells(contar + 2, 12) = ComboBox11.Value
Cells(contar + 2, 13) = ComboBox12.Value
Sheets("ESTADISTICA").Visible = False
Sheets("inicio").Select
End Sub
Private Sub CommandButton2_Click() AQUÍ ES DONDE ME DA EL ERROR
TextBox1.Clear
TextBox2.Clear
ComboBox3.Clear
TextBox3.Clear
ComboBox5.Clear
ComboBox6.Clear
ComboBox7.Clear
ComboBox8.Clear
ComboBox9.Clear
ComboBox10.Clear
ComboBox11.Clear
ComboBox12.Clear
Dim nal As Single
Dim und As Single
Dim doc As Single
Dim mot As Single
Sheets("LISTAS").Visible = True
Sheets("listas").Select

und = Application.WorksheetFunction.CountA(Range("a2:a50000"))
doc = Application.WorksheetFunction.CountA(Range("b2:b50000"))
nal = Application.WorksheetFunction.CountA(Range("c2:c50000"))
mot = Application.WorksheetFunction.CountA(Range("d2:d50000"))

For und1 = 2 To und + 1
Celda = Cells(und1, 1).Value
ComboBox3.AddItem Celda
Next

For doc1 = 2 To doc + 1
Celda = Cells(doc1, 2).Value
ComboBox7.AddItem Celda
ComboBox9.AddItem Celda
ComboBox11.AddItem Celda
Next

For nal1 = 2 To nal + 1
Celda = Cells(nal1, 3).Value
ComboBox5.AddItem Celda
ComboBox8.AddItem Celda
ComboBox10.AddItem Celda
ComboBox12.AddItem Celda
Next

For mot1 = 2 To mot + 1
Celda = Cells(mot1, 4).Value
ComboBox6.AddItem Celda
Next
Sheets("LISTAS").Visible = False
Sheets("inicio").Select
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Sheets("listas").Visible = True
Sheets("ESTADISTICA").Visible = False
Sheets("listas").Select
End If
Unload Me
End Sub

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
Sheets("ESTADISTICA").Visible = True
Sheets("LISTAS").Visible = False
Sheets("ESTADISTICA").Select
End If
Unload Me
End Sub

Private Sub OptionButton3_Click()
If OptionButton3.Value = True Then
Sheets("ESTADISTICA").Visible = False
Sheets("LISTAS").Visible = False
Sheets("TABLA").Select
End If
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim nal As Single
Dim und As Single
Dim doc As Single
Dim mot As Single
Sheets("listas").Visible = True

Sheets("listas").Select

und = Application.WorksheetFunction.CountA(Range("a2:a50000"))
doc = Application.WorksheetFunction.CountA(Range("b2:b50000"))
nal = Application.WorksheetFunction.CountA(Range("c2:c50000"))
mot = Application.WorksheetFunction.CountA(Range("d2:d50000"))

For und1 = 2 To und + 1
Celda = Cells(und1, 1).Value
ComboBox3.AddItem Celda
Next

For doc1 = 2 To doc + 1
Celda = Cells(doc1, 2).Value
ComboBox7.AddItem Celda
ComboBox9.AddItem Celda
ComboBox11.AddItem Celda
Next

For nal1 = 2 To nal + 1
Celda = Cells(nal1, 3).Value
ComboBox5.AddItem Celda
ComboBox8.AddItem Celda
ComboBox10.AddItem Celda
ComboBox12.AddItem Celda
Next

For mot1 = 2 To mot + 1
Celda = Cells(mot1, 4).Value
ComboBox6.AddItem Celda
Next

Sheets("listas").Visible = False
Sheets("inicio").Select
End Sub

Solicito vuestra ayuda para solucionar el problema y mejorar la
macro.

Muchas gracias
M. Ángel

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Mauro Jesús

23/10/2007 - 20:55 | Informe spam

Me parece que ese error es porque estas colocando un metodo o propiedad a
un objeto que no lo tiene definido, por ejemplo, si en un texbox escribes lo
siguiente:

Textbox.Caption

Esta linea te va a mandar un error ya que el objeto Textbox no tiene la
propiedad Caption.

Checa bien en los textbox, combos y en las hojas que las propiedades y
que le estas asignando.

Por otra parte,
1. en los ciclos For, no veo el caso de que primero asignes el valor de la
celda a la variable "celda" y despues lo agregues al combo creo que es mejor
que lo agregues directamente de esta manera:

For und1 = 2 To und + 1
ComboBox3.AddItem Cells(und1, 1).Value
Next

2. creo que si a tu codigo le colocas sangrias, se volvería mas facil de
leer, es decir:

Private Sub CommandButton2_Click() 'AQUÍ ES DONDE ME DA EL ERROR
Dim nal As Single
Dim und As Single
Dim doc As Single
Dim mot As Single
TextBox1.Clear
TextBox2.Clear
ComboBox3.Clear
TextBox3.Clear
ComboBox5.Clear
ComboBox6.Clear
ComboBox7.Clear
ComboBox8.Clear
ComboBox9.Clear
ComboBox10.Clear
ComboBox11.Clear
ComboBox12.Clear
Sheets("LISTAS").Visible = True
Sheets("listas").Select

und = Application.WorksheetFunction.CountA(Range("a2:a50000"))
doc = Application.WorksheetFunction.CountA(Range("b2:b50000"))
nal = Application.WorksheetFunction.CountA(Range("c2:c50000"))
mot = Application.WorksheetFunction.CountA(Range("d2:d50000"))

For und1 = 2 To und + 1
Celda = Cells(und1, 1).Value
ComboBox3.AddItem Celda
Next

For doc1 = 2 To doc + 1
Celda = Cells(doc1, 2).Value
ComboBox7.AddItem Celda
ComboBox9.AddItem Celda
ComboBox11.AddItem Celda
Next

For nal1 = 2 To nal + 1
Celda = Cells(nal1, 3).Value
ComboBox5.AddItem Celda
ComboBox8.AddItem Celda
ComboBox10.AddItem Celda
ComboBox12.AddItem Celda
Next

For mot1 = 2 To mot + 1
Celda = Cells(mot1, 4).Value
ComboBox6.AddItem Celda
Next
Sheets("LISTAS").Visible = False
Sheets("inicio").Select
End Sub

Saludos!

Mauro Jesús

Responder a este mensaje

#2 Miguel

23/10/2007 - 22:47 | Informe spam

On 23 oct, 20:55, "Mauro Jesús"
wrote:

Me parece que ese error es porque estas colocando un metodo o propiedad a
un objeto que no lo tiene definido, por ejemplo, si en un texbox escribes lo
siguiente:

Textbox.Caption

Esta linea te va a mandar un error ya que el objeto Textbox no tiene la
propiedad Caption.

Checa bien en los textbox, combos y en las hojas que las propiedades y
que le estas asignando.

Por otra parte,
1. en los ciclos For, no veo el caso de que primero asignes el valor de la
celda a la variable "celda" y despues lo agregues al combo creo que es mejor
que lo agregues directamente de esta manera:

For und1 = 2 To und + 1
ComboBox3.AddItem Cells(und1, 1).Value
Next

2. creo que si a tu codigo le colocas sangrias, se volvería mas facil de
leer, es decir:

Private Sub CommandButton2_Click() 'AQUÍ ES DONDE ME DA EL ERROR
Dim nal As Single
Dim und As Single
Dim doc As Single
Dim mot As Single
TextBox1.Clear
TextBox2.Clear
ComboBox3.Clear
TextBox3.Clear
ComboBox5.Clear
ComboBox6.Clear
ComboBox7.Clear
ComboBox8.Clear
ComboBox9.Clear
ComboBox10.Clear
ComboBox11.Clear
ComboBox12.Clear
Sheets("LISTAS").Visible = True
Sheets("listas").Select

und = Application.WorksheetFunction.CountA(Range("a2:a50000"))
doc = Application.WorksheetFunction.CountA(Range("b2:b50000"))
nal = Application.WorksheetFunction.CountA(Range("c2:c50000"))
mot = Application.WorksheetFunction.CountA(Range("d2:d50000"))

For und1 = 2 To und + 1
Celda = Cells(und1, 1).Value
ComboBox3.AddItem Celda
Next

For doc1 = 2 To doc + 1
Celda = Cells(doc1, 2).Value
ComboBox7.AddItem Celda
ComboBox9.AddItem Celda
ComboBox11.AddItem Celda
Next

For nal1 = 2 To nal + 1
Celda = Cells(nal1, 3).Value
ComboBox5.AddItem Celda
ComboBox8.AddItem Celda
ComboBox10.AddItem Celda
ComboBox12.AddItem Celda
Next

For mot1 = 2 To mot + 1
Celda = Cells(mot1, 4).Value
ComboBox6.AddItem Celda
Next
Sheets("LISTAS").Visible = False
Sheets("inicio").Select
End Sub

Saludos!

Mauro Jesús

No entiendo que quieres decir con:
"Checa bien en los textbox, combos y en las hojas que las
propiedades y que le estas asignando".
¿Podrías ser un poco más explícito, por favor?

Muchas gracias por tu contestación.
Un saludo,
M. Ángel

Responder a este mensaje

#3 Mauro Jesús

24/10/2007 - 00:37 | Informe spam

Ok. Miguel, espero poder explicarme mejor.

En un objeto (por ejemplo, el combobox es un objeto) Lo que pones despues
del punto se conoce como propiedad.
Es decir, en alguna de las lineas de tu codigo tienes lo siguiente:

ComboBox9.Clear

esta linea te sirve para limpiar el listado que tenga el combobox, por lo
tanto "Clear" es una propiedad del combo y esta propiedad en un texbox por
ejemplo no te funcionaria ya que el textbox no reconoce "Clear" como parte
de una de sus propiedades y por lo tanto, te generaria un error.

En el ejemplo que te puse anteriormente, si tu escribes en una linea

Textbox.Caption= "Hola"

y tratas de ejecutar esta linea, te manda un error y la causa es porque le
estoy poniendo una propiedad "Caption" que no reconoce el textbox, en todo
caso lo correcto es

Textbox.Text= "Hola"

Aqui ya no tendrías error.

A esto es a lo que me referia cuando te escribí que Checaras que las
propiedades que le estas asignando a los objetos sean válidas ya que algun
objeto tiene una propiedad que no reconoce y de ahi que te manda el mensaje
de error.

Saludos!

Mauro Jesús

"Miguel" escribió en el mensaje
news:
On 23 oct, 20:55, "Mauro Jesús"
wrote:

Me parece que ese error es porque estas colocando un metodo o propiedad a
un objeto que no lo tiene definido, por ejemplo, si en un texbox escribes
lo
siguiente:

Textbox.Caption

Esta linea te va a mandar un error ya que el objeto Textbox no tiene la
propiedad Caption.

Checa bien en los textbox, combos y en las hojas que las propiedades y
que le estas asignando.

Por otra parte,
1. en los ciclos For, no veo el caso de que primero asignes el valor de la
celda a la variable "celda" y despues lo agregues al combo creo que es
mejor
que lo agregues directamente de esta manera:

For und1 = 2 To und + 1
ComboBox3.AddItem Cells(und1, 1).Value
Next

2. creo que si a tu codigo le colocas sangrias, se volvería mas facil de
leer, es decir:

Private Sub CommandButton2_Click() 'AQUÍ ES DONDE ME DA EL ERROR
Dim nal As Single
Dim und As Single
Dim doc As Single
Dim mot As Single
TextBox1.Clear
TextBox2.Clear
ComboBox3.Clear
TextBox3.Clear
ComboBox5.Clear
ComboBox6.Clear
ComboBox7.Clear
ComboBox8.Clear
ComboBox9.Clear
ComboBox10.Clear
ComboBox11.Clear
ComboBox12.Clear
Sheets("LISTAS").Visible = True
Sheets("listas").Select

und = Application.WorksheetFunction.CountA(Range("a2:a50000"))
doc = Application.WorksheetFunction.CountA(Range("b2:b50000"))
nal = Application.WorksheetFunction.CountA(Range("c2:c50000"))
mot = Application.WorksheetFunction.CountA(Range("d2:d50000"))

For und1 = 2 To und + 1
Celda = Cells(und1, 1).Value
ComboBox3.AddItem Celda
Next

For doc1 = 2 To doc + 1
Celda = Cells(doc1, 2).Value
ComboBox7.AddItem Celda
ComboBox9.AddItem Celda
ComboBox11.AddItem Celda
Next

For nal1 = 2 To nal + 1
Celda = Cells(nal1, 3).Value
ComboBox5.AddItem Celda
ComboBox8.AddItem Celda
ComboBox10.AddItem Celda
ComboBox12.AddItem Celda
Next

For mot1 = 2 To mot + 1
Celda = Cells(mot1, 4).Value
ComboBox6.AddItem Celda
Next
Sheets("LISTAS").Visible = False
Sheets("inicio").Select
End Sub

Saludos!

Mauro Jesús

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida