Abraham Valencia

Pues usa esto: ... := ThisWorkBook.Path & "\nombredetuarchivo.txt" Abraham

Reemplaza tus fechas, por los rangos ausar: AutoFilter Field:=12, Criteria1:= [A1] , Operator:=xlAnd, _ Criteria2:= [A2] y en esas celdas coloca: >=08/14/2008 >=08/16/2008 Ojo con el formato, usa mm/dd/aaaa en las celdas, sino, el VBA te filtrara mal...

Pues supondré un Textbox1 y un CommandButton1, entonces, algo así creo que te serviría: Private Sub CommandButton1_Click() If Len(TextBox1) <> 10 Or Not IsNumeric(TextBox1) Then MsgBox "Tiene que ingresar 10 numeros" Exit Sub End If [a1] =...

Un modo: Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then Call nombredetumacro End If End Sub Abraham

Donde has colocado: buscar1 = B2 Cambialo por: buscar1 = [B2] Abraham

Pues anda a EDICIÓN - BUSCAR, activa las "opciones" y en "dentro de" elige "Libro" Abraham

Pues, los textbox tienen una propiedad llamada "MaxLenght", ponle un 2 ahí, así solo aceptara 2 caracteres. PAra que "salte" a otro textbox, apenas se escriban los 2 caracteres, pues, una alternativa es esta: Private Sub TextBox1_Change() If...

Pues lo que planteas, en realidad no tiene relación entre si, ademas de que no especificas exactamente que quieres activar/desactivar. Solo algunas cosas sobre lo poco que escribiste: - Por ejemplo, sobre Abrir: Necesitarías inhabilitar el menu...

Pues una cosa importante, es macro, si la analizas solo borra imágenes cuyos nombres empiecen con "Picture" y/o "Image", es decir si sus nombre no comienzan con esas palabras, pues, no las borra. Ahora otra cosa, me da la impresión que algunas de tus...

Pues, tratando de seguir tu idea, creo que mejor seria algo así: Range("A65536").End(xlUp).Offset(1, 0).Select ActiveCell.Offset(0, 3).FormulaR1C1 = "=(today()-R[-1]C)/30" OJO, hay ciertas diferencias entre: . FormulaLocal . FormulaR1C1 ....