ST_

Re: Cual fue tu primer post en AyudaExcel? a mi tambien me dio por 'recordar',ahora que ando nostalgico Solucionado - Insertar video en una hoja de Excel y que decir de mi 2º aporte que compartí con el amigo Ioyama: Solucionado - Convertir un string a long

ok tomo nota pues parece que Mauricio a encontrado la forma de ganar cerca de 25 segundo de los 26 que tardaba la macro que oferte y que de igual forma proviene de la 'experiencia' de El.

excelente ejemplo,creo que podria ser muy util el llevar un control de los archivos renombrados

Re: Puede que sea fácil pero estoy perdida! - Búsqueda & Jerarquización por parámetro creo que hace falta muchas mas explicaciones !!!! lo que yo entendi y mis comentarios: 1.-obtener los datos en una nueva tabla de aquellos casos que tengan un dato mayor al 90%,que dicho sea de paso supongo que se refiere a la hoja "Resumen seleccion",pues no lo especificas,ya que de este lado del charlo las cosas se ven muy diferentes por la falta de claridad 2.-dado que ningun caso cubre el requisito de los 90s el resultado seria una tabla vacia 3.-mencionas que se debe ordenar de acuerdoa parametr

y mejor quien le atine a la respuesta....ok intentando........ existen 2 formas de hacerlo 1º.-mediante la funcion "Name" con algo asi para un archivo: Sub Renombrar_con_Name() 'http://www.rondebruin.nl/folder.htm [B][COLOR="red"]Name[/COLOR][/B] ThisWorkbook.Path & "\ejemplo.txt" As _ ThisWorkbook.Path & "\prueba.txt" End Sub[/CODE] [u][b][color=sienna]2º.-con los metodos move y copy o copyfile y movefile del objeto filesystemobjecto o mediante la propiedad name del mismo:[/color][/b][/u] [CODE]Sub Renombrar_con_FSO_Name() 'http://www.forosdelweb.com/f69/renombrar-f

a mi me parece que la mejor respuesta es la ofertada por mauricio y acordandome de un manejo especial que hizo(ya me corregiras si no le atino) ejemplo para que no queden formulas: Sub Obtiene_datos() With Range("C1:C21") .Formula = "=A1*B1" .Value = .Value End With End Sub[/CODE] me preguntaba cuantas veces habremos menospreciado a la "instrucción With" ??? tal vez pensabamos que servia para poco pero ahora vemos el verdadero poder de 'ella' al combinarse con la propiedad 'value'...solo ven la rapidez del calculo,yo lo probe en 14112 filas y si que vuela (tal

Hola Josh.. aqui les dejo mi propuesta: partí la macro en 2 para mayor 'comprension/estudio' de la gente que se inicia en estos menesteres de las macros Sub Quita_Modo_Impresion() Application.ScreenUpdating = False Hoja2.Select Hoja2.Shapes.SelectAll: Selection.PrintObject = False Application.Wait (Now + TimeValue("0:00:01")) soloelegidas Hoja1.Select End Sub Sub soloelegidas() For i = 1 To Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row If Hoja1.Cells(i, 1) <> Empty Then Hoja2.Shapes("Oval " & i).Select Selection.P

siempre es bueno darle un vistazo a los aportes 'viejos' del foro,te podrias topar con sorpresas Generar un MsgBox avisando con anticipacion alerta en excel cada 15 dias Programar tarea

genial ese 'avatar'.....y el del 'chapulin colorado'(super heroe mexicano para quienes no sepan),.......alguien lo tiene

ya probaste usar un bucle combinado con el metodo find o findnext?? o algo mas simple como esto: Sub busca() For Each c In Range("A2:A10000") If c.Value = "dato" Then c.Offset(, 1) = "encontrado" End If Next c End Sub[/CODE]

1.-click derecho en la pestaña de la hoja1 2.-ir a codigo 3.-copia-pega: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Sheets(2).PrintOut End If End Sub[/CODE]

gracias por la dedicatoria y por la 'extravagancia del archivo'

a ver esta prueba !!!!!!! upssss,parece que me sumaré a lso "satisfechos" Ejemplo de menu.zip

okis...gracias lo probaré en cuanrto denga un poco de 'calma' y tiempo