guzmanvoip

No tengo alternativa, debo ampliar la respuesta aquí, porque al ingresar el código me daba un error. Espero que acá pueda poner el código HTML: <select onchange="redirect(this.value);" name="select" id="select" style="width: 165px;"> <option...

Dante Amor respondió: Te anexo la macro actualizada Sub Guardar_Pdf() 'Act.Por.Dante Amor ' pdf Macro ' Set h = Sheets("Factura") ruta = "C:\Users\USUARIO\Documents\Facturas Energia\" ' carpeta = h.Range("C9") If carpeta = "" Then MsgBox "Falta el nombre de la carpeta"...

Elsa Matilde respondió: La expresión FormulaR1C1 generalmente la encontrarás en instrucciones obtenidas con la grabadora de macros, donde se hace referencia a la fila (R=Row) y columna (C=column) de los argumentos de la fórmula con respecto a la celda activa o donde vá el...

Elsa Matilde respondió: Encendé la grabadora de macros (está en el menú Macros o con el botoncito al pie de la hoja) Seleccioná la celda con la fórmula desde la barra de fórmulas y dale enter. Detené la grabadora. En un módulo del Editor tendrás el código. La referencia...

Elsa Matilde respondió: Debes seleccionar cada rango y seguir los pasos de la imagen: La fórmula en español sería para el rango de la imagen: =BUSCARV($D$13;DIA($N$13:$N$15);1;FALSO)

Elsa Matilde respondió: Creo que si colocaras en tu reporte una columna auxiliar con una fórmula que identificara el vendedor ya tendrías casi todo el tema resuelto. Luego te quedaría crear una macro para filtrar por vendedor. Y el rango filtrado llevarlo a una hoja informe...

Dante Amor respondió: Lo que selecciona CurrentRegion, es la región de filas y columnas continúas a partir de una celda Por ejemplo, en una hoja nueva escribe "algo" en la celda B2, escribe "cosa" en la celda "C3", escribe "dato" en la celda "D5", ejecuta la siguiente...

Dante Amor respondió: No puedes seleccionar una celda si estás en otra hoja, primero te tienes que seleccionar la hoja y después seleccionar la celda: i = 1 Sheets(i).Select ActiveWorkbook.Sheets(i).Range("A3").Select o puede ser: i = 1 Sheets(i).Select Range("A3").Select...

Dante Amor respondió: H o l a : Tienes que utilizar el evento Exit, verificas el contenido del textbox, si no es lo que necesitas entonces pones la instrucción Cancel = True, revisa el siguiente ejemplo: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)...

Dante Amor respondió: Cambia esto: ruta = "G:\FID\PORTAFOLIO MODELO\Portafolios\test\" Por esto: ruta = thisworkbook.path & "\" 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias