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]...

Envíame un correo nuevo con tu archivo y tus combos. Me explicas en la hoja con ejemplos claro, qué tienes y qué esperas de resultado. Para explicar los ejemplos utiliza comentarios, colores y datos reales. Mi correo [email protected] En el asunto...

Revisa el siguiente enlace: Codigo VBA para un Listbox con mas de 10 columnas En VBA con el método Adiitem solamente puedes cargar 10 columnas. No te envía error VBA porque tienes la sentencia On Error Resume Next; pero si quitas la sentencia y...

Puedes enviarme un archivo y me explicas con un ejemplo qué tienes, qué quieres copiar y en dónde lo quieres pegar. R ecuerda poner tu nombre de usuario en el asunto del correo.

Te anexo la macro actualizada. Pon las siguientes 2 macros en un módulo y ejecuta la macro Traspasar_Datos. Sub Traspasar_Datos() 'Por.Dante Amor Application.ScreenUpdating = False Set h3 = Sheets("Hoja3") ' 'Pasar de hoja1 a hoja3 cols1 = Array("F",...

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"...

Envíame tu archivo, te ayudo con una petición. Me explicas en qué hoja, en qué formulario, qué datos debo poner, qué esperas de resultado. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “FARLY GAL” S a l u d o s . D...

Quita estas líneas: For i = 4 To h.Range("K" & Rows.Count).End(xlUp).Row If h.Cells(i, "K") = "cambiar" Then End If Y también quita uno de estas líneas Next . 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias . Avísame cualquier duda .

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...