Paulo Pareja

Tenes que cargarlo de esta forma: fechaarch = Format(CDate(Date), "yyyy") Me.ComboBox1.AddItem fechaarch fechaarch = fechaarch + 1 Me.ComboBox1.AddItem fechaarch fechaarch = fechaarch + 1 Me. ComboBox1. AddItem fechaarch Ten encuenta en que momento...

Si el problema es que no retoma el foco a la ventana correcta podrías en alguna parte del código declarar la ventana como una variable por ejemplo así prueba= ActiveWorkbook.Name Y donde necesitas que retome el foco a esa ventana le indicas:...

Yo lo plantearía así, hacer un libro (me es más cómodo para mi) donde solo tenga el numero del ultimo folio así solo lo usas de contador y no se te hace pesado. Para abrir el archivo debes agregar esto a tu código: Plataforma = ActiveWorkbook.Name...

YO lo haría sin el "on error goto"... te realizo una propuesta: 'guardas en la variable PARABORRAR el valor buscado PARABORRAR = TEXTBOX1 'fijate que aqui va a buscar el resultado en la columna "A" nada mas Set resultado =...

Si quieres que se habrá un formulario al abrir el archivo tienes que: * Ingresando en el editor VBA (alt + f11) seleccionar "thisworkbook" en tu proyecto, allí dentro pone: Private Sub Workbook_Open() load FORMULARIO FORMULARIO.show End Sub Esto...

Con la poca info que brindas ya que no das rangos y demás, voy a hacer algunas suposiciones: Las fotos a insertar serian en A1. La foto se llama igual que el dato que esta en "C" o sea, en a1 pone foto de c1, cuya imagen es el mismo valor que hay en...

En 2007 tienes que posicionarte en la celda donde quieres trabar los paneles y pones: Vista - Inmovilizar paneles - inmovilizar paneles. Si estas en "F4" por ejemplo veras fijo las 3 filas superiores siempre y las 5 columnas de la izquierda.

¿Podrás poner algún ejemplo?

Este código que tengo esta fijado "mirando" a la celda que le indiques: ActiveSheet.DrawingObjects.Delete ruta = "C:\trabajo\varios\" ' aca indica la fila A que es donde esta el nombre de donde obtiene la foto For i = 2 To Range("a" &...

Te paso el código. Fíjate las anotaciones que te puse. Sub abrir() Rec = ActiveWorkbook.Name Application.ScreenUpdating = False 'en caso de que el archivo no sea correcto, volvera a correr desde aqui la macro ingresodenuevo: MsgBox "Seleccione...