Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Obtener ID alfanumerico

  • Autor del tema Autor del tema klex
  • Fecha de inicio Fecha de inicio

klex

Member
Registrado
3 Feb 2025
Mensajes
49
Hola!

Les agradezco si pueden ayudarme con una busqueda.

Mi Formulario busca en base al ComboBox 'Forma' el registro seleccionado en la Tabla1 y localiza el ID de ese registro (me lo muestra en...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Solución
Prueba:
Código:
Private Sub BuscarID()
    Dim C As Range, nFilas As Long, FilaEncabezados As Long, i As Long, Mayor As String
    nFilas = ActiveSheet.ListObjects("Tabla1").ListRows.Count
    FilaEncabezados = ActiveSheet.ListObjects("Tabla1").HeaderRowRange.Row
 
    Set H = Worksheets("Hoja1")
    Set C = H.ListObjects("Tabla1").Range.Find(BoxForma, , , xlWhole)
    If Not C Is Nothing Then
        Me.ID = Range("B" & C.Row)
    End If
 
    Mayor = "a"
    For i = FilaEncabezados - 1 To FilaEncabezados + nFilas
        If Range("D" & i) = BoxForma Then
            If Range("C" & i) > Mayor Then Mayor = Range("C" & i)
        End If
    Next i
    Me.Categoria = Mayor
 
    Me.CategoriaNueva = Mid("abcdefghijklmnopqrstuvwxyz", InStr(1...
Prueba:
Código:
Private Sub BuscarID()
    Dim C As Range, nFilas As Long, FilaEncabezados As Long, i As Long, Mayor As String
    nFilas = ActiveSheet.ListObjects("Tabla1").ListRows.Count...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Última edición:
Volver
Arriba