Problemas con Formulario
Tengo un formulario con un control Frame (Frame1) y 13 checkbox dentro del Frame.
Cada checkbox tiene un valor en la propiedad TAG indicando el numero de columna (de una hoja del mismo libro) que esta asociada a cada checkbox.
Quiero borrar la columna asociada a los checkbox que no estén marcados, es decir, que su valor sea 'False', pero Excel da un mensaje de error 438 en la instrucción marcada.
El código que he escrito es el siguiente:
Sub BorrarColumnas()
Dim c As Control
Dim Borrar, Borrados As Integer
Borrados = 0
For Each c In UserForm1.Frame1 <---- error 438
If c.Value = "False" Then
Borrar = CInt(c.Tag) - Borrados
ActiveSheet.Columns(Borrar).Delete
Borrados = Borrados + 1
End If
Next
End Sub
¿Dónde esta el error?
Cada checkbox tiene un valor en la propiedad TAG indicando el numero de columna (de una hoja del mismo libro) que esta asociada a cada checkbox.
Quiero borrar la columna asociada a los checkbox que no estén marcados, es decir, que su valor sea 'False', pero Excel da un mensaje de error 438 en la instrucción marcada.
El código que he escrito es el siguiente:
Sub BorrarColumnas()
Dim c As Control
Dim Borrar, Borrados As Integer
Borrados = 0
For Each c In UserForm1.Frame1 <---- error 438
If c.Value = "False" Then
Borrar = CInt(c.Tag) - Borrados
ActiveSheet.Columns(Borrar).Delete
Borrados = Borrados + 1
End If
Next
End Sub
¿Dónde esta el error?
