Dante Amor

H o l a: Tienes pendiente valorar esta respuesta: Macros que al encontrar la palabra "Isotype" dentro de la columna "A" Se añadan 2 filas encima de esta . Al final de mi respuesta hay 2 opciones para valorar: "Votar" y "Excelente", si todavía tienes...

H o l a: No entendí bien. En la hoja2, celda A3 tienes "EUR", en B3 el valor 2.563 En la columna I se busca "EUR" ¿En cuál columna de la hoja1 se va a buscar el valor 2.563? ¿En la columna J? Y por qué dices: "busco todos los montos que su suma den...

Te anexo la macro Private Sub cmd_Agregar_Click() 'Por.Dante Amor ' If Not UCase(Left(TextBox1, 1)) Like "[A-Z]" Then MsgBox "Nombre inválido", vbInformation + vbOKOnly TextBox1.SetFocus Exit Sub End If ' If OptionButton1.Value = False And...

H o l a: Te sugiero lo siguiente. Reemplaza los 0 por celdas vacías. Revisa el siguiente vídeo: https://www.youtube.com/watch?v=ztpHb5gIxxg En lugar de la fórmula =si(B3<>"", A2,""), solamente pon =A2 suponiendo que en A2 tienes el número 212892, si...

H o l a: Si conoces el nombre de cada combo, lo puedes hacer así: Sub BlanquearCombos() 'Por.Dante Amor ActiveSheet.ComboBox1 = "" ActiveSheet.ComboBox2 = "" ActiveSheet.ComboBox3 = "" ActiveSheet.ComboBox4 = "" ActiveSheet.ComboBox5 = ""...

h o l a: ¿Quieres eliminar la fila del listbox o de la hoja? Tengo que revisar cómo estás cargando los datos en el listbox, dependiendo de cómo estás cargando es el método que se debe usar para borrar. ' En un correo nuevo envíame tu archivo y me...

Te anexo las 2 macros Sub Macro_Bajar_Valor() 'Act.Por.Dante Amor For i = 2 To 65 Range("B" & i) = Range("B" & i) / (1 + Range("B70")) Next End Sub ' Sub Macro_Subir_Valor() 'Act.Por.Dante Amor For i = 2 To 65 Range("B" & i) = Range("B" & i) * (1 +...

Para mostrar la barra de hojas: Sub BarraHojas() ActiveWindow.DisplayWorkbookTabs = True End Sub Si quieres ocultarlas, cambia True por False ' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )

Te anexo la macro para abrir los archivos de la ruta Cambia en la macro ruta = "D:\Archivos RM\" por el nombre de la ruta donde tengas los archivos txt Sub abrirtxt() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts =...

H o l a: Te anexo la macro Sub copiar() 'Por.Dante Amor With Range("S1:S" & Range("L" & Rows.Count).End(xlUp).Row) .Formula = "=SUBSTITUTE(RC[-7],""/"","""")" .Value = .Value End With End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta....