Jump to content

JSDJSD

Members
  • Content Count

    715
  • Joined

  • Last visited

  • Days Won

    36

Posts posted by JSDJSD


  1. 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.

    On Error Resume Next Si se detecta un error, se pasará el control a la siguiente línea, omitiendo el anterior.

  2. 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

    Esta linea significa que realizamos un ciclo desde la ultima fila con datos hasta la fila 5, es decir un ciclo a la inversa, puesto que vamos a borrar más de una línea, con lo que evitaremos saltos en el ciclo y por consiguiente errores a la hora de borrar las lineas que deseamos.

     

     


  3. 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.

    Antoni.jpg

    bigpetroman.gif

    Héctor Miguel.jpg


  4. 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 ?


  5. Declara la variable UltFilaTC como Long en vez de Integer.

    TIPO DE DATOS
    ABREVIATURA
    MEMORIA REQUERIDA
    RANGO DE VALORES
    EQUIVALENCIA CON USADAS EN PSEUDOCÓDIGO
    OBSERVACIONES
    Integer
    (Entero)
    %
    2 bytes ó 4 bytes según versión
    - 32768  a 32767 ó -2.147.483.648 a 2.147.483.647 según versión
    Entero
    Uso en contadores, control de bucles etc.
    Long
    (Entero largo)
    &
    4 bytes ó 8 bytes según versión
    - 2147483648   a 2147483647 ó -9,2E+18 a 9,2E+18 según versión
    Entero
    Igual que integer pero admite un rango más amplio

     

     

    GIF.gif

×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png