
ST_
Members-
Content Count
1,159 -
Joined
-
Last visited
-
Days Won
2
ST_ last won the day on January 13 2010
ST_ had the most liked content!
About ST_

-
Rank
Advanced Member
- Birthday 11/18/1965
Recent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
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.
-
Macro para cambiar nombre a archivos que estan en una carpeta
ST_ replied to Master_X's topic in Temas resueltos
excelente ejemplo,creo que podria ser muy util el llevar un control de los archivos renombrados -
[CERRADO] Puede que sea fácil pero estoy perdida!
ST_ replied to pandreap's topic in Temas resueltos
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 -
Macro para cambiar nombre a archivos que estan en una carpeta
ST_ replied to Master_X's topic in Temas resueltos
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
-
[SOLUCIONADO] Escribir en celda y que se imprima una autoforma
ST_ replied to cdiazy's topic in Temas resueltos
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]
-
[SOLUCIONADO] Escribir en celda y que se imprima una autoforma
ST_ replied to cdiazy's topic in Temas resueltos
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'
-
Necesito de la colaboración de los foreros.
ST_ replied to Julibaga's topic in Cafeteria Ayuda Excel
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