Dante Amor

H o l a: Te anexo la macro actualizada Sub Macro1() 'Act.Por.Dante Amor ' Application.ScreenUpdating = False Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,...

H o l a: Prueba con lo siguiente: Dim nombre2 As String, Ruta2 As String 'Ruta2 = Range("a1").Value Ruta2 = CreateObject("WScript.Shell").SpecialFolders("Desktop") nombre2 = Range("a2").Value ActiveWorkbook.SaveAs Filename:=Ruta2 & "/" & nombre2 'S...

H o l a: ¿Todavía requieres apoyo con esta pregunta? Qué columna se va a sumar en el textbox de "Saldo", ¿la columna F con los precios? Y qué columna se va a sumar en el textbox de "Unidades", ¿la columna E con las cantidades? En la columna de...

H o l a: Te anexo la macro Sub IgualarCeldas() 'Por.Dante Amor Set h1 = Sheets("Datos") Set h2 = Sheets("Hoja2") j = 5 For i = 7 To h1.Range("A" & Rows.Count).End(xlUp).Row h2.Cells(j, "E") = h1.Cells(i, "A") j = j + 56 Next MsgBox "Fin" End Sub 'S...

H o l a: Te anexo la macro para cargar la zona Public h1, h2 ' Private Sub UserForm_Activate() 'Por.Dante Amor Set l1 = ThisWorkbook Set h1 = l1.Sheets(1) abierto = False archivo = "excel adjunto.xlsx" ruta = l1.Path & "\" For Each libro In Workbooks...

H o l a: Supongo que la otra macro borra las celdas con un código como este: Range("q11:q55"). Clear El error es porque en Target tienes un rango de celdas, es decir, en Taget tienes muchos valores, y no puedes preguntar por un solo valor de esta...

H o l a: ¿Podrías poner el mensaje de error que te aparece? ¿Cómo se llaman los combos? ¿Podrías poner el código de tu formulario?

H o l a: En un correo nueva envíame los archivos, en el asunto del corro escribe tu nombre de usuario: "Macontad" Sal u dos

H o l a: Tienes que realizar un ciclo, por ejemplo: Set r = h2.Columns("B") Set b = r.Find(fecha, lookat:=xlWhole, lookin:=xlvalues) If Not b Is Nothing Then celda = b.Address Do 'detalle If h2.cells(b.row, "E")= dato then 'aquí debes poner el código...

Envíame tu archivo con algunos ejemplos para adaptar la macro Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Darwing Tijerino Flores” y el título de esta pregunta.