Dante Amor

Pero no entiendo qué quieres hacer. Podrías explicar esto o explícame qué quieres hacer y te actualizo tu macro Do Until h.Cells(f, 1) = "" If h.Cells(f, 2) = "" Then GoTo siguiente h.Cells(f, "H") = TextBox4 h.Cells(f, "I") = ComboBox1 siguiente: f...

Te anexo la macro con los cambios Private Sub btnex_Click() Set a = Sheets("Ins") contador = 0 For i = 0 To Me.ltbdata.ListCount - 1 If Me.ltbdata.Selected(i) = True Then contador = contador + 1 Filaedit = a.Range("A" & Rows.Count).End(xlUp).Row + 1...

Si quieres que sea en automático cuando pones el dato en la columna A, entonces pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then If...

Puedes guardar el archivo sin macro con esto: Sub Macro3() 'Guarda archivo ThisWorkbook.SaveAs Filename:="respaldo.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End Sub Pero el libro que contiene las macros se cerrará y quedará abierto...

Después de seleccionar las celdas ejecuta la siguiente macro Sub Macro1() ' Selection.NumberFormat = "@" For Each celda In Selection celda.Value = "''" & celda.Value & "' " Next End Sub . .

Te anexo la macro para consolidar en un nuevo libro Sub Resumen() 'Por Dante Amor Application.ScreenUpdating = False Application.StatusBar = False Set l1 = ThisWorkbook Set l2 = Workbooks.Add Set h2 = l2.Sheets(1) n = 1 For Each h1 In l1.Sheets...

Puedes poner una imagen de cómo están tus datos y otra imagen con el resultado esperado. Para añadir una imagen: Para subir una foto o una imagen, tienes que guardar la imagen con formato jpg Ya que tienes tu imagen en un archivo, presiona el icono...

Te anexo el código actualizado Private Sub CommandButton3_Click() n = 0 For i = 0 To ListBox3.ListCount - 1 If ListBox3.Selected(i) Then n = n + 1 wsuma = wsuma + CDbl(ListBox3.List(i, 1)) End If Next If n > 0 Then promedio = wsuma / n TextBox1 =...

Envíame tus archivos y me explicas con un ejemplo. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Juan Arango”

Si no tienes otras macros en tu libro, puedes guardar el archivo como "Libro de Excel" y presiona Sí cuanto te aparezca el mensaje: "Para seguir guardando el archivo como libro sin macros, haga clic en Sí". Eso guardará un nuevo archivo sin las...