William Kennedy

Prueba cambiando el siguiente código... Range("AA3:AA" & Range("I" & Rows.Count).End(xlUp).Row).Select por este... Range("AA" & Range("I" & Rows.Count).End(xlUp).Row).Select

Puedes intentar lo siguiente: coloca este código dentro de tu macro if workbooks("Cuentas por Cobrar").sheets("TKT").Range("S2")="Negativo" then exit sub end if

Prueba utilizando este código, tienes que colocarlo en la hoja donde están los datos: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Hoja As String On Error Resume Next If Intersect(ActiveCell, Range("S1:S100")) Is Nothing Then Exit...

Prueba realizando la siguiente modificación al código que ya tienes: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde 'seleccionando varias celdas (para borrarlas) no ejecuta If Target.Count > 1 Then Exit Sub If Not...

Solamente reemplaza tu línea de código por el siguiente: Hoja2.Cells(9,2+N)=Format(ResPR3, "%0.00")

Deberías explicar con más detalles lo que necesitas para que algún experto te pueda ayudar, se me ocurre que lo que necesitas lo puedes encontrar en la siguiente página web. https://exceltotal.com/ordenar-hojas-de-excel-alfabeticamente/

Coloca el siguiente código para que detecte el cambio en la celda L2 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 2 And Target.Column = 12 Then If IsEmpty(Target.Value) Then Range("A71:A77").EntireRow.Hidden = False...

Coloca el siguiente código en la hoja en donde se encuentran los datos en el editor de Vba Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 6 Then If Target.Value >= 30 Then MsgBox "nombre fuera del rango permitido"...

Puedes mejorar un poco el código si lo escribes de la siguiente manera: Private Sub CheckBox1_Click() If CheckBox1.Value = True Then ThisWorkbook.Sheets(1).Range("L27") = InputBox("Nº de Expediente de Booking:") Else...

Antes del "End Sub" coloca la siguiente instrucción indicando el nombre de la Macro. Application.Run "Nombre_de_la_Macro"