JSDJSD

Hace 47 minutos , Joaquin Wertmuller dijo:

@rolano, te adjunto el archivo. En la hoja COMISIONES, abro un formulario con el boton "Registrar" y al querer seleccionar un registro, me salta el error.

Hace 47 minutos , Joaquin Wertmuller dijo:

Private Sub cbo_Registro_Change()
    Dim Fila, Final As Integer
    Dim comentario As String
    Final = Cells(Rows.Count, 4).End(xlUp).Row

    If cbo_Registro.Value = Empty Then
        txt_Comision = ""
        txt_Dolar = ""
        txt_Fecha = ""
    End If

    For Fila = 5 To Final
        If cbo_Registro = Hoja05.Cells(Fila, 4) Then
            Me.txt_Comision = Hoja05.Cells(Fila, 9)
            On Error Resume Next
            Me.txt_Coment = Hoja05.Range("I" & Fila).Comment.Text
            Me.txt_Dolar = Hoja05.Cells(Fila, 12)
            Me.txt_Fecha = Hoja05.Cells(Fila, 14)

            Exit For
        End If
    Next
End Sub

Hola Joaquin Wertmuller, añade un controlador de errores en tu código y listo.

Sube este mismo ejemplo con el antes y el después es decir estos mismos datos y debajo pones la misma base de datos pero con los resultados esperados.

Hace 8 horas, Joaquin Wertmuller dijo:

- Para que definiste la variable "buscado"? Ya que no encuentro que la hayas utilizado.

En principio utilice el cliclo For Each....Next para lo que declaré la variable buscado, pero luego cambie a For ... Next para hacerlo más fácil y olvide eliminar dicha variable, en definitiva puedes eliminarla sin ningún problema.

Hace 8 horas, Joaquin Wertmuller dijo:

- Podrias explicarme esta linea?:         For cont = ufh5 To 5 Step -1

Pido perdón, olvide mencionar la categoría de moderador.

Hola a todos, actualmente en el foro encontramos tres categorías de miembros:

.- Miembro VIE

.- Miembro

.- Administrador

Personalmente creo que habría que añadir otra categoría más

.- Miembro Abanderado (o el nombre que se considere oportuno) y por lo menos con una estrella aunque sea de plata.

Entre los que habría que incluir por su entrega, dedicación y aportes  a:

Antoni,   bigpetroman, Hector Miguel ........, se que me dejo muchos en el tintero pero esto es solo una muestra de los miembros a tener en cuenta.   

Me gustaría que lo considerasen los Administradores de este fantástico foro.

Un saludo a todos.

Sube tu archivo

Me alegro, pero no olvides nunca agradecer a quien te ayuda o intenta ayudar, y en el foro es mediante el corazoncito que hay en la parte inferior derecha.

Corroboro las afirmación de nuestro  maestro AlexanderS,  yo lo he probado en Excel 2016 y funciona perfectamente

Hola maraqu, aquí tienes lo prometido prueba y comenta. 

En el primer combo ya tienes todas las fechas incluidas, selecciona una, completa el resto de campos y pulsa en guardar.

SILOE PISCINA1 Prueba(1).xlsm

Ok, luego por la tarde te subo algo, aquí en España son las 13:14 y se aproxima la hora de comer, un saludo.

Hace 44 minutos , maraqu dijo:

Lo que necesito ahora y no consigo de ninguna forma, es que cuando vuelva a registrar otros datos me lo guarde en la siguiente fecha o en la fecha que yo quiera. Es decir, si añado un combobox en el formulario con todas las fechas, si selecciono 02/03/2020, por ejemplo, que me guarde los datos en ese columna que tiene esa fecha,

Que tendría que guardarse en las dos tomas o solamente en la primera ?

Sube tu archivo

Hola Joaquin Wertmuller, te dejo otra opción, prueba y comenta.

Registro ventas Prueba(1).xlsm

Hola DenAngAbi, te dejo otra opción con macros, prueba y comenta.

Neto a Pagar Prueba (1).xlsm

Si nadie contesta antes, mañana te subo algo.

Sube tu archivo y seguro que tendrás una solución.

Hola jeladio, prueba y comenta.

Pulsa el botón modificar y veras como se actualizan los precios, se añaden los nuevos artículos y se borran los que no aparecen en los nuevos precios, todos los cambios de precio o artículos  se marcan en color verde.

actualizar precios Prueba1.xlsm

Me alegro que te funcione, no olvides nunca agradecer a quien te ayuda o intente ayudar y en este foro es mediante el corazoncito que hay en la parte inferior derecha.

Con respecto a tu nueva consulta sube tu archivo y explica detalladamente los que pretendes. Un saludo.

Declara la variable UltFilaTC como Long en vez de Integer.

Prueba y comenta

PRUEBA4.1(2).xlsm

Hola Luisfer2020, te dejo un ejemplo con tu mismo código un poquito modificado para que puedas filtrar y mostrar más de diez columnas en un listbox haciendo uso del método AddItem y  sin tener que hacer uso de RouSource, prueba y comenta.

Filtrar y mostrar mas de diez columnas en listbox sin usar RowSource.xlsm

Sube tu archivo

Sube tu archivo

Hace 23 horas, howling dijo:

quedo genial JSDJSD y cuando rebice la macros verifique mis errores y eran tan fáciles de corregir gracias, pero me asalta una duda podre vincular el combobox 1 con el 2 para que filtre  o ya ahí tendría que cambiar el código?

Abre otro tema nuevo y explica paso a paso lo que pretendes

Hola a todos, karla12 te dejo mi opción pero con formulario, pulsa el botón verde y aparece el formulario de búsqueda, digita en el cualquier Título de libro, Autor, Código, Color o Año de publicación y te llevará a la hoja de Base de Datos resaltando el dato solicitado en el formulario. Prueba y comenta.

infooo. pRUEBA1.xlsm