angeles88

Dante Amor respondió: Tengo las siguientes observaciones: De la macro original que te envié a la macro que estás poniendo cambiaste la columna de Idcliente. En tu ejemplo original el IdCliente era un dato alfanumérico, pero si es numérico y estás pasando el dato de un...

Elsa Matilde respondió: Intentá reemplazando la instrucción Const celdaDestino = "A1" por esta otra: celdaDestino = "A" & wsDestino.Range("A" & Rows.Count).End(xlUp).Row + 1 Si tu configuración te exige la declaración de variables, entonces al inicio agregá esta línea: Dim...

Disculpad. Se me había olvidado adjuntar el código. Private Sub ListBox1_Click() Application.ScreenUpdating = False ActiveSheet.DisplayPageBreaks = False If Not ListBox1.ListIndex = -1 Then With Me.ListBox1 Me.TextBox0 = .List(.ListIndex, 0)...

Isaac Reyes respondió: Comencemos por lo más obvio a ver si llegamos a una solución ¿Has intentado reemplazar la línea lpunto = InStr(1, TextBox2, ".") 'por' lpunto = InStr(1, TextBox2, ",") S@alu2

Dante Amor respondió: Está claro qué quieres copiar y de dónde lo quieres copiar. Lo que no explicaste es en dónde exactamente lo quieres pegar. Entiendo que lo quieres pegar en el libro "xyz", en la hoja "resumen", pero no explicaste en cuáles columnas ni en cuáles...

Spock Vulcano respondió: Esto es el eterno problema de las macro-fórmulas, que se complican más cuando son anidadas. No he analizado tu macro fórmula aún, porque lo que te propongo es este consejo: Cuando tengas fórmulas así de largas o anidadas y te resulte difícil...

jrgces respondió: Si poner estos valores en I1:I9 0 13 17 21 999999999 0 13 17 999999999 la siguiente fórmula en L2 (copiar y pegar hasta L6) parece que funciona en todos los casos:...

Elsa Matilde respondió: Veo que ya te respondió Ander y su ejemplo parece ser lo que necesitas. Si aún necesitas asistencia para adaptarlo a tu modelo tendrás que dejar imagen de cómo es tu tabla de datos, tus celdas contadores y los criterios a tener en cuenta a la hora de...

Dante Amor respondió: H o l a: Te va a poner le valor de AC86, siempre y cuando tengas en AC89 un valor mayor a 0. ¿Puedes poner una imagen o qué tienes en la celda AC89?

Aneudys Martinez respondió: Muestra nos la línea que usa para carga los datos al listbox Yo este procedimiento para carga los datos uf = Hoja1.Range("a1000000").End(xlUp).Row For Each celd In Sheets("reporte").Range("A10:A" & uf) ListBox1.AddItem celd.Value 'col A...