Dante Amor

H o l a: Vamos por la opción de guardar como PDF. Pero ya no entendí, ¿quieres las 2 hojas en un solo PDF? O quieres que cada hoja se guarde una en cada pdf, es decir, ¿2 PDF? Y por último, de dónde se va a obtener el nombre del o de los archivos. En...

Estimado no has valorado la respuesta anterior. Al final de mi respuesta hay un botón para valorar.

H o l a: Agrega este código a los eventos de Thisworkbook Private Sub Workbook_OPEN() 'Por.Dante Amor 'Asignamos la propiedad xlVeryHidden para que las hojas no puedan 'mostrarse en el menú Mostrar hojas. For i = 2 To Sheets.Count Sheets(i).Visible =...

H o l a: Te anexo la macro Sub SerpararDatos() 'Por.Dante Amor m = 120 n = m j = 2 ActiveSheet.UsedRange.Offset(0, 1).ClearContents For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Step m Range("A" & i & ":A" & n).Copy Cells(1, j) n = n + m j = j +...

H o l a: Hay algunas formas para guardar como txt, separado por espacios, como csv, como ms-dos, etc. Podrías enviarme una muestra de tu archivo y un par de archivos txt para ver cómo es la forma de txt. Mi correo [email protected] En el asunto del...

H o l a: Para conocer el disponible, primero tienes que seleccionar los departamentos y después el código. Private Sub CMB_COD_Change() 'Por.Dante Amor If cargando Then Exit Sub cargando = True descripcion = "" If CMB_COD.ListIndex = -1 Then cargando...

H o l a: Te anexo la macro para que se verifique en disponible: Private Sub CMD_ACEPTAR_Click() 'Por.Dante Amor If CMB_DE = "" Then Exit Sub If CMB_A = "" Then Exit Sub If CMB_COD = "" Then Exit Sub If TXT_CANT_TRAS = "" Or Not...

H o l a: Para llevar el consecutivo de pedidos, lo tienes que llevar en otro libro, por ejemplo en un libro llamado: "solamente numero de pedido" y almacenar el número de pedido en la celda "A1". Por ejemplo, cada vez que presiones el botón "para dar...

Podrías poner un ejemplo para cada caso. Ejemplos para esto: "En el recuadro simcards si los combobox "entrantes" se encuentran vacíos, o en "NO APLICA" y los combobox "salientes" tienen seleccionado algún valor distinto a vació o "NO APLICA""...

H o l a: Te anexo 2 macros. Utiliza la siguiente si tienes encabezados en la fila1 y tus datos empiezan en la fila 2 Sub OrdenarCon() 'Por.Dante Amor u = Range("A" & Rows.Count).End(xlUp).Row With ActiveSheet.Sort .SortFields.Clear .SortFields.Add...