Cadipas spain

Prueba con este código... puedes añadir nombres y contraseñas... Private Sub Workbook_Open() Dim nombre As String Dim paso2 As Boolean nombre = UCase(InputBox("Nombre de Usuario")) paso2 = False Select Case nombre Case "JAVIER" If...

Voy a intentar ayudarte, pero para ello, tengo que tener claro lo que hay que hacer. Explicame mejor ya que no lo termino de entender. Creo que sería mejor que me postees tu dirección de correo, con el fin de enviarte yo la mía y poder intercambiar...

Selection. AutoFilter

Prueba el codigo : Worksheets("Hoja4"). Activate Range("B2").Select For y = 2 To 27555 siguiente: Range("B" & y).Select If (ActiveCell.Value = "rene") Or (ActiveCell.Value = "jorge") Or (ActiveCell.Value = "kimba") Or (ActiveCell.Value = "anna") Or...

Prueba este código. Como no me decías como ejecutarlo, yo he puesto que cada vez que entres en la hoja uno, se ejecute. También he supuesto que tienes datos en la hoja 1, de no ser así, el for en vez de empezar en 1 pon que empiece en 2. Private Sub...

Se me ocurre una cosa, pero hay que dar dos pasos 1º crea en una columna por ejemplo la "L" y pon esta fórmula en las celdas que te correspondan los datos por ejemplo para la fila 4 =SI(Y(M4>=$AE$5;M4<=$AF$5);"SI";"NO") Esto te compara el periodo de...

Bueno en teoría se puede haer, pero sin saber donde se encuentra los datos es difícil hacer una macro. Hay que puntuelizar bastante más. Te sugiero que me postees tu direcciónde e-mail y yo te envío la mía para intercmbio de ficheros. De otra manera...

Entra en esta página y bajate el fichero con tu nombre LEPAL http://cid-3d609d87423f2eeb.skydrive.live.com/browse.aspx/P%c3%bablico En la celda verde, pon el valor que quieras (los de A1 a A4) y se te representara en la fila 5 el resto de valores Suerte

Yo he probado la fórmula y a mi me funciona. En principio no veo el problema. Podría ser que no se descargan variables y agotas el sistema, demasiados trabajos a la vez, etc...

No entiendo muy bien lo que pretendes, pero el segundo fenómeno es normal. Prueba este código, cambialo por el que tú tienes: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim COL As Double Dim FILA As Double COL = Target.Column FILA =...