William Kennedy

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

En lugar de Call, utiliza la instrucción Application. Run de la siguiente manera. Application. Run "Consolida" Application. Run "correo"

Podrías indicar en que parte te da el error para poder ayudarte mejor.

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

Coloca el siguiente código en un modulo Sub Multiplicar() i = 1 Do While ThisWorkbook.Sheets(1).Cells(i, 14) <> "" ThisWorkbook.Sheets(1).Cells(i, 17) = ThisWorkbook.Sheets(1).Cells(i, 14) * _ ThisWorkbook.Sheets(1).Cells(i, 15) i = i + 1 Loop End...

Coloca el siguiente código en el modulo thisWorkbook, para abrir el editor de visual basic presiona Alt + F11 Private Sub Workbook_Open() ThisWorkbook.Worksheets(1).Activate End Sub