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…

Hola, este es un aporte que había realizado hace algún tiempo en una consulta, se trata de un archivo en el cual a la hora de abrirlo solicitara una contraseña, si colocamos la contraseña de la demo (1234), solo podremos utilizar el archivo 3 veces (modificable) y si accedemos con la contraseña de administrador se podrá utilizar indefinidamente. El archivo crea una clave en el registro de windows para contar los usos del archivo. La clave del registro se encuentra aquí: HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Clave\Defaults Saludos a todos. Demo.rar

Hola: Con este aporte podreis hacer "fotos" a rangos que se actualizarán de forma automática cuando modifiqueis el rango original. Subo yo este aporte pero funciona gracias al gran neverdelimon1. Os dejo también una posible aplicación del tema: Un reloj, reubicable y redimensionable, y si le cambiais la fórmula podeis mostrar cualquier rango. Saludos Camara.xls Reloj IV.xls

Buenas noches Aqui os dejo un ejemplo que subi a post, como ejemplo de macro, lo interesante es que te hace un form mediante codigo vba, es un codigo que me pasaron Espero que os sirva Saludos formulario vba.zip

Buenos días, foreros. Buscando por la red he encontrado este Macro que me gustaría compartir con ustedes. Este Macro sirve para crear carpetas masivamente. Espero que os guste El autor es Javier Marco ó por lo menos a él se lo vi publicado. Crear Carpetas Masivamente.zip

Buenas tardes, noche o día Excel_entes Tiempo que no los visitaba. Tenía un problema con un proyecto que empecé hace como tres años (o mas). Quise retomarlo y sorpresa ¿!”*+!¡ perdí el código. Por internet encontré a un personaje que los abre cambiando … DPB por DBx … y lo logré. Corregí algunos errores y lo coloco en el foro para su evaluación. Tiene sus instrucciones. El mismo personaje dice que tiene la forma de que no se pueda abrir, pero lo dejo así. Ya se ve que se puede abrir. Saludos y que lo aprovechen y corrijan errores y lo hacen saber El código no es muy elegante ni profesional. Pedro Tovar Cronograma_PT v016ma.rar

Hola: Aquí os dejo una muestra mas de lo que se puede hacer en una tarde aburrida de domingo. Saludos PD: Alguien con "poderes" que lo convierta a .xls ya que nos hemos quedado sin Megaupload, y no se porqué, Skydrive no me funciona. Cronómetro.zip

Hola amado pueblo: Os dejo otro cronómetro mas, este tiene la típica cuenta atrás con musiquita y todo. Descomprimir el adjunto en el mismo directorio. Se buenos Cronómetro MA II.zip

Hola "pipol": En vísperas de la fiesta mas señalada después de Navidad, os dejo un cronómetro en milésimas. Paz, amor, salud y libertad. . Timer.xls

Hola a todos Aqui os dejo un excel que he elaborado para generar un cuadrante anual de turnos de trabajo. Al pulsar el boton de grafico se genera el gafico, segun el ciclo de trabajo que se tenga dispuesto en la fila ciclo de trabajo, El ciclo puede ser tan largo como se necesite ( hasta el final de las columnas). Segun se ponga asi se genera, color de fondo, color de fuente . En la fila de dia de inicio se pone el dia de incio del ciclo, segun se van añadiendo seran el numero de agentes para cubrir las necesidades El que mando es para el supuesto de cubrir los tunos de Mañana, Tarde y Noche con dos agentes por turno y descansado el sabado y domi…

Hola: Solo darle de nuevo las gracias a chinpun por el excelente trabajo que está haciendo con el foro "Feeds de otras webs" Foro: Daily Dose of Excel Tema: https://www.ayudaexcel.com/foro/f14/showing-hidden-sheet-workbooks-dialog-vba-13336/ Cuadro de dialogo para ver las hojas que están ocultas Sub VerHojasOcultas() Application.Dialogs(xlDialogWorkbookUnhide).Show End Sub[/CODE] Para probar, ocultar algunas hojas de un libro, y ejecutar la macro. Saludos a todos.

Hola: Observo que es muy corriente preguntar por combobox dependientes, es decir que en función del valor de uno de ellos se llena el siguiente y así sucesivamente. En el adjunto, va un ejemplo de tres combos que se llenan en orden jerárquico a partir de tres hojas distintas. Para principiantes. Salu2. Antoni. ComboBoxes.zip

Hola: Os dejo un pequeño formulario con los cuadros de dialogo de Excel. Tecleando en el textbox se habilita un sistema de búsqueda, tanto en ingles como en castellano. Con doble click encima de la lista se mostrará el correspondiente cuadro. Si se oye un beep es que el cuadro no es válido en el contexto que se utiliza, por ejemplo, todos los cuadros relacionados con gráficos, si no existe en la hoja un gráfico seleccionado, no funcionarán. Saludos. PD: Si alguien sabe porqué no funcionan los cuadros SaveCopyAs y ColorPalette, le agradeceré eternamente que me lo cuente. Cuadros de dialogo.xls

Para saber cuántos años tengo sin la función SIFECHA uso un formato de celda personalizada incluyendo varias líneas con Ctrl+J como se explica en: El resultado es razonablemente aproximado siendo que se aplica el formato a un número decimal de días. Años_PW1.zip

Buenas noches Dado que se aportó una posible solución a un tema Pendiente - Contar.si.conjunto para filas en vba, creí oportuno aportarlo de manera que lo puedan usar si lo ven apropiado. Saludos. Contar Años.zip

Buenas noches Les dejo un pequeño aporte el cual está en fase de diseño. Es un archivo de excel con conexion a una base de datos (Base de Usuarios) para que cuando ingresen, este les pida su usuario y clave, podrán abrir el menu pero este se abrirá con los permisos que anteriormente se le dé. Unicamente el Administrador podrá modificar y/o crear usuarios. Y será quien asigne los permisos para el uso del formulario. No obstante, este puede modificar tambien el Usuario del administrador y clave, cosas que entraria en conflicto con las variables empleadas para cotejar el administrador y las condiciones de uso del mismo. Las variables sin: Public Const Administrador As St…

Este código: Sub BorrarCeldasSinColor()Application.ScreenUpdating For Each cell In Range("J19:IM19,J22:IM22,J25:IM25,J28:IM28,J31:IM31,J37:IM37,J40:IM40,J43:IM43,J49:IM49,J55:IM55,J55:IM55,J61:IM61") If cell.Interior.ColorIndex = xlNone Then [COLOR=#ff0000][B]cell = ""[/B][/COLOR] Next End Sub [/CODE] es un 90% mas rápido que este: [CODE] Sub BorrarCeldasSinColor() Application.ScreenUpdating For Each cell In Range("J19:IM19,J22:IM22,J25:IM25,J28:IM28,J31:IM31,J37:IM37,J40:IM40,J43:IM43,J49:IM49,J55:IM55,J55:IM55,J61:IM61") If cell.Interior.ColorIndex = xlNone Then [B][COLOR=#ff0000]cell.ClearContents[/COLOR][/B] Next End Sub [/CODE] Se admite…

Tercer vídeo del nuevo curso sobre "Financial Modelling" con Excel 2013. Espero, sinceramente, os resulte útil e interesante.

Vídeo tutorial nº 17 de nuestro curso sobre Macros en Excel con VBA, donde aprendemos a programar macros, desde cero.

Aquí os dejo un vídeo tutorial sobre como trabajar con Variables Objeto en VBA.

Buenos días Envío una pequeña explicación de como usar los datos personalizados en VBA Un saludo José Carlos Datos personalizados.zip

Hola: Este es mi primer aporte de Access, se trata de un formulario que permite traspasar tablas de Access a Excel. Vaya por delante que no he trabajado nunca con Access como aplicación, he trabajado con Access desde otras aplicaciones y Visual Basic, o sea que ha salido lo que a salido. Esta "cosa" me ha costado todo el fin de semana. Os dejo 2 vesiones, una para Excel2003 y otra para Excel2007-2010. No hay garantías de funcionamiento de la versión 2003 ya que todo ha sido desarrollado sobre Access2007 y Excel2010. Suerte AccessTablesToExcel2003.rar AccessTablesToExcel.rar

Que tal amigos del foro, aquí les dejo la función de Numero a texto por si a alguien le interesa y esperando no este repetido este tema,.. saludos Option Explicit Dim cTexto As String 'Variable para las funciones Public Function Numletras(ByVal Numero As Double, ByVal Mayusculas As Integer) As String Dim NumTmp As String Dim c01 As Integer Dim c02 As Integer Dim pos As Integer Dim dig As Integer Dim cen As Integer Dim dec As Integer Dim uni As Integer Dim letra1 As String Dim letra2 As String Dim letra3 As String Dim Leyenda As String Dim Leyenda1 As String Dim TFNumero As String If Numero < 0 Then Numero = Abs(Numero) NumTmp = …

Hola: En el adjunto encontrareis una macro para que veais como se juega con la propiedad TintAndShade, que puede utilizarse con varios metodos, entre ellos, Interior y Font. Esta propiedad permite variar la intensidad del color aplicado a rellenos y textos. No estoy seguro que funcione en Excel2003. Degradar color.xls Saludos a todos. Antoni.

Los items seleccionados en checkbox del ListView se desactivan 9.- Desactivar datos transferidos (1).xlsm 9.- Desactivar datos transferidos (2).xlsm