Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Incremento de Id consecutivo no funciona.

pinoji

Recommended Posts

pinoji Gran colaborador

pinoji

publicado
publicado

Hola colegas. Buenos días a todos. Espero se encuentren bien de salud al igual que su familia.

Mi consulta de hoy en bien sencilla. Es el mismo Proyecto de Conciliación Bancaria.

Yo le tengo creado una creación e incremento de ID en el evento Initialize del Formulario, pero no me cambia a medida que voy ingresando los registros nuevos, o sea, se mantiene con un mismo numero y yo necesito que cada vez que inserte un nuevo registro este sume uno al anterior y me lo muestre en el TxtID. 

Dim fila As Long
    fila = Hoja10.Range("A" & Rows.Count).End(xlUp).Row
    If Hoja10.Cells(7, 1) = Empty Then
       TxtID = 1
    Else
        TxtID = Hoja10.Cells(fila, 1) + 1
    End If

Usuario: Admin

Haplox Asiduo a Ayuda Excel

Haplox

publicado
publicado

@pinoji , ¿Con esto luego pretendes sacar dinero con ello? Porque entonces vas a tener que repartir con muchos usuarios del foro :huh:

En la forma en que lo tienes solo pone, o bien 1 o bien el último valor+1. Hay no hay manera de cambiar nada, pues el formulario solo lo activas una vez.

Debes ponerlo en, por ejemplo en el código del botón "Insertar" al final:
  

Call MostrarSaldo
Call Limpiar
Call Mostrar
ComBanco.SetFocus
MsgBox ("Registro Insertado con Éxito"), vbInformation, "*-Sistemas COLOSSUS-*"

TxtID=Clng(TxtID)+1

 

pinoji Gran colaborador

pinoji

publicado
  • Autor
publicado

Buenas tardes Haplox. Espero se encuentre bien de salud al igual que su familia.

Primero; no me dedico a este negocio, es algo que he estado haciendo (como otros proyectos más) para tratar de mejorar y hacer un poco más rentable mi trabajo. Soy el Financista en el Hotel MGM Rainbow de la cadena Muthu en Cayo Guillermo, Ciego de Ávila, Cuba.

Segundo; Como te habrás dado cuenta vivo en Cuba y con software o Proyectos como este te mueres de hambre si lo que pretendes es hacer negocios. La informatización acá en un caos (como casi todo) y lo que me sirve a mi en mi empresa dista mucho que lo que pueda servirle a otra persona en otra empresa diferente porque desgraciadamente existen tantos modelos económicos como empresas y aunque en Contabilidad Activo = Pasivo + Capital en cada las normas o estilos de trabajos difieren sobremanera, así como la emisión de reportes e informaciones.

Tercero; Acudo a este Foro, porque creo que es una "institución" prestigiosa, donde siempre he obtenido una respuesta acertada. Soy miembro de otros Foros en Linea y créeme, sin el afán de ofender (no es mi estilo) y sin chovinismo alguno, este es uno de los foro mas respetados, mas prestigiosos, donde se obtiene mas variantes a las preguntas o temas planteados que ningún otro.

y Cuarto; Muchas gracias por dedicar su tiempo y acudir a mi duda. Es un placer (como ya he dicho) pertenecer a este Foro. Agradecido, de veras.

Una pegunta final Haplox, el codigo lo inserto antes del End Sub?

Un saludo cordial y mis respeto.

Pino

pinoji Gran colaborador

pinoji

publicado
  • Autor
publicado

Buenos días Profesor JSD, espero se encuentre bien de salud conjuntamente a su familia.

Buenos días Profesor Antoni, igualmente espero su salud sea excelente.

A mi no me funciona, se mantiene en 168 (en este ejemplo) y no aumenta o es que este código debe ir en el Botón Insertar

Un abrazo y mis respetos.

Pino

JSDJSD Mentor

JSDJSD

publicado
publicado
Hace 18 minutos , pinoji dijo:

A mi no me funciona, se mantiene en 168 (en este ejemplo) y no aumenta o es que este código debe ir en el Botón Insertar

Luego cuando llegue a casa te mando el archivo modificado 

 

pinoji Gran colaborador

pinoji

publicado
  • Autor
publicado

Estimado Haplox, la linea de código que usted me facilito me da el "Error 13" "No coinciden los Tipos"

Le agradecería me ayudara a ver que esta pasando.

Un abrazo

Pino

pinoji Gran colaborador

pinoji

publicado
  • Autor
publicado

Buenas tardes Profesor.

Excelente. Eso era lo que necesitaba. El problema está en que ese ID es importante para el Proyecto, porque de ahí depende el indice para hacer la Modificación de registros en caso de errores.

Agradecido una vez más.

Sigo en deuda.

Un abrazo y mis respetos.

Pino

 

 

pinoji Gran colaborador

pinoji

publicado
  • Autor
publicado

Valen igual las intenciones. Se les agradece sobremanera. A ambos los tengo en pedestales similares, además, esa en una "Lucha" en la mejor de las lides, muy amistosa y respetuosa, entre dos amigos que se estiman y respetan.

Gracias a ustedes por estar ahí, presentes cuando se necesitan. Dios le de mucha salud y bendiciones y lo hago extensivo a los demás miembros de este Foro.

Un abrazo y tengan buen día.

Pino

Haplox Asiduo a Ayuda Excel

Haplox

publicado
publicado
En 24/5/2022 at 18:17 , pinoji dijo:

Una pegunta final Haplox, el codigo lo inserto antes del End Sub?

Exactamente, antes del "End Sub"

Archivado

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

Ir al listado de temas

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

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


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de 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
    Cambios en el Control Horario
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • DiegoPC
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por DiegoPC · publicado

      Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • jues
      Guardar Formulario en PDF

      Por jues · publicado

      Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • DiegoLG
      Surtido de Mercancía

      Por DiegoLG · publicado

      @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • jose_alk
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por jose_alk · publicado

      Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • jues
      Buscar Datos con un ComboBox

      Por jues · publicado

      Exelente solución mil gracias 

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