Adriel Ortiz Mangia

Dante Amor respondió: Este sería un método o una forma de combinar "correspondencia" de excel con word. Esta macro crea los documentos de word pero no utiliza propiamente la correspondencia de word, lo que hace, es tomar tu documento de word y crear un documento por cada...

Dante Amor respondió: Prueba la siguiente: Sub Hallar_Valor_Venta() Dim a As Variant, b As Variant Dim i As Long, j As Long ' a = Range("A2:C" & Range("A" & Rows.Count).End(3).Row) ReDim b(1 To UBound(a), 1 To 1) ' For i = UBound(a) To 1 Step -1 If LCase(a(i, 2)) =...

Dante Amor respondió: Nota: Una cosa que debes tener en cuenta cuando haces una pregunta en un foro ... las personas a las que solicitas ayuda no saben absolutamente nada acerca de tus datos, absolutamente nada sobre cómo están en el libro de trabajo, absolutamente nada...

Dante Amor respondió: En tu ejemplo, el código de banco 16 tiene 3 registros, los cuales se dividen en 5 registros. Los 3 registros iniciales tienen 3 cuentas_destino diferentes. ¿Entonces a los 5 registros resultantes qué cuenta_destino le corresponde a cada registro?

Dante Amor respondió: Excel tiene una funcionalidad de hacer las cosas de arriba hacia abajo o de izquierda a derecha. De alguna manera no es posible indicarle, con fórmulas, que sume de "desde la última línea de cada Id hacia arriba". Entonces la lógica sería sumar,...

Dante Amor respondió: Puedes poner aquí todo el código que tengas. Cómo cargaste los datos en el combo y cómo en el listbox.

Dante Amor respondió: Me parece que solamente hay que reiniciar los contadores. Prueba y me comentas: Sub NumerarIO() Dim ID, i Dim ContarI As Long, ContarO As Long Application.ScreenUpdating = False For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Not Range("A" & i)...

Dante Amor respondió: Cambia en el código la "A" por la letra de la columna donde quieres que aplique la condición Sub eliminar_Filas() Dim i As Long For i = Range("A" & Rows.Count).End(3).Row To 1 Step -1 If Range("A" & i).Value = 0 Then Rows(i).Delete Next End Sub

Dante Amor respondió: Cambia en el código la "A" por la letra de la columna donde quieres que aplique la condición Sub eliminar_Filas() Dim i As Long Application.ScreenUpdating = False For i = Range("A" & Rows.Count).End(3).Row To 1 Step -1 If Range("A" & i).Value = 0...

Elsa Matilde respondió: En los videos 20 y 40 de mi canal dejé explicados los pasos para insertar gifs animados (en un Userform o en una hoja). Ahora, si solo se trata de una imagen gif (no animada) este ejemplo te puede servir: Sub muestraGif() 'establecer ruta y nombre...

Dante Amor respondió: Prueba el siguiente código, los resultados inician en la celda F1 y G1. Lo que hace esta línea Set dic = CreateObject("Scripting.Dictionary"), es crear un índice. Al recorrer la columna, en el índice solamente almacena el índice y un dato, es decir,...

Dante Amor respondió: Puede explicar qué tienes y qué quieres de resultado. Nota: Una cosa que debes tener en cuenta cuando haces una pregunta en un foro ... las personas a las que solicitas ayuda no saben nada acerca de tus datos, nada sobre cómo están en el libro de...