Adriel Ortiz Mangia

H o l a Te paso la macro, cambia la ruta donde se guardarán los archivos RutaExcel = "C:\Backup\Excel\" 'Cambias la Ruta para guardar el archivo de excel RutaPDF = "C:\Backup\PDF\" 'Cambias la Ruta para guardar el archivo de PDF Sub GuardarArchivo()...

H o l a Te paso la macro actualizada Sub GuardarCopia() Dim NombreArchivo As String NombreArchivo = Format(Date, "dd - mm - yyyy") If MsgBox("¿Está seguro de haber rellenado correctamente la plantilla?", vbQuestion + vbYesNo) = vbYes Then FilePath =...

H o l a Te paso la macro, sustituye el nombre de la hoja por el tuyo Sub Guardar() Set h1 = Sheets("Hoja1") u2 = h6.Range("A" & Rows.Count).End(xlUp).Row + 1 ' For i = 0 To Listaregistro_Hijos.ListCount - 1 ' H1.Cells(u2, "A") = ListBox1.List(i, 0)...

H o l a Te paso la macro, cambia las celdas por el tuyo Sub Guardarpdf() Application.ScreenUpdating = False Application.DisplayAlerts = False Ruta = ThisWorkbook.Path & "\" Fecha = [A1] Turno = [A2] Nombre = [A3] ActiveSheet.ExportAsFixedFormat...

H o l a Te paso la macro, te faltó indicar como está organizado tus datos. Este código le pones en el evento Exit del Txtdocumento y también actualiza el nombre de la hoja. Private Sub txt_documento_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Por...

H o l a ¿Qué elimine el código o la fila? ¿Desde qué fila se empezará a buscar? ¿En qué columna está el código?

H o l a No me quedó claro ahora, ¿pudieras poner una imagen como quedaría el resultado?

H o l a Cuales son las 2 columnas a copiar, ¿veo varias?

H o l a Te paso la macro Private Sub CommandButton1_Click() Range("A1") = CDate(TextBox1 & "-" & ComboBox1) End Sub cambia los nombres de los controles por lo que estas utilizando. Valora mi contribución por Excelente o bueno saludos!

H o l a ¿Puedes explicar con un ejemplo?