Fran Riveiro

Tecnico superior en administrador de sistemas informáticos

4.500 puntos Galicia, España @darkwizard88 desde 2008 - visto 2015

Respuestas en Microsoft Excel

Salvar con macro

Sub GuardarFactura() Dim ActDIR, newDir, newFile As String Sheets("Factura").Select Sheets("Factura").Copy ActDIR = CurDir newDir = "C:\Facturas Lorca\Facturas" newFile = Range("BI1").Value & ".xls" If newFile <> "" Then If Right(newDir, 1) = "\"...

1 respuesta

Responder

Aviso de fecha en celda

Private Sub Workbook_Open() Dim hora hora = "0" For Each celdita In ActiveSheet.Range("b3", Range("b3", Range("b3").End(xlDown))) If celdita.Offset(0, -1).Value <> "" Then If celdita.Offset(0, -1).Value > Date Then celdita.Offset(0, -1).Select...