Isaac Reyes

¿De qué forma estás insertando los datos en las celdas? ¿Con el teclado? ¿Alguna macro? ¿Importando?

Ok, creo entender lo que sucede. Para poder generar una solución, necesitas relacionar de alguna forma la palabra AHO (nombre de la hoja) con la palabra Ahorros (nombre de la categoría) de esta forma podrías utilizar una referencia que se comporte de...

H0la Alex: Revisa esta respuesta y me comentas si algo así te sirve y si sabes cómo adaptarlo. Como programo el abrir un documento cuyo nombre puede cambiar pero sus iniciales se mantienen. S@lu2

H0la Manigoldo: Para no alterar mucho tu código, puedes hacer lo siguiente With Range("C2").CurrentRegion UltimaFila = .Rows(.Rows.Count).Row Range("F2:F" & UltimaFila).Formula = "=round(C2/1.18, 2)" Range("G2:G" & UltimaFila).Formula =...

H0la Chrisr: El uso de esta función es análogo a la función anterior. RngCeldaCat: Celda en que está el criterio de categoría StrColCat: Columna desde la que tomará el dato en la hoja de origen. RngCeldaMes: La celda que contiene el mes que se desea...

En el editor de VBA te va a la opción Herramientas/Propiedades de VBAProject. Aparecerá esta ventana Seleccionas la pestaña protección y la casilla Bloquear proyecto para visualización y le das una contraseña. S@lu2

H0la Twuggy: ¿A qué te refieres con seleccionar? ¿Seleccionar de una lista? ¿Seleccionar dentro de un directorio? ¿Cómo determinarías el nombre de los archivos que deseas abrir? S@lu2

H0la Felipe: Si dejas tu condición así, debiera funcionar If (tipo = "COMBOBOX" Or tipo = "TEXTBOX") And Control.Visible Then 'Instrucciones' End If S@lu2

H0la Rubén: ¿No sería más eficiente pasar tu txt a una planilla excel y realizar la búsqueda con un BUSCARV? Lo digo, porque la forma que conozco de poder encontrar un dato en un TXT es con una búsqueda secuencial (quizá algún otro usuario conozca...

H0la Rodrigo: Si grabamos una macro, lo que obtenemos es esto Sub Macro11() ' ' Macro11 Macro ' ' Rows("10:10").Select Selection.Replace What:="Carne", Replacement:="Pollo", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False,...