Dante Amor

Tal vez está tardando más en abrir el archivo pdf. Incrementa el tiempo en timevalue, cambia el 03 por un 10. Revisa otras opciones: Macro en excel que cree archivos pdf de una lista y los llene

En el evento donde pasas la información a la hoja, ahí debes poner la instrucción, por ejemplo, si tienes un commandbutton para enviar los datos a la hoja, entonces quedaría así: Private Sub CommandButton1_Click() Sheets("Hoja1").Range("B2") =...

Te anexo la macro Sub Buscar_Costo() For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If LCase(Cells(i, "A")) = "costo" Then Call macro_usuario Exit For End If Next End Sub Cambia en la macro macro_usuario, por le nombre de tu macro . .

Te anexo un ejemplo del código para pasar los dato a la hoja Private Sub CommandButton1_Click() 'Por.Dante Amor 'Pasar los datos del form a la hoja If ComboBox1.ListIndex = -1 Or ComboBox1 = "" Then MsgBox "Selecciona una hoja del combo"...

Si tienes en la celda C2 la fórmula A2 + B2 y cambias el valor en A o en B, por ejemplo: 2 + 5 en C2 = 7 El resultado de la fórmula siempre cambiará. Si copias la fórmula en D2, es decir, en D2 tienes A2 + B2, por ejemplo 2 + 8, en C2 = 10 y en D2 =...

Cuando las filas están filtradas, debes utilizar la fórmula Subtotal( ) Además del filtro quieres contar únicamente las que digan "Pendiente". ¿El resultado lo quieres en la celda P5? Es que si filtras y la fila 5 se oculta, no podrás ver el...

Me explicas a qué te refieres con "automático me coloque el cuadro", todos los cuadros están en la hoja, si eliges 1 y 3, lo que quieres es que los cuadros 2 y 4 se oculten, para dejar solamente visibles los cuadros 1 y 3. Envíame tu archivo para...

Si concatenas los números 1 y 2, el resultado será "12", la fórmula de concatenar siempre te regresa un texto. Entonces si preguntas: Estexto("12"), Verdadero Estexto(""), verdadero Estesto("ab"), verdadero Siempre te va a regresar verdadero Pero...

Solamente habría que quitar el segundo Exit For, para que continúe. Te regreso el código con algunos cambios: Private Sub ModificarCliente() Dim i As Integer Dim Final As Integer Final = Hoja10.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To Final...

No entendí muy bien, quieres poner el color utilizando formato condicional ¿O ya tienes aplicado el formato condicional y en base a un color quieres copiar a una nueva hoja? Puedes explicar con imágenes lo que ya tienes y en lo que necesitas ayuda.