extraordinario. el complemento perfecto para este buscador inteligente-. gracias gracias. por fin logre adquirí lo que necesitaba. que era una búsqueda filtrada con mas de 10 columnas.
ESTE VÍDEO COMO LOS ANTERIORES TAMBIÉN ES UNA MARAVILLA, ES ALGO QUE NECESITABA RESOLVER EN MI PROYECTO, GRACIAS Y COMO SIEMPRE LE DIGO, NO DEJE DE HACER ESTE TRABAJO, SE LE AGRADECE DE VERAS
Excelente eres un crack. Muchas gracias pude adaptarlo al trabajo en el que necesito usar más de 10 columnas. Consulté desde los videos previos donde explicas como formular la función Mostrar() y el procedimiento nReg.
Buenas, me encantan todos tus vídeos y te querría proponer que hicieras un vídeo con un formulario de más de 10 columnas con botones para registrar, editar y eliminar. Podrías hacerlo por favor tengo dudas de cómo se puede gestionar este tipo de formularios. Muchas gracias te lo agradezco mucho
Muy bueno el video amigo, una pregunta como podria hacer que en el listbox solo aparezca lo que yo busco que no me salga toda la lista, solo el buscado con mas de 10 columnas
una pregunta, si quiero usar ese listbox para una busqueda desde textbox como puedo hacerlo, ya que he intentado pero me da error y solo puedo usar las 10 columnas ayuda por favor
Hola Diego en el canal tenemos una lista de reproduccion de una búsqueda inteligente, donde he probado el buscador con más de 10 columnas, te dejo el link: ruclips.net/p/PL4R_eqvmI_aAKbEw00HrHYlusblbHN0np
@@Programando-maer Hola buen día, podrías especificar que video es, es urgente para la solución de un proyecto, muchas gracias, no he podido hacer un buscador así
para la cantidad de letras o numeros en UserForm_Initialize, has de poner Me.TextBoxLetras.MaxLength = 9 (cantidad letras) Me.TextBoxNumeros.MaxLength = 9 (cantidad numeros) Y estas las funciones para validar Function SoloTexto(Texto As Variant) ' Dim Caracter As Variant Dim Largo As String Dim i As Integer On Error Resume Next Largo = Len(Texto) ' For i = 1 To Largo Caracter = CInt(Mid(Texto, i, 1)) ' If Caracter "" Then If Not Application.WorksheetFunction.IsText(Caracter) Then Texto = Replace(Texto, Caracter, "") SoloTexto = Texto Else End If End If ' Next i ' SoloTexto = Texto On Error GoTo 0 ' End Function Function SoloNumero(Texto As Variant) ' Dim Caracter As Variant Dim Largo As Integer Dim i As Integer On Error Resume Next Largo = Len(Texto) ' For i = 1 To Largo Caracter = Mid(CStr(Texto), i, 1) ' If Caracter "" Then If Caracter < Chr(48) Or Caracter > Chr(57) Then Texto = Replace(Texto, Caracter, "") SoloNumero = Texto Else End If End If ' Next i ' SoloNumero = Texto On Error GoTo 0 ' End Function
![[EASY] 👉 ListBox with more than 10 columns in Excel VBA](http://i.ytimg.com/vi/7dNEK__40O8/mqdefault.jpg)
![[EASY] 👉 ListBox with more than 10 columns in Excel VBA](/img/tr.png)
![Megan Thee Stallion - Mamushi (Remix) [feat. TWICE] [Official Audio]](http://i.ytimg.com/vi/5c0_u9PsrsQ/mqdefault.jpg)
Muchas gracias e buscado en bastantes videos pero no encontraba la solución excata pero con la codificación me seivio te agradezco
Hola Carlos, espero te encuentres bien, me alegra que el canal haya servido de ayuda en tu aprendizaje, bendiciones.
gracias por fin uno que sirve
Gracias por enseñarnos a solucionar las inquietudes, como estos de agregar mas de 10 col
Hola estimado, espero te encuentres bien, gracias a ti por ver nuestros videos, no te olvides suscribirte al canal, es gratis.
extraordinario. el complemento perfecto para este buscador inteligente-. gracias gracias. por fin logre adquirí lo que necesitaba. que era una búsqueda filtrada con mas de 10 columnas.
Muchas gracias!! Tu código me ha servido muchísimo! Saludos!
Muchas gracias por sus conocimientos, me ayudó a solucionar una limitante de más de 10 campos, excelente
ESTE VÍDEO COMO LOS ANTERIORES TAMBIÉN ES UNA MARAVILLA, ES ALGO QUE NECESITABA RESOLVER EN MI PROYECTO, GRACIAS Y COMO SIEMPRE LE DIGO, NO DEJE DE HACER ESTE TRABAJO, SE LE AGRADECE DE VERAS
Hola Armando, personas como tú me motivan a seguir, muchas gracias por valorar nuestro trabajo
Excelente eres un crack. Muchas gracias pude adaptarlo al trabajo en el que necesito usar más de 10 columnas. Consulté desde los videos previos donde explicas como formular la función Mostrar() y el procedimiento nReg.
Hola estimado DrCorr escríbeme al siguiente enlace para poder apoyarte api.whatsapp.com/send?phone=51946870135&text=Hola
Excelente Miguel. Mis saludos a usted y su familia. Un video excelente como ya es costumbre. Felicitaciones. Saludos Pino.
Gracias amigo me sirvió
Gracias amigos...
Son un gran equipo... Espero les vaya super bien.. Y tengan mucho éxito.. Gracias...
Precisamente andaba buscando algo asi... pero explicado desde cero, ya que ando incursionando apenas en las macros...
Buenas, me encantan todos tus vídeos y te querría proponer que hicieras un vídeo con un formulario de más de 10 columnas con botones para registrar, editar y eliminar. Podrías hacerlo por favor tengo dudas de cómo se puede gestionar este tipo de formularios.
Muchas gracias te lo agradezco mucho
Hola Esther, espero te encuentres bien, tomaremos en cuenta tu consulta para nuestro próximo tutorial, no te olvides suscribirte al canal.
Amigo subscrito! Lo máximo!!
Hola Jeffer, muchas gracias por seguirnos, seguiremos subiendo más contenido
Hola, buen video, una consulta adicional habrá forma de poner cabecera y se quede fija
Estimado, muy interesantes tus videos. Una consulta, se puede justificar a la izquierda o derecha distintas columnas de un List?
Muy bueno el video amigo, una pregunta como podria hacer que en el listbox solo aparezca lo que yo busco que no me salga toda la lista, solo el buscado con mas de 10 columnas
Gracias, una consulta si quiero visualizar 4000 registros, demora listboxt con additem, hay otra forma gracias
puedes hacer que tu formulario con 12 columna se pueda filtra ??
Buenas tardes, disculpen que los moleste, pero aun no veo su video de validar textbox de número y letras asi como máximo de digitos, saludos
Hola Víctor el tema está registrado en nuestra agenda, lo más pronto posible estaré subiendo un video sobre el tema, saludos.
@@Programando-maerMuchas gracias
Necesito saber como agregar más de 50 filas en un lisbox
una pregunta, si quiero usar ese listbox para una busqueda desde textbox como puedo hacerlo, ya que he intentado pero me da error y solo puedo usar las 10 columnas
ayuda por favor
Hola Diego en el canal tenemos una lista de reproduccion de una búsqueda inteligente, donde he probado el buscador con más de 10 columnas, te dejo el link: ruclips.net/p/PL4R_eqvmI_aAKbEw00HrHYlusblbHN0np
@@Programando-maer Hola buen día, podrías especificar que video es, es urgente para la solución de un proyecto, muchas gracias, no he podido hacer un buscador así
Pero al momento de hacer una filtración de datos, me muestra en el listbox solo 10 columnas,
Excelente video, podría compartir el archivo
Hola Luis, escríbeme al siguiente enlace api.whatsapp.com/send?phone=51946870135&text=Hola
Como validar en textbox solo números o solo letras y que tenga solo determinadas cantidad de letras o números
Por el vídeo muchas gracias
con funciones podrías
Hola Arturo, tendremos en cuenta el tema para el siguiente vídeo, saludos
para la cantidad de letras o numeros en UserForm_Initialize, has de poner
Me.TextBoxLetras.MaxLength = 9 (cantidad letras)
Me.TextBoxNumeros.MaxLength = 9 (cantidad numeros)
Y estas las funciones para validar
Function SoloTexto(Texto As Variant)
'
Dim Caracter As Variant
Dim Largo As String
Dim i As Integer
On Error Resume Next
Largo = Len(Texto)
'
For i = 1 To Largo
Caracter = CInt(Mid(Texto, i, 1))
'
If Caracter "" Then
If Not Application.WorksheetFunction.IsText(Caracter) Then
Texto = Replace(Texto, Caracter, "")
SoloTexto = Texto
Else
End If
End If
'
Next i
'
SoloTexto = Texto
On Error GoTo 0
'
End Function
Function SoloNumero(Texto As Variant)
'
Dim Caracter As Variant
Dim Largo As Integer
Dim i As Integer
On Error Resume Next
Largo = Len(Texto)
'
For i = 1 To Largo
Caracter = Mid(CStr(Texto), i, 1)
'
If Caracter "" Then
If Caracter < Chr(48) Or Caracter > Chr(57) Then
Texto = Replace(Texto, Caracter, "")
SoloNumero = Texto
Else
End If
End If
'
Next i
'
SoloNumero = Texto
On Error GoTo 0
'
End Function
Lo hice pero se cuelga la computadora que será
en el mio solo se agregan hasta 10 no mas cuando llega a 10 se salta al exit sub :(
No me sirvio