Saltar al contenido

Cómo registrar Clientes en un UserForm.


eduar5

Recommended Posts

publicado

Hola nuevamente,

Estoy trabajando en un formato de cuentas por cobrar Clientes pero me he topado con un gran problema y es que le he dado vueltas al asunto pero la cabeza ya no me da para mas.

Quiero llevar un control de los clientes que aun me deben y para ello realice un formulario llamado "Abonos a Clientes", en el textbox5 ingreso el número de factura a buscar y si existe los datos me aparecen en los textbox del 6 al 10, de éstos textbox los únicos que se pueden modificar son el textbox8 y textbox9 lo que no logro hacer es que los valores modificas en esos textbox pasen a la celda de donde fueron tomados esos valores. Mi objetivo con ello es buscar la manera de realizar un Filtro en donde al aplicarlo me muestre las facturas que aun se encuentran pendientes de ser canceladas o bien que fueron canceladas en el mes que estoy trabajando, si alguna de ellas se les han realizado varios abonos y todavía queda un saldo que todos ellos tambien aparezcan y por supuesto el nombre de las tiendas y de los clientes que tienen saldo pendientes.

En dicho archivo quiero registrar el movimiento de todo un año, ya se imaginan tener que seleccionar manualmente que facturas ya fueron cancelada y cuales no.

Por su ayuda anticipadamente gracias.

Clientes.rarFetching info...

Clientes.rarFetching info...

publicado

Así a bote pronto, se me ocurre que si esos datos aparecen cuando ingresas el nº de factura en el TextBox5, cuando quieres modificar los datos, tendrías que volver a utilizar esa misma búsqueda y después asociar el valor de cada uno de los 2 TextBox modificables a las columnas que incluyan esos datos en origen.

Por si te ayuda....

Un saludo,

Tese

publicado

Mucho gusto Eduar5, viendo tu archivo, te sugiero algunos cambios en la hoja "Clientes", se debería de registrar como si se tratara de una tabla, y los de saldo inicial y final sea calculado en el formulario de consulta.

Para el código de modificar visita la pagina de Abraham donde encontraras un ejemplo llamado "Ingresar datos a Excel a través de un Userform, con posibilidad de editar los datos desde él (VBA)." que podrias aplicar a tu proyecto.

Espero que te sea util el ejemplo.

Saludos

AGUSTIN GARCIA

publicado

Les agradezco por sus respuestas, estoy revisando el archiva ya modificado y boy a ver si obtengo el resultado según mi idea que tengo, en cuanto a la sugerencia de Agustin parece muy interesante, si me pudieras brindar un ejemplo sería fantastico ya que si de tablas se trata, desde hace tiempos e tratado de hacer una incluso utilizando el asistente de excel pero no encuentro la forma de como hacerlo.

Saludos.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    3    1

  • Crear macros Excel

  • Mensajes

    • Saludos @JSDJSD espero estes bien gracias por la solución que propuso para mi pregunta.  Tome el archivo con sus correcciones y al descargarlo verifique no posee una funcionalidad que si estaba en el archivo original de mi pregunta en concreto tiene que ver con la información que debería mostrarse en el TextBox2  de allí que:  Cuando selecciono el código y hago click sobre en el Listbox1  los datos se copian correctamente en los TextBox3 y TextBox5 pero en el TextBox2 no se copia ningun dato revisando me pude percatar que con la macros que agrego no se muestran datos en el TextBox2 a partir de la Columna "G" y cuando se suspende el funcionamiento de la Macro ComboBox1 si se muestran correctamente todos los datos en los TextBox2, 3 y 5 pero en el Listbox1 no se muestran exclusivamente los datos correspondientes al código que se selecciona en el ComboBox1,  mientras que si se suspende el funcionamiento de la Macro BuscarYCargarEnListBox los datos se mostrados en el Listbox1 corresponden exclusivamente al código que se selecciona en el ComboBox1 dichos datos se copian correctamente en los TextBox3 y TextBox5 pero en el TextBox2 no se copia ningun dato
    • Tal y como tienes tu código hace lo siguiente, que es lo que necesitas?
    • Private Sub ComboBox1_Change() Dim hoja As Worksheet Dim fila As Long Dim ultimaFila As Long Dim columnas() As Variant Dim i, ii As Integer Dim codigo As String Dim encontrado As Boolean Set hoja = ThisWorkbook.Sheets("MATRIZ1") codigo = ComboBox1.Value ' Si ComboBox1 está vacío If ComboBox1.Value = "" Then UserForm_Initialize Exit Sub End If ' Si ComboBox1 tiene un valor (código) encontrado = False With ListBox1 ' Limpiar ListBox .RowSource = "" ' Definir ColumnCount para el ListBox .ColumnCount = 6 ' 6 columnas (B, C, D, E, F, M) ' Columnas específicas: B, C, D, E, F, M (números de columna) columnas = Array(2, 3, 4, 5, 6, 13) .ColumnWidths = "70;90;90;90;90;90;0;0;0;0;0;0;0;0" .ColumnHeads = False ' Agregar la cabecera al ListBox (desde la fila 4, columnas B, C, D, E, F, M) .AddItem hoja.Cells(4, columnas(0)).Value ' Columna B For ii = 1 To UBound(columnas) .List(0, ii) = hoja.Cells(4, columnas(ii)).Value ' Añadir encabezados de las otras columnas Next ii ' Determinar última fila con datos en la columna B ultimaFila = hoja.Cells(hoja.Rows.Count, "B").End(xlUp).Row ' Recorrer desde la fila 5 hacia abajo For fila = 5 To ultimaFila If hoja.Cells(fila, 2).Value = codigo Then ' Columna B encontrado = True ' Añadir nueva fila al ListBox (empieza en la segunda fila del ListBox) .AddItem hoja.Cells(fila, columnas(0)).Value ' Columna B For i = 1 To UBound(columnas) ' Asegurarse de que se estén agregando todos los valores correctamente .List(Me.ListBox1.ListCount - 1, i) = hoja.Cells(fila, columnas(i)).Value ' Rellenar las otras columnas Next i End If Next fila End With If Not encontrado Then MsgBox "No se encontró el código en la hoja.", vbInformation End If End Sub  
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.