Dante Amor

Puedes aclarar lo siguiente: Quisiera que me apoyen con una rutina para buscar y mostrar el último folio consecutivo de un rango de columna especifico ¿Cuál es ese rango? Es importante aclarar que los folios de registro en la BD no están ordenados de...

Revisa si puedes adaptar el código de mi respuesta: Lista desplegable dependiente de otras Si tienes dudas te ayudo a adaptarlo.

Revisa mi siguiente respuesta: Existe alguna macro para envió masivo con mismo cuerpo y asusto pero diferente E-mail y adjuntos para office 365 ultima version?

Prueba: Sub Copy_columns() 'copia columnas a la New_PO Sheets("PO").Range("C:C,N:N,D:D,G:G,R:R,AD:AD,AF:AM,AU:AV").Copy Sheets("New_POTemp").Range("A1") End Sub

Te envié la solicitud de acceso al archivo En el archivo pon ejemplos y explicación de lo que quieres.

Revisa si lo siguiente te puede ayudar. Pide que guarden los archivos en su escritorio. Con la siguiente línea: ruta = Environ("USERPROFILE") & "\Desktop\" Podrás obtener el nombre de la carpeta "escritorio", no importa la máquina donde se encuentre....

Tienes en la hoja "CONCILIA OCTUBRE 2021" un formato un poco complejo de ir llenando de manera automática. No digo que es imposible, pero tiene varios detalles que necesito que me aclares. 1. Cuando empieza el mes, cuántas filas en blanco tienes en...

Pon al inicio de la macro esta línea: Application.ActivePrinter = "Microsoft print to pdf" Pon el nombre de la impresora entre comillas. --- Pero me parece que también tienes que poner el puerto, algo como esto: Application.ActivePrinter = "HP...

Puedes poner una imagen de tu hoja productos, para ver dónde tienes las fechas. Que en la fila se vean las filas y las columnas de excel. Si el importe máximo se repite varias veces, ¿cuál fecha quieres mostrar? Es decir, el producto "Galleta" Fecha...

Prueba la siguiente: Sub Consolidar_csv() 'Por Dante Amor Dim Ruta As String, nom As String Dim arch As Variant Dim l2 As Workbook Dim sh1 As Worksheet, sh2 As Worksheet Dim u1 As Long, u2 As Long, code As Long, lc As Long ' Application.DisplayAlerts...