Dante Amor

Puedes explicarlo con unas imágenes de lo que tienes y de lo que necesitas

Según tu imagen tienes en DN19 la palabra "Importe" Luego en la celda EM22 tienes el valor 20, ese valor 20 lo quieres en la celda Y22, ¿correcto? Ahora en la celda EM23 tienes el valor 20, ¿ese 20 lo quieres en la celda Y23? En la celda EM24 tienes...

Puedes poner una imagen de lo que tienes. ¿Cuándo dices archivos te refieres a una lista de nombre que tienes en una hoja de excel? ¿En qué columna tienes la fecha? Y cómo quieres el mensaje, puedes poner un ejemplo

De hecho son 3 peticiones: 1. Buscar en base a 2 criterios 2. Cargar un listbox con lo encontrado 3. Poder seleccionar registros del listbox y enviarlos a la hoja. Supongo que ya tienes un userform, envíame tu archivo con el userform, y me explicas...

Esta puede ser una opción, la macro se ejecutará solamente una vez, cuando cambies la celda L2 a "SI" nuevamente se ejecutará una vez. Private Sub Worksheet_Calculate() If Range("A5") = 1 And Range("A7") = 1 And Range("A9") = 1 And Range("L2") = "SI"...

Pero no pusiste qué dato del listbox quieres poner en la celda A9 "presione un botón (Seleccionar) y este lleve la información hasta la celda A9 de la Hoja3" Te pongo un ejemplo, voy a pasar 2 datos del registro seleccionado, la columna 0 y la...

Te anexo el código para el menú. Tal vez solamente te haga falta utilizar Repaint para actualizar el userform, de cualquier forma revisa el vídeo y el código. Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal...

Te anexo el código ult_col = Cells(6, Columns.Count).End(xlToLeft).Column If ult_col > 1 Then ult_col = ult_col - 1 dato = Cells(6, ult_col) Else cato = Cells(6, ult_col) End If Si la última columna es la 1, no se le puede restar 1 porque enviaría...

Cambia en la macro "Hoja1" por el nombre de la hoja que quieras agregar junto a la hoja "PIM Mundial" nombre = Trim(Cells(7, 2)) Sheets(Array("PIM Mundial", "Hoja1")).Copy ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ruta &...

Te anexo la macro Sub Informe_Usuario() ' ' Por.Dante Amor ' Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets(1) Set h2 = Sheets("Plantilla") Set h3 = Sheets("Informe") h3.Cells.Clear ' If h1.AutoFilterMode Then...