UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Invitado


Invitado
Un saludo muy fuerte.

al escribir " < " este signo en una celda se ejecuta :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Union(Target, [D488]).Address = [D488].Address Then
If Target = "<" Then
Range("F482:M485").Copy
Range("F488:M491").Select
ActiveSheet.Paste
Range("F482:M485").Select
Selection.ClearContents
End If
End If
End Sub

Tambien tengo esta macro :

Sub Macro1()
Sheets("Listado").Select
Range("F482:M485").Select
Selection.Copy
Range("F488:M491").Select
ActiveSheet.Paste
Range("F482:M485").Select
Selection.ClearContents
End Sub

Y no se como programarlas para el dia 1 de cada mes, que lo haga automaticamente.
Gracias
Archivos
Ejemplo.zip
(70 KB)

railar


Hola luishc,

En el ThisWorkbook (Libro), puedes utilizar

Código:
Private Sub Workbook_Open()

If Day(Date) = 1 Then
'Tu macro por ejemplo:
Macro1 'o su nombre
End If

End Sub
 
Saludos

Raúl



Última edición por railar el 02/03/14, 08:12 pm, editado 1 vez

Invitado


Invitado
Fabuloso, impresionante, muchísimas gracias.
Un saludo muy fuerte

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.