Dante Amor

Si entendí bien, ¿lo qué quieres hacer es leer las 31 hojas y actualizar el inventario? Si es así, envíame tu archivo con lo siguiente: Una hoja "inventario" con el inventario actual Dos hojas, el día 1 y el día 2 con información de ventas en esos...

H o l a: Envíame tu archivo con datos de ejemplo. También dime cómo o qué pasos realizas para pasar esos datos a txt; y por último, envíame un archivo txt con los mismos datos de ejemplo, pero de la forma como lo quieres. Mi correo [email protected]...

En el userform4 Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) frm_Requisicion.Show End Sub En el frm_Requisicion Private Sub UserForm_Initialize() 'Por.Dante Amor ListBox1.ColumnCount = 2 ListBox1.ColumnWidths = "235 pt; 8 pt"...

Te anexo la macro Private Sub ComboBox1_Change() 'Act.Por.Dante Amor Me.ListBox1.Clear If Me.ComboBox1.Value = Empty Then Exit Sub ' Me.ListBox1.Clear For i = 3 To Hoja19.Range("A" & Rows.Count).End(xlUp).Row If LCase(Hoja19.Cells(i, 4).Value) Like...

Envíame un archivo con varios ejemplos reales, para ver cómo están las columnas, cuáles columnas están vacías, cuáles filas están vacías, cuáles filas no contienen datos y cuáles sí tienen datos. También el archivo, en la hoja "resumen", pon algunos...

Si quieres el consecutivo en toda la columna A sin importar las celdas vacías en la columna B, utiliza esto: Sub Ordena() 'Sub Ordena(Control As IRibbonControl) Application.ScreenUpdating = False Rows(1).Delete Shift:=xlUp Range("A2") = 1 u =...

Te anexo una forma de poner los mensajes en un bucle Private Sub Workbook_Open() mensaje1 = "Buenos días, Luciano" mensaje2 = "Ya te dije buenos días" mensaje3 = "Te lo digo por tercera vez... BUENOS DIAS" mensaje4 = "No te lo repito más" mensaje5 =...

Para que funcione en una sola macro realiza lo siguiente: - A cada forma le tienes que poner un nombre en el cuadro de nombres: Ahora, en un módulo pon la siguiente macro: Sub Mensaje_Shape() 'Por.Dante Amor Select Case TypeName(Application.Caller)...

Te anexo la macro actualizada para guardar también como pdf Sub CorrespondenciaConWord() 'Por.Dante Amor ' patharch = ThisWorkbook.Path & "\plantilla1.dotx" ' For i = 2 To Range("A" & Rows.Count).End(xlUp).Row Set objWord =...

Te anexo la macro. Oculta las filas si el color está puesto con el formato de colores. Si el color está puesto con el formato condicional, entonces no funciona. Sub Ocultar_Filas() 'Por.Dante Amor For i =...