Paulo Pareja

Dante Amor respondió: Al parecer, sí es un problema de memoria. Realiza lo siguiente. Entra al Panel de Control. Sistema. Configuración Avanzada del sistema. En la Opciones Avanzadas. En Rendimiento presiona Configuración. Nuevamente en Opciones Avanzadas. En memoria...

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.

Dante Amor respondió: H o l a: Te anexo la macro Private Sub CommandButton1_Click() 'Por.Dante Amor If Not IsDate(ComboBox1) Then Exit Sub ' fec = CDate(ComboBox1) x = 1 n = Cells(1, Columns.Count).End(xlToLeft).Column Do While True For i = 1 To n If Cells(1, i) = fec...

¿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...