Dante Amor

Podrías poner la macro para revisarla. Si la macro ejecuta otras macros, entonces también pon las demás macros.

Podrías explicarlo con imágenes de lo que tienes y de lo que esperas como resultado. También revisa los siguientes artículos: https://www.gerencie.com/combinar-correspondencia-de-excel-con-word-utilizando-macros.html...

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

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