Paulo Pareja

Les molesto con un problema que me esta volviendo loco y no entiendo el porque: Tengo varios ListBox dentro de un formulario con algunos TextBox en el cual cargo la consulta y mediante algunas consultas pongo en una hoja los datos que quiero llenar...

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.

Tengo el siguiente código: ActiveSheet.DrawingObjects.Delete ruta = ThisWorkbook.Path & "\Images\" For i = 2 To Range("e" & Rows.Count).End(xlUp).Row imagen = Cells(i, "e") If Cells(i, "e") = "" Then GoTo salidaa Range("b2").Select Dim SArchivo As...

Quería consultarle como realizar una búsqueda de una fecha y si no existe que encuentre la más próxima (antes o después). La fecha a buscar la tengo en un combobox y el rango de fechas a buscar están situadas todas en el primer renglón (encabezado)....