No se si se le puede llamar aporte, pero he visto ya muchas preguntas de como se puede parar el reloj de SO, ya sea para hacer pruebas o para hacer trampas en los juegos. Ejecutando la siguiente macro, siempre será las 13 horas 37 minutos y 59 segundos. Sub StopClock() Do While 1 Time = DateAdd("n", 0, "13:37:59") DoEvents Loop End Sub[/CODE] Saludos!

Muy buenas, Cansado de no poder scrolear con el raton por el codigo y estar limitado a las teclas, [(re/av pag), shift+teclas, deslizar barra, etc], me puse a buscar por internet y encontre la solucion, este programita: http://go2.wordpress.com/?id=725X1342&site=jhony251.wordpress.com&url=http%3A%2F%2Fwww.joebott.com%2FVB6ScrollwheelFix4.zip Sacado de la pagina: http://joebott.com/vb6scrollwheel.htm No tiene Virus, no requiere instalacion ni cerrar VB antes de abrir, unicamente ejecutar y scrollear por visualbasic. Espero que os sea tan util como lo ha sido para mi. Un saludo.

Hola a todos Para comenzar quiero compartir con ustedes, un truco sobre los filtros avanzados especificamente con el manejo de fechas, es decir podemos filtrar facilmente con fechas (ya sea autofiltro o filtros avanzados), pero el truco es que se filtra por el dia de esa fecha (sin columna auxiliar), por ejemplo sabemos que 12/01/2009 es un dia lunes, entonces ahi les va el truco! Espero sea de mucha utilidad Saludos TRUCO- Filtro avanzado para dias con fechas (ACTUALIZADO).zip

Como estamos a primeros de este año 2011 difícil, económicamente hablando, comparto en este foro un control de gastos personales con el que hace unos meses participé en un concurso de ideas en el blog en inglés de Chandoo y ahora lo acabo de traducir al español y lo subo a este foro. Como dijo Chandoo de mi propuesta, es: Un control de ingresos y gastos personal. Fácil introducir los ingresos y los gastos en hojas separadas. Un control mensual. Un control diario. Una comparación de los ingresos y gastos y de los ahorros conseguidos. Espero que pueda ayudar a controlar la economía familiar. Nota: Vale para cualquier año. MisCuentasCaseras.zip

Hola a todos! Suponiendo que tienen una lista enorme de datos que necesitas depurar de forma que solo se visualicen los únicos... pues a partir de ahí encontré un truco que les explico a continuación: Para las validaciones dinámica numéricas es muy importante la función Desref (Offset en ingles) ya que te ayuda a mostrar solo los registros que contienen números usando Contar, pero encontré un truco para validar las alfanuméricas, la función Contara cuenta las celdas no vacías incluyendo: [""] es ahí donde incluí el llamado TRUCO al que me refiero, seguro va servir... Y a quien nos pueda mostrar una forma diferente... espero nos la regale y si hay comentarios sobre la q…

Hola, No se si tal vez este repetido este aporte pero dejo pues un aporte sencillo que vale para cualquier formulario sin importar la cantidad de texbox o combobox que tengan, lo que hace es simplemente por medio de una UDF validar que todos los espacios del formulario estén llenos de lo contrario lanzara un mensaje con los espacios que faltan por llenar y los marcara en rojo. En un modulo normal colocamos esto: Function validar(form As Object) As String Dim txt As Control, x As String For Each txt In form.Controls If TypeName(txt) = "TextBox" Or TypeName(txt) = "ComboBox" Then _ If txt.Value = "" Then x = x & Chr(10) & txt.Name: txt.BackColor = vbRed Else…

Hola! Navegando por la red en busca de como ampliar mis conocimientos con VBA/Excel y los WebServices me tope con este articulo: SouthGeek Divorce court! Javascript & HTML5 to replace VBA in next Office Suite | SouthGeek En el cual se menciona que microsoft esta poniendo mucho enfasis en HTML 5 y JavaScript para el Office 15 al parecer el mundo de desarrollo avanza hacia estas tecnologias... cual es la opinion que tienen al respecto? Hace unos años recuerdo que discutia con un compañero de escuela, el cual me decia que si queria destacar en el mundo de la programacion tendria que aprender varios lenguajes de la programacion, yo le respondia que preferia es…

Hola: "Macro" al ataque, esta vez una de préstamos. Se explica por si solo. Si lo ve algún "banquero", que repase el cálculo de intereses. Que lo disfruteis. Besitos. "Macro". CálculoAmortización.zip

Hola hijos míos: El título lo dice todo. En el adjunto encontrareis un módulo que permite: Extraer archivos adjuntados en mensajes de correo electrónico. Se puede seleccionar, la carpeta\subcarpeta de Outlook que queramos. Se puede filtrar por archivo, remitente y destinatario. Los mensajes una vez procesados se mueven a la subcarpeta especificada en B5. El rango C:E admite el caracter comodín asterisco (*) Se pueden repetir valores en distintas filas. Y contiene un "planificador de trabajos" para ejecutar el proceso de forma periódica. Eso es todo amigos, mañana mas y mejor. ClockOutlook.xls ClockOutlook.xls

Hola: Poner esta macro en un libro nuevo y ejecutarla. Os pedirá un libro. La macro, genera una copia del mismo eliminando todas las macros, modulos y formularios. Al nombre de la copia, se le antepone "Sin macros_" + Fecha + Hora Sub EliminarMacrosLibro() ' ' Esta macro elimina todo el código VBA de la copia del libro seleccionado ' ------------------------------------------------------------------------ ' Application.ScreenUpdating = False ChDir ThisWorkbook.Path Archivo = Application.GetOpenFilename _ ("Excel (*.xlsm; *.xls ), *.xlsm;*.xls", , _ "Seleccione el archivo al que desea eliminar el código VBA.") '-- Application.EnableEvents = False Wo…

No se si sera de utilidad o no , pero me lo he encontrado en la biblioteca que tengo, que estoy liado con lo de saber el nombre de los equipos de una red y a aparecido esto. Repito que no es mio. Sub NroSerieDisco() Dim fs, d, s, t, drvpath drvpath = "C" Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath))) Select Case d.DriveType Case 0: t = "Desconocido" Case 1: t = "Separable" Case 2: t = "Fijo" Case 3: t = "Red" Case 4: t = "CD-ROM" Case 5: t = "Disco RAM " End Select s = "Unidad " & d.DriveLetter & ": - " & t s = s & vbCrLf & "NS: " & d.SerialNumber MsgBox…

Convertir, transcribir números en letras con y sin decimales en Excel Código original en Macro en Excel, se debe modificar para que exprese solo números Macro en Excel PesosMN En el código original la función es PesosMN, yo la cambie a NUMLETRAS. La formulación completa en el Excel quedaría así: =SI(MAYOR.O.IGUAL(A2;1999999999,99);"NO SE PUEDE EXPRESAR CIFRAS MAYORES A 1.999.999.999,99";SI(NUMLETRAS(A2)=" ";CONCATENAR("CETO CON ";SI(EXTRAE(TEXTO((A2-REDONDEAR.MENOS(A2;0))*100;"00");1;1)="0";CONCATENAR("CERO";NUMLETRAS(TEXTO((A2-REDONDEAR.MENOS(A2;0))*100;"00")));NUMLETRAS(TEXTO((A2-REDONDEAR.MENOS(A2;0))*100;"00"))));SI(NUMLETRAS(TEXTO((A2-REDONDEAR.MENOS(A2;0))*100;"00")…

Hola: A raíz de esta consulta en el foro de "Excel general" fila activa siempre cen el centro de la pantalla se me ocurrio esta macro por si a alguien le pueda interesar: ' Dim Fila, Columna, x, y Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Application.ScreenUpdating = False ' Control de cambio de celda activa '---------------------------------- If Len(Fila) > 0 Then x = Target.Row - Fila If x < 0 Then x = x * -1 y = Target.Column - Columna If y < 0 Then y = y * -1 If x > 1 Or y > 1 Then Fila = Target.Row Columna = Target.Column Exit Sub End If Else Fil…

Hola a to2,...to2: El motivo de la presente es para comunicarles que como estoy hasta el "forro" de que a pesar de estar ya en pleno siglo XXI, siguen apareciendo una y otra vez el tema dichoso de proteger la información a los usuarios, he decidido acometer la tarea de hacer un sistema de protección de la información de forma definitiva. De momento, se limita a un control de acceso por medio de usuario y contraseña. Posteriormente, también podrá limitarse el control acceso a rangos concretos dentro de la hoja. A partir de la adjudicación de perfiles, cada usuario solo tendrá acceso a las hojas que le indique ese perfil, eso nos evitará tener que adjudicar permisos u…

Hola: Pues el título lo dice todo. "Saudiños dende" Santiago de Compostela. Macro. CeldaQueParpadea.zip

En este vídeo se muestra la posibilidad de poder enviar e-mails, con VBA, a través de nuestra hoja de cálculo Excel. Lo hacemos desde cuentas creadas en Gmail o Hotmail pudiéndose hacer desde cualquier otra cuenta.

Hola: He encontrado en Daily Dose of Excel esta curiosidad que, yo particularmente, desconocía: Mensajes que solo están visibles cierto tiempo. Sub MensjeConTiempo() Tiempo = 3 'Segundos x = CreateObject("WScript.Shell").PopUp("Este mensaje solo durará " & _ Tiempo & " segundos", Tiempo, "Mensaje de duración determinada") End Sub [/CODE] Saludos. Antoni. PD: Por poco inglés que sepais, os recomiendo seguir los foros de "Feeds de otras Webs", hay autenticas maravillas.

Hola compañeros, este archivo es para calcular el IMC es decir, el Indice de Masa Corporal, hay muchas páginas en la web que lo hace, pero así lo tenemos más a mano y en nuestro programa favorito, para los excelmaniáticos. Espero que os gusten a tod@s, pero sinceramente, que les haga falta a menos gente, será buena señal para ellos. Un saludo a tod@s, Germán. PD: Va por ti, Luisv. IMC.zip

Hola a todos, A los que estan acostumbrados a Copiar y pegar, o Copiar y luego ir al menu "Edicion" y usar los botones disponibles: Copiar, pegar, pegado especial, etc... hay un truco aqui que consiste en presionar la tecla SHIFT (Mayuscula) antes de presionar el menu edicion, esto nos permitira copiar la imagen tal y como la vemos con 4 opciones diferentes dependiendo de lo que estemos copiando. Adjunto una imagen con las diferencias de los menus coloreadas en rojo: Con Shift+click accederemos a un menu donde podremos copiar la imagen con los 4 formatos disponibles: - Apariencia como en pantalla en formato imagen - Apariencia como en pantalla en formato mapa de …

Hola a todos. Por que este aporte? Al pegar texto HTML en una hoja excel, en lugar de aparecer el texto plano, excel interpreta el codigo y te pone el resultado como objetos HTML. Hay muchos truquillos para conseguir pegar el texto como tal, pero si necesitas repetir muchas veces la operacion llega a ser algo molesto. Buscando en la web no he encontrado ningun metodo que me satisfaga y he visto mucha gente preguntando por lo mismo. Lo mismo ocurre a la hora de copiar, excel interpreta que esta copiando HTML y pone entrecomillados en cada linea. De que va el aporte? Este aporte esta dedicado para aquellos que necesiten pegar texto HTML en una hoja excel sin que excel …

Subo un explorador de imágenes en miniatura para ver y guardar, en archivos Excel, nuestras fotos e imágenes más queridas, después de comprimirlas para que ocupen poco espacio. IMPORTANTE: En Excel 2003 se debe comentar la línea: CommandBars.ExecuteMso "PicturesCompress"[/CODE] NOTA: Comenzar pulsando en [b]Elegir Miniaturas[/b] ¡¡¡ ATENCIÓN: Pulsar Retorno en las ventanas para comprimir las imágenes en miniatura !!! [size=4][color=blue]Descargar la versión 3: [b]Miniaturas_PW3.zip[/b][/color] La última versión se puede descargar desde aquí: Miniaturas_PW4.xls[/size] Miniaturas_PW2.zip Miniaturas_PW3.zip

¿Alguien sabe lo que es esto? Es una curiosidad que lo explico dentro del archivo adjunto, al igual que dejo la prueba para su comprobación. Ciertamente es bastante curioso, y como no, tiene que venir dado por el estudio de las matemáticas. Que lo disfruten, un saludo muy afectuoso, Germán. Constante Kaprekar.zip

Les comparto este archivo, cuando enviamos la mercancía a nuestros clientes, les pegamos este pequeño formato en las cajas, para que así, la paquetería los ubique más rápido, además de ser un requisito de las paqueterías... El formato consta de >una hoja para la base de datos, en ella se guardan los datos del cliente >una hoja para el llenado manual de los datos del cliente (en caso de clientes únicos) >una hoja para leer (en caso de tener) un archivo TXT (separado por comas) con dos campos, Piezas y Código del Producto, para anexar esta hoja al frente de la caja. Es muy simple de usar, sólo se pone en la hoja principal la clave del cliente y los datos sale…

Una cosa que he encontrado común en todos los que participamos en este foro de AyudaExcel, es que en mayor o menor medida, nos gusta bastante la hoja de cálculo de Microsoft. Estoy seguro, que no existe momento en que te sientas frente a una computadora y no tenga la curiosidad de ver cuál es el nuevo post de un compañero para poder ayudarle o para poder tener una información, que talvez te llegas por primera vez a tus manos. Para mí todas son nuevas, ya que de ésto "solo se que no se nada". Por eso me puse a navegar un poco en el internet y me encontré con estas utilidades, lo cual espero le sean de ayuda a aquellos que como yo, apenas comenzamos a dar pininos en estos…

Hi bross: Pulsar sobre la ruleta para hacerla funcionar. Salu2. Ruleta.rar