Dante Amor

Te anexo una función Function CalculaFecFinal(fec As Range, horas As Range) 'Por Dante Amor fecfinal = fec.Value i = 0 Do While i < horas.Value fecfinal = fecfinal + TimeValue("01:00") Select Case Weekday(fecfinal) Case 1, 7 'domingo, sábado Case...

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 crear una hoja llamada "Kits" en la columna A poner los nombres de los kits y en la columna B los precios, por ejemplo: Luego en la hoja donde vas a capturar el nombre del kit pones la fórmula =BUSCARV(A2,kits!A:B, 2,0) Por ejemplo, en otra...

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

En formato condicional pon la siguiente regla: =FILA()=CELDA("fila") En se aplica a: =$C:$G En los eventos de tu hoja pon la siguiente macro: Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor Calculate End Sub Sigue las...

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