Jump to content

Bucle para Generar Macro en Listbox


Go to solution Solved by qwerty123,

Recommended Posts

Hola amigos de foro 

Como siempre consultando y solicitando su ayuda..

En una tema anterior el Amigo Ikanni (Muchas Gracias), me ayudo con la forma para realizar la macro que transferia por hojas la informacion de una tabla

aqui el link de mi Consulta

 

El Archivo Filtro IK.xlsm tiene la función de generar hojas (en un Segundo Archivo Mayor) con la data, mediante un combobox y lo mas importante transferir data, creando la hoja sino existe, de existir lo copia como data nueva,

1.- Con un Combobox Genera una a Una cada Cuenta

2.-Con una Macro(Transferir) genera una corrida con todas las cuentas cuentas contable (hoja cuenta)

3.- Mediante un Listbobox Generar solo las cuentas seleccionadas (Aqui su ayuda)

Para agilizar el uso del archivo agregue un listbox (MUltiseleccion), que me muestra las Cuentas,en  ese Listbox podría seleccionar por eiemplo de 3 o 10 o mas cuentas especificas.

Intente con un bucle que uso para imprimir pero falla el código

su ayuda como siempre a todos 

Private Sub CommandButton3_Click()
Dim i As Integer

If MsgBox("Desea Generar los Analisis Seleccionados", vbInformation + vbYesNo) = vbYes Then


For i = 0 To (Frm_FiltrarCta.List_Cta.ListCount - 1)

    If Frm_FiltrarCta.List_Cta.Selected(i) = True Then

   If IsNull(List_Cta.Value) Then Exit Sub
   Call Transferir(List_Cta.Value)

    End If
Next i

End If
End Sub

 

Mayor.rar

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy