caranbis

Sub enviarhojadiafelix() ' ' enviarnoconformidad Macro ' Macro grabada el 04/08/2007 por Enfymeca Sheets("Empleados").Activate Range("A1:l31").Select Dim wb As Workbook Dim strdate As String Dim stEmail As String strdate = Format(Range("R2"),...

Es cierto, esa instrucción que estas usando no funciona, lo que se me ocurre que puedes hacer, es simular que se ha presionado la tecla FLECHA-ABAJO, con la siguiente instrucción: Range("A1").Select SendKeys "{DOWN}", True Lo malo de esta...

Selecciona el titulo de la tabla, por decir. Si está en a1, entonces selecciona A1. Ir al menu: Datos:filtros:autofiltro Cuando se activen las flechas en los títulos respectivos de las tablas, se desplegarán los valores únicos de cada columna, si...

Private Sub controlarerror() On Error Resume Next 'con la anterior línea le estas diciendo que omita 'todos los errores que se presenten de aqui en adelante... (1) 'TU CODIGO: INSTRUCCIONES DONDE SABES QUE SE GENERARÁ UN ERROR On Error GoTo 0 '...(1)...

'antes que nada, quiero explicarte que esta instruccion: 'Cells(fila,columna) 'hace referencia a una celda (en la hoja activa) 'y esta otra instruccion: 'Sheets("Hoja1").Cells(1,3) 'hace referencia a la celda C1 de la Hoja1 'Entendido esto podemos...

ActiveWorkbook. Close 'Cerrar sin preguntar ni guardar cambios ActiveWorkbook.Close False

Este es muy básico http://www.flyupload.com/?fid=5147359

Envíamelos, [email protected]

Creo que no hay función que haga esto, tendrías que hacer una función personalizada; pero puedes combinar varias: Agrega una columna DE con esta fórmula: =SI(Y($C1>=1;$C1<=30);$A1;"") y un columna E con esta otra: =SI(Y($C1>=45;$C1<=60);$A1;"") Luego...

A ver si esto re sirve: Sub paraseenlafechaactual() dondeacabalabusqueda = 10 columnadondeestanlasfechas = 1 For fila = 1 To dondeacabalabusqueda If Cells(fila, columnadondeestanlasfechas) = Date Then Cells(fila, columnadondeestanlasfechas).Select...