En un formulario quiero modificar el texto del label1, al ejecutarlo al final me da error 75 error de acceso a la ruta o archivo
En un formulario quiero modificar el texto del label1, al ejecutarlo todo funciona bien, y cambia el texto del label1, se abre el formulario, y al cerrarlo me da el siguiente error:
Adjunto la macro para ver si me podeis decir que hago mal para que salga este error.
Sub FORMULARIOLUGARNUEVORENOMRARFETIQUETA()
'
' FORMULARIOLUGARNUEVORENOMRARFETIQUETA Macro
'
LUGARARTICULO = "LUGAR" & TIPOARTICULO
'renombrar la etiqueta (lugar del articulo)
Dim frm As Object
Dim NombreUserform As String
NombreUserform = LUGARARTICULO
Set Control = ThisWorkbook.VBProject.VBComponents(NombreUserform).designer
With Control
.Controls("label1").Caption = "LUGAR DE " & TIPOARTICULO
End With
Set frm = UserForms.Add(NombreUserform)
frm.Show
Unload frm
End Sub
1 Respuesta
No conozco que hace esta línea
Set Control = ThisWorkbook.VBProject.VBComponents(NombreUserform).designer
Pero si tu haces asi
label1 = "LUGAR DE " & TIPOARTICULO
Si te funciona...
Esta línea es para poder ejecutar en el formulario(NombreUserForm el width y end width y entre estos se modifica el caption del label, pero a pesar de que lo hace todo, al final de la macro me sale ese error.
Ayuda por favor
Quizás tengas alguna variable no declarada u mal declarada... pero si tu ves que hace todo lo que necesitas y el único inconveniente seria la alerta del error podrías "momentaneamente" mientras encuentras el error agregar al principio del a macro "On Error Resume Next" para poder seguir trabajando sin que salga la alerta
Digo momentáneamente porque generalmente cuando ponemos algún "temporal" al no poder solucionarlo se convierte en "para siempre" xD ja ja
Lo mejor seria que uses esa línea para que te deje trabajar pero que sigas buscando el error ...
Puedes usar la misma línea para buscar línea por línea donde esta el error
Por ejemplo si tu piensas que el error esta en esta línea
Set Control = ThisWorkbook.VBProject.VBComponents(NombreUserform).designer
Escribela de la siguiente forma para ver si estas en lo cierto
On Error Resume Next Set Control = ThisWorkbook.VBProject.VBComponents(NombreUserform).designer On Error Goto 0
Y asi vas probando linea por linea... el "On Error Resume Next" desactiva las alertas de errores y sigue con la macro y el "On Error Goto 0" Activa nuevamente las alertas de errores
Espero haberte ayudado compañero
No olvides valorar la respuesta si te fue util
