Andy Machin

Ese With... End With no está haciendo nada. Todo ese proceso se está haciendo en la hoja que este activa en el momento. Si la hoja activa es DIRECCIONES es pura coincidencia.

Ya lo hice. Presta atencion. Donde sea que tengas tu libro, siempre debe ir acompañado de una carpeta llamada Imagenes, y dentro de esa carpeta deben estar las imagenes. Asi: Si cambias esa estructura, no va a funcionar. Ademas, recuerda, las fotos...

Worksheets("MACHOS"). Protect "Contraseña" Worksheets("MACHOS"). Unprotect "Contraseña" Así de simple

En teoría, no agregas formularios a las macros, agregas macros a los formularios je Bueno, en el editor de VBA, así: Y luego tienes un formulario que vas dandole forma con los controles: Supongo que solo necesitarías un TextBox y algún botón de OK o...

Hice una macro que hasta donde entiendo hace lo que necesitas. Si te fijas, tu pregunta es bastante corta, por ejemplo, no dices en que hoja quieres pegar los datos, tampoco dices que contienen las otras hojas a parte de la columna D o E. Así que,...

Prueba esto, ajusta cualquier ruta o parámetro que sea necesario. Son dos macros, una para recorrer la carpeta en busca de cada csv, luego llama a la otra macro que es la que se encarga de hacer el Texto en Columna. Y luego guarda el archivo como un...

Esta mal. No se si tenga algo que ver con el error (habría que ver que hay en esas Macro1, Macro2, etc etc) Lo que esta mal es que en el Select Case estas evaluando el texto de C3 (que es un numero) contra strings como por ejemplo "Benexafrina 5mg"...

Eval() es un método para Evaluar una expresión como string (texto) Por ejemplo Eval("5 + 5") te devolvería un 10 Así que tu código estaría Evaluando lo que hay en Resultado con el Operador y el Parámetro y aparentemente devuelve un Bolean (verdadero...

Bueno en Excel no necesitas seleccionar una celda para luego poner algo. Por ejemplo, decir Range("A1").Select ActiveCell.Value = "Cualquier cosa" no es necesario seleccionar la celda y luego ponerle el valor o la formula, puedes hacerlo...

Pega este código en el evento Open del libro: Private Sub Workbook_Open() Dim rCell As Range Dim MesActual As Integer: MesActual = Format(Now, "m") Dim MesCol As Integer: MesCol = MesActual + 7 Range("CQ2").Value = MesActual For Each rCell In...