TrucosVBA

Esta macro es una adaptación de la macro "How to convert a numeric value into English words in Excel" que Microsoft tiene colgada aquí https://support.microsoft.com/es-es/help/213360/how-to-convert-a-numeric-value-into-english-words-in-excel Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber)     Dim Euros, Cents, Temp     Dim DecimalPlace, Count     ReDim Place(9) As String     Place(2) = " Mil "     Place(3) = " Millones "     Place(4) = " Mil Millones "     Place(5) = " Billones "     ' String representation of amount.     MyNumber = Trim(Str(MyNumber))     ' Position of decimal place 0 if nUn.     DecimalPlace = InStr(MyNumber, ".")     ' Convert cents and set MyNumber to dollar amount.     If DecimalPlace > 0 Then         Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _    ...

Lo primero es dar permisos en el “centro de confianza” para poder acceder a tocar el codigo VBA con macros: http://support.microsoft.com/kb/282830/es El codigo que habria que poner para copiar un modulo seria el siguiente: 'definir una Ruta Ruta = "C:\Prueba\Modulo1.bas" ' exportar el módulo VBA "Modulo1" del archivo de excel "Origen.xls" a "C:\Prueba\Modulo1.bas" Workbooks("Origen.xls").VBProject.VBComponents("Modulo1").Export Ruta ' importar módulo VBA que se ha exportado en el libro "Destino.xls" Workbooks("Destino.xls").VBProject.VBComponents.Import Ruta ' suprimir el archivo plano Kill Ruta Hay que darse cuenta que los archivos excel de Origen y de Destino tienen que estar abiertos antes para que funcione. Así como que la carpeta de la ruta que se seleccione debe estar creada previamente. El módulo también se podría exportar en un txt cambiando la exte...

Este blog se ha creado para compartir trucos de VBA (sobretodo para excel) que tienen cierta dificultad, no pretende ser una guía de aprendizaje para principiantes, ya que guias hay muchas y muy buenas. Para empezar con VBA es imprescindible usar el grabador de macros de excel, para ello hay que poner la pestaña de programador: http://office.microsoft.com/es-es/excel-help/mostrar-la-pestana-programador-HA101819080.aspx