Dante Amor

Te anexo la macro para filtrar por fechas Antes de ejecutar la macro debes crear una hoja y le pones por nombre "Temporal" Actualiza en la macro esta información: Set h1 = Sheets("BASE DE DATOS FACTURACION") Set h2 = Sheets("Temporal") col = "F"...

Te anexo el código actualizado para esta petición: Lo que yo deseo es que por fila salga el comentario: aguas & "la fecha que sale en la primera columna de la fila" & "la hora que depende la segunda columna de la fila" y & la celda misma Suponiendo...

Te anexo la macro actualizada. Puedes poner la celda donde quieres poner el resultado, sin necesidad de seleccionar la celda, por ejemplo, en lugar de esto: Range("H24").Select ActiveCell.FormulaR1C1 = "=RC[4]/RC[5]" Puedes ponerlo así:...

Anexo otra opción Private Sub ComboBox1_Enter() Dim Fila As Long Dim Final As Long Dim Lista As String For Fila = 1 To ComboBox1.ListCount ComboBox1.RemoveItem 0 Next Fila Final = GetUltimoR(Hoja3) For Fila = 2 To Final Lista = Hoja3.Cells(Fila, 2)...

Te anexo la macro Sub Macro2() ' Por Dante Amor ' ' Poner formato a celdas con Id duplicado ' u = Range("A" & Rows.Count).End(xlUp).Row Range("A3:H" & u).Borders.LineStyle = xlNone ini = 3 ant = Cells(ini, "A").Value For i = ini To u + 1 If Cells(i,...

Te anexo la macro, antes de ejecutarla debes crear una hoja llamada "temp". También cambia en la macro "Hoja4" por el nombre de tu hoja que contiene las ventas. Sub Imprimir_Pdf_Por_Vendedor() '---- ' Por Dante Amor '---- Application.ScreenUpdating =...

Prueba con lo siguiente, Pon la macro en los eventos de tu hoja. Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor 'Pintar de color las celdas anteriores If Target.Row < 2 Then Exit Sub If Target.Count > 1 Then Exit Sub If...

Puede ser así: Private Sub CommandButton2_Click() If ListBox1.ListCount > 0 Then MsgBox "Todavía tiene items" Else MsgBox "Ya no hay items " End If End Sub sal u dos

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns("A")) Is Nothing Then If Target.Count > 1 Then Exit Sub Range("B" & Target.Row, Cells(Target.Row,...

En la medida de lo posible, no utilices las instrucciones On Error, lo recomendable es controlar los errores con código, te anexo un ejemplo: Sub Reestablecer() ' Crea una nueva hoja para la siguiente conciliación Application.ScreenUpdating = False...