Dante Amor

Si estás cargando con el método AddItem solamente te permite hasta 10 columnas. Para cargar más de 10 columnas puede utilizar otra propiedad del listbox. Revisa la siguiente respuesta, ahí expongo algunos ejemplos. Trata de adaptarlos a tu userform...

Cambia esta línea ant = h1.Cells(u, "B") Por esta ant = h1.Cells(u + 1, "B") Lo que pasa es que estás asignando a ant el valor de la celda B Y en esta línea preguntas si son diferentes If h1.Cells(i, "B") <> ant Pero ant y h1. Cells(i, "B") en el...

Prueba copiando solamente el rango Sub Macro2() ' ' Copiar a concentrado Set h1 = Sheets("CAPTURA") Set h2 = Sheets("concentrado") ' u = h1.Range("A" & Rows.Count).End(xlUp).Row If u < 8 Then MsgBox "No existen filas a copiar" Exit Sub End If ' filas...

Prueba con la siguiente macro Sub Macro1() ' ' Copiar a concentrado Set h1 = Sheets("CAPTURA") Set h2 = Sheets("concentrado") ' u = h1.Range("A" & Rows.Count).End(xlUp).Row If u < 8 Then MsgBox "No existen filas a copiar" Exit Sub End If ' filas = u...

Te anexo la macro actualizada. Primero debes poner la siguiente línea al principio de todo el código, en las Declaraciones General, debe ser la primer línea de todo el código del userform Dim n Esto debe ir en tu botón: ' Private Sub...

Puedo prepararte una macro, pero necesito saber exactamente cómo están tus hojas. Puedes poner 2 imágenes, una imagen con los datos de tu hoja "VENTAS" y otra imagen de tu hoja "FACTURACION". Procura que en ambas imágenes se vean las filas y las...

Y si simplemente agregas el textbox txtCantidad en el formulario, sería más práctico que abrir otro userform Otro detalle, si declaras la variable intCantidad como long, pero luego le pasas un texto, te va a enviar el error: "No coinciden los tipos"...

Puedes poner la macro que estás utilizando. ¿Qué mensaje de error aparece? ¿En qué línea de la macro se detiene? ¿Si te genera algunos pdf?

Prueba lo siguiente: Cambia esta línea: Worksheets(Sig).UsedRange.Copy _ Por esta Worksheets(Sig). UsedRange.Offset(1,0).Copy _

El detalle es cuando en la columna S tienes "" Podría ser así, quitar los espacios con la función Trim( ) =IF(R9&S9="","-",IF(R9="",CONCATENATE("0 '-",TRIM(TEXT(S9,"# ?/??")),"''"),CONCATENATE(R9,"'-",TRIM(TEXT(S9,"# ?/??")),"''")))