Esteban RG

Eso ocurre porque has utilizado referencias relativas para grabar tu código. Si has grabado un macro utilizando el grabador, debes asegurarte que la opción de "usar referencias relativas" no está activada. (Cuando está activado se sombrea en verde)...

En primer lugar supongo que has colocado los controles y el código en un formulario (UserForm). Pero no puedes asociar ese codigo a un evento 'AfterUpdate' ! Debes asociarlo al evento "TextBox2.exit", asi se ejecutará cuando el textbox2 pierda el...

Pon este código en una sub de "abrirLibro" o de "ActivarHoja" para que se ajecute open " c:\windows\addins\XXXYYYNNN.ini " as #1 : close(1)

En la ventana de código de la hoja pon esta sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target.Cells = 10 Then Cells(1, "C") = Cells(1, "C") + 1 ArchPDF = ThisWorkbook.Path + "\MilibroPDF" + Str(Cells(1,...

Puedes poner este código Sub redondea() d = Cells(1, "D") ' aqui la celda que quieres que te redondeé r = (d * 10) Mod 10 If r = 0 Then Exit Sub If r < 5 Then r = 1 If r >= 5 Then r = 5 nd = Int(d) + r / 10 If d <> nd Then Cells(1, "D") = Int(d) + r...

No se si lo entiendo bien, pero creo que lo que quieres es algo asi; Suponiendo que tengas esta hoja... Private Sub Boton1_Click() Set R1 = Range("A3,A5,A7") For Each c In R1 c.Cells = c.Cells - 1 If c.Cells < 1 Then c.Cells = 1 Next End Sub Private...

Puedes usar esta sub con el evento SELECTION_CHANGE: Private Sub Worksheet_SelectionChange(ByVal Target As Range) '***PRIMERO LIMITAR EL RANGO DE ACTUACION DEL EVENTO If Target.Column < 8 Or Target.Column > 12 Then Exit Sub If Target.Row < 8 Or...

puedes ocultar la hoja con hoja.visible=veryhidden Solamente la puedes volver a mediante programación o desde el entorno de programación. Puedes proteger el proyecto con contraseña. En hoja oculta puedes trabajar lo que quieras siempre que no trates...

Puedes usar la función OnTime Escribe este código en la ventana de código de la Hoja1: Sub cuenta() Application.OnTime Now + TimeValue("00:00:01"), "Hoja1.Resta" End Sub Sub Resta() Cells(3, 1) = Cells(3, 1) - Cells(2, 1) If Cells(2, 1) > 0 And...

Tienes un error en la línea... "If Cells(r.Row, "AE") = "Cheque" And Cells(r.Row, "AE") = "Transferencia" Then" En vez de AND tienes que poner OR, no puede ser que ponga a la vez "cheque" y "transferencia" La condición se cumple si se cumple una de...