"Arreglito" de macro

On 8 nov, 17:46, "Héctor Miguel"
wrote:





> hola, Miguel !

> > ... realizando pruebas... al iniciar el control "Ir a formulario", desde la hoja "Formulario"
> > siempre me da error de compilacion, referencia no valida o sin calificar
> > marcando l código que me has facilitado para rellenar_combos.
> > Quizas el problema este aqui: With Worksheets("listas").Range(.[a2], .[a2].End(xlDown))
> > puede ser por el rango a2?
> > Donde colocas los rangos de las listas, donde se encuentran und, doc, nal, mot, efe y jui
> > de donde toman los datos los Combox?...

> mas bien, por no haber corrido pruebas sobre un lstado con datos como los reales...
> lo que le "sobra" a esa linea es el punto antes del corchete -> .[
> prueba cambiando a: -> With Worksheets("listas").Range([a2], [a2].End(xlDown))

> (en principio) ya no seria necesario des/re/ocultar ni mostrar las hojas que necesites mantener ocultas
> ni las variables que tenias definidas, ya que las listas se toman con Offsets y los combos estan por ciclos/bucles
> (revisa el codigo, y ya que lo pongamos a funcionar)...

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

De nuevo, muchas gracias. Parece haberse solucionado ese problema.
Ahora, lo que sucede es que al introducir estos nuevos códigos, nos
causa incompatibilidad con el código del módulo 1 que abre el
Formulario, concretamente con "principal.Show". La cuestión es que si
lo elimino, no se abre el formulario. ¿Qué se te ocurre?
Un saludo,
M. Ángel
MÓDULO 1:

Sub abrir()
Sheets("Formulario").Select
principal.Show
End Sub- Ocultar texto de la cita -

- Mostrar texto de la cita -

Con el formulario abierto, al desplegar los distintos ComboBox, han desaparecido los lelementos de las listas despleglables
por eso te comente que donde colocabas los rangos de las listas, donde se encuentran und, doc, nal, mot, efe y jui ...
El codigo que me facilitaste, ya modificado con el nombre del formulario, ha quedado de la siguiente manera; pero no funciona:

hola, Miguel !

> Con el formulario abierto, al desplegar los distintos ComboBox, han desaparecido los lelementos de las listas despleglables
> por eso te comente que donde colocabas los rangos de las listas, donde se encuentran und, doc, nal, mot, efe y jui ...
> El codigo que me facilitaste, ya modificado con el nombre del formulario, ha quedado de la siguiente manera; pero no funciona:

1) para el codigo de la propuesta del procedimiento "Rellenar_combos" NO debes de modificar...
de esto: -> With Worksheets("listas").Range([a2], [a2].End(xlDown))
a esto: -> With Worksheets("listas").Range([a2], [f219].End(xlDown))
=> [a2] debe ser SIEMPRE el punto de partida
ademas de que trae inconsistencias el codigo original propuesto (por falta de pruebas)

2) realiza estas modificaciones:

a) la declaracion de la variable:
de: -> Dim n As Byte
a: -> Dim n As Integer

b) el procedimiento "Rellena_combos" a:

Private Sub Rellena_Combos()
With Worksheets("listas")
With .Range(.[a2], .[a2].End(xlDown))
ComboBox1.List = .Value
For n = 4 To 8 Step 2: Me.Controls("combobox" & n).List = .Offset(, 1).Value: Next
For n = 3 To 9 Step 2: Me.Controls("combobox" & n).List = .Offset(, 2).Value: Next
ComboBox2.List = .Offset(, 3).Value
For n = 10 To 14: Me.Controls("combobox" & n).List = .Offset(, 4).Value: Next
ComboBox15.List = .Offset(, 5).Value
End With
End With
End Sub

(ahora si... ya hice las pruebas correspondientes y funciona) ;)

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

__ los codigos expuestos __
Dim n As Byte

Private Sub principal_Initialize()
Rellena_Combos
End Sub

Private Sub CommandButton1_Click()
Dim Salir As Boolean
For n = 1 To 2: If Controls("textbox" & n) = "" Then Salir = True: GoTo Verifica
Next
For n = 1 To 9: If Controls("combobox" & n) = "" Then Salir = True: GoTo Verifica
Next
If DTPicker1 = "" Then Salir = True
Verifica:
If Salir Then MsgBox "Faltan cosillas por llenar !!!": Exit Sub
With Worksheets("estadistica").Range("a2").End(xlDown).Offset(6)
.Value = .Row - 6
Range("registro") = .Value + 1
.Offset(, 1) = ComboBox1
.Offset(, 2) = TextBox1
.Offset(, 3) = DTPicker1
.Offset(, 4) = TextBox2
For n = 2 To 14: .Offset(, n + 3) = Controls("combobox" & n): Next
.Offset(, 18) = TextBox3
.Offset(, 19) = TextBox4
.Offset(, 20) = ComboBox15
.Offset(, 21) = TextBox5
End With
End Sub
Private Sub CommandButton2_Click()
DTPicker1 = Clear
For n = 1 To 5: Controls("textbox" & n) = "": Next
For n = 1 To 15: Controls("combobox" & n).Clear: Next
Rellena_Combos
End Sub

Private Sub Rellena_Combos()
With Worksheets("listas").Range([a2], [f219].End(xlDown))
ComboBox1.RowSource = .Address
For n = 4 To 8 Step 2: Controls("combobox" & n).RowSource = .Offset(, 1).Address: Next
For n = 3 To 9 Step 2: Controls("combobox" & n).RowSource = .Offset(, 2).Address: Next
ComboBox2.RowSource = .Offset(, 3).Address
For n = 10 To 14: Controls("combobox" & n).RowSource = .Offset(, 4).Address: Next
ComboBox15.RowSource = .Offset(, 5).Address
End With
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal
Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
Calendar1.Today 'actualiza o muestra la fecha actual
End Sub

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Sheets("listas").Visible = True
Sheets("ESTADISTICA").Visible = False
Sheets("TABLA").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("TABLA").Visible = False
Sheets("ESTADISTICA").Select
End If
Unload Me
End Sub

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

Private Sub UserForm_Click()
principal.Show
End Sub

MÓDULO 1:

Sub auto_open()
Sheets("Inicio").Activate
Sheets("listas").Visible = True
Sheets("Gráfico1").Visible = True
Sheets("Tabla").Visible = True
Sheets("Estadistica").Visible = True
End Sub

Sub abrir()
Sheets("Formulario").Select
principal.Show
End Sub

Sub actualiza()

'Range("a10").Select
ActiveSheet.PivotTables("Tabla dinámica1").PivotCache.Refresh
End Sub

Es una locura: He efectuado los cambios que me propones, pero sigue sin funcionar.
1.- En los ComboBox, al desplegarse, no aparecen los elementos de la lista.
Curiosamente si primero antes acciono el CommandButton2 (Cancelar)
despues si se despliega la lista de los ComboBox, pero solo tres elementos en cada uno de ellos
cuando todos los ComboBbox tienen muchos mas elementos.
2.- Si relleno el formulario, para probar su funcionamiento, de esta forma parcial
es decir, con la eleccion de uno de estos tres elementos por ComboBox, se copian siempre en la fila 12 de la hoja "Estadistica".
3.- El dato Registro, no aumenta con cada registro que introducimos en la base de datos.
4.-El textbox1, que se utiliza para numeros, cuando su registro se copia en hoja "Estadistica" lo hace como texto.
Como ves son muchos los fallos. Creo que debemos partir, de nuevo, de mi codigo inicial
e ir realizando los cambios de forma puntual y comprobarlos.
Espero que estos nuevos datos, que he comprobado y puesto en funcionamiento, te puedan esclarecer algunas cosas.
Si necesitas mas informacion al respecto, no dudes en pedirla...