Dante Amor

H o l a : Con el método AddItem solamente puedes cargar 10 columnas. Para cargar más de 10 columnas se puede utilizar la propiedad RowSource. Te anexo el código actualizado, primero debes crear una hoja llamada "temp" para copiar en esa hoja los...

H o l a : Te anexo la macro. En tu hoja "cuentas", las cuentas deberán empezar en la fila 2 y en la fila 1 deberás tener el encabezado. Con tu formulario deberás agregar el nuevo registro al final de la lista, como se muestra en la imagen. Después de...

H o l a : Me puedes enviar tu archivo con las 3 hojas y un par de ejemplos, me explicas qué datos son los que se tienen que buscar, en dónde se deben buscar, y desde luego, qué datos quieres tomar como resultado de la búsqueda y en dónde los quieres...

Revisa la configuración de tu "pistola", dependiendo de la marca y modelo de la pistola, se puede configurar para que después de leer un código de barras, automáticamente envié el Enter. De esa forma no es necesaria una macro. La configuración la...

Pon la siguiente macro en un botón. Cambia en la macro el 4 por número de fila a copiar. Sub CopiaFila() 'Por.Dante Amor Rows(4).Copy Rows(ActiveCell.Row).Insert Shift:=xlDown End Sub Primero, selecciona la celda en donde quieres insertar la fila con...

Envíame el archivo con los ejemplos.

H o l a: La siguiente macro considera la fila 1 como encabezado, y a partir de la fila 2 empiezan tus datos. Cambia en la macro "original" por el nombre de tu hoja que contiene los datos. Sub SepararDatos() 'Por.Dante Amor Application.ScreenUpdating...

H o l a : Te anexo la macro Sub CopiarPegar() 'Por.Dante Amor Application.ScreenUpdating = False For i = Range("G" & Rows.Count).End(xlUp).Row To 11 Step -1 Rows("6:10").Copy Rows(i + 1).Insert Shift:=xlDown Next Application.ScreenUpdating = True...

¿Y cuál es el problema con el código? Yo lo veo bien.

¿Y cómo cargaste los datos en el listbox? Primero revisa que la columna A tenga formato Texto Puede se así: Hoja1.cells(u,"A") = format(Listbox1. List(i, 0), "00000000") Otra opción: Hoja1.Cells(u, "A") = "'" & Format(ListBox1.List(i, 0), "00000000")