Abraham Valencia

No termino de entender tu dilema, quizá si das algún detalle más será, a su vez, más fácil ayudarte. Abraham Valencia

Te dejo esto como para que te empieces a dar, realmente, idea: http://www.excel-avanzado.com/2178/ejemplo-solver-macros.html Abraham Valencia

¿Sabes crear archivo *.txt? Es lo mismo por si acaso. Sobre tu caso puntual ¿qué pasa cuando en un "TextBox" tienes varias palabras? Abraham Valencia

Primero que nada, por si acaso, el libro "Antibióticos..." debe estar abierto para que funcione. Ahora, en tu código reemplaza el evento "Initialize" por algo así: Private Sub UserForm_Initialize() Me.ComboBox1.RowSource = Workbooks("ANTIBIOTICOS...

Como se ha comentado en algunas oportunidades, el método "SendKeys" es algo inestable (además de tener un "bug") y cuando se trata de interactura con otras aplicaciones, no necesariamente se dan los resultados esperado. Yo, para este caso, sugiero...

Una forma sería usar el evento "SelectionChange", claro, con el teclado no se podrá "salir" de la celda pero si con el cursor del ratón pero, el evento de "devolverá" a la celda: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If...

¿Marca alguna línea el error? Hasta donde recuerdo ese error se da cuando lo parámetros de las sentencias SQL son incorrectos, verifica eso. Sugiero reactivar el "MsgBox" que tienes ahí para que te ayude a verificar o usar un "Debug.Print sql" para...

Solo para estar seguro, más que quitar alertas lo que quieres es que salga siempre esto: ¿Está bien lo que digo? De ser así pregunto: Antes del supuesto cambio ¿cambiaste de versión de Office en tu PC? ¿No será, sino, qué estás en otra PC y que...

Por lo que veo, estás guardando solo algunas hojas del libro, entonces, en ese nuevo archivo se copian las hojas correspondientes y sus módulos. Si en dichos módulos hay macros (eventos y rutinas o similares) también se copiarán. Con el método que...

Una forma es la siguiente: Sub BuscaryBorrar() Dim ValorBuscado As String, CeldaEncontrada As String, Segundacelda As String Dim Buscar As Range Let ValorBuscado = "Palabra" With Sheets("Hoja1").Range("A1:U10") Set Buscar = .Find(ValorBuscado, , ,...