Macropedia: Guarda tus macros

En este plantilla encontraras una manera muy fácil y útil de administrar las macros que has guardado para tu uso y consulta.
En este Archivo viene una breve expicacion de su uso. Esperamos que sea de utilidad.
Macropedia

Complemento XCONCATENAR Une textos de una manera facil y rapida

El siguiente complemento incorpora una funcion de concatenacion personalizada, la cual permite la concatenación de rangos e incluir un separador entre cada una de las celdas, espero que les sea de utilidad.Una vez instalado el complemento, prueben la funcion xconcatena. Por ejemplo, suponiendo que en el rango de A1:A10 tienen datos, en B1 prueben:
=xconcatena(A1:A10,”-”)

Complemento concatenar especial

Excelente Proyecto: Juego del Ahorcado en Excel

El siguiente archivo es un proyecto de un colega del foro "Ayuda Excel" del famoso juego del ahorcado.
Esta bastante bien diseñado y elaborado
cabe mencionar algunas particularidades del mismo, las hojas están protegidas pero sin contraseñas, tiene filas y columnas ocultas y debajo de las interfaces es decir debajo de los espacios de donde van las letras adivinadas tiene una serie de números que están ocultos con el mismo color de fondo 


Espero que les guste. Comenten
Juego del Ahorcado

Manual Excel Avanzado

Aquí les dejo otro manual excelente que he encontrado en la red, son 99 paginas de información muy útil para lograr un nivel avanzado en Excel 2007

Manual de Excel Avanzado

Manual de Funciones

Si quieres ser un verdadero experto en hojas Excel, debes comenzar por conocer sus funciones. Con las funciones podrás armar todo tipo de fórmulas, que son la materia prima básica de cualquier hoja de cálculo. Un conocimiento profundo de las funciones de Excel te permitirá resolver los problemas más habituales de hoja de cálculo. Este manual te explica de forma detallada y con ejemplos prácticos las 329 funciones que posee Excel.


Manual de Funciones

Compelemto Para Formatos

Agrega un complemento muy útil al dar formato en Excel, Une Textos, convierte a Mayúsculas y viceversa entre otras opciones.

Descarga Complemento

Listar Archivos de un Directorio

En este artículo veremos un método simple para crear una lista con los nombre de los archivos contenidos en una carpeta. 
De este modo con un solo paso podrás tener en un archivo texto los títulos de tus canciones, fotos, etc. 

Sub ListaDir()

Dim i As Long

Dim MiRuta As String

Dim MiNombre As String

i = 1

MiRuta = "TU DIRECTORIO"

MiNombre = Dir(MiRuta, 0)

Do While MiNombre <> ""

If MiNombre <> "." And MiNombre <> ".." Then

Range("A" & i) = MiNombre

i = i + 1

End If

MiNombre = Dir

Loop

End Sub

Solo cambia el Texto "TU DIRECTORIO"  por la ruta que tu desees.ejecuta el codigo y listoooo!!!!

Traductor de Macros

El proceso es una simple traducción del ingles al castellano a través de un diccionario a tal efecto en la hoja oculta "Diccionario". 
También se ha añadido que se pueda modificar el color y estilo de la fuente del texto convertido en el propio diccionario.

Descarga

http://www.megaupload.com/?d=XINC0LAR

Imprimir Folios

Con un conocimiento basico de Macros configura este codigo e imprime los folios que desees con un solo formato y evita crear cientos de ellos en una hoja de Excel para imprimirlos todos

Codigo

Sub imprimirfolios()

Do Until Range("Q2") = Range("B57").Value + 2

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("Q2").FormulaR1C1 = Range("Q2").Value + 2

Loop

MsgBox "El último folio impresión fue el número: " & Range("Q2").Value - 1 & "" & " y el siguiente que aún no se ha impreso es: " & Range("Q2").Value & "" & Chr(10) & "" & Chr(13) & "" & Chr(10) & "" & "" & " EL NUMERO DE FOLIO LIMITE A IMPRIMIR DEBE SER UN NUMERO MAYOR O IGUAL AL FOLIO ACTUAL"

End Sub

Convertir números en letra

Todos los que utilizamos la plantilla de calculo en algún momento nos hemos encontrado con la necesidad de convertir importes expresados como números $ 138.55 a su equivalente en letras (“ciento treinta y ocho pesos con cincuenta y cinco centavos.”). 

Este tipo de conversión es casi indispensable cuando utilizamos Excel en labores relacionadas con la elaboracion de facturas, presupuestos, liquidación de recibos de haberes, trabajos contables, emisión de comprobantes con importes o cualquier otra ligada al manejo de importes. Aunque no siempre sea obligatorio declarar los importes con ese formato, el hacerlo le da más “seriedad” a nuestros informes.

Esta funcion deberia contenerla excel desde que lo adquirimos. :(

Abre el editor de Visual Basic (Alt + F11) e ingresar el siguiente codigo

Codigo

Function PesosMN(tyCantidad As Currency) As String

Dim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte, lnPrimerDigito As Byte, lnSegundoDigito As Byte, lnTercerDigito As Byte, lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero

Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como Option Explicit

tyCantidad = Round(tyCantidad, 2)

lyCantidad = Int(tyCantidad)

lyCentavos = (tyCantidad - lyCantidad) * 100

laUnidades = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", "VEINTIUN", "VEINTIDOS", "VEINTITRES", "VEINTICUATRO", "VEINTICINCO", "VEINTISEIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE")

laDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA")

laCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS")

lnNumeroBloques = 1

Do

lnPrimerDigito = 0

lnSegundoDigito = 0

lnTercerDigito = 0

lcBloque = ""

lnBloqueCero = 0

For I = 1 To 3

lnDigito = lyCantidad Mod 10

If lnDigito <> 0 Then

Select Case I

Case 1

lcBloque = " " & laUnidades(lnDigito - 1)

lnPrimerDigito = lnDigito

Case 2

If lnDigito <= 2 Then

lcBloque = " " & laUnidades((lnDigito * 10) + lnPrimerDigito - 1)

Else

lcBloque = " " & laDecenas(lnDigito - 1) & IIf(lnPrimerDigito <> 0, " Y", Null) & lcBloque

End If

lnSegundoDigito = lnDigito

Case 3

lcBloque = " " & IIf(lnDigito = 1 And lnPrimerDigito = 0 And lnSegundoDigito = 0, "CIEN", laCentenas(lnDigito - 1)) & lcBloque

lnTercerDigito = lnDigito

End Select

Else

lnBloqueCero = lnBloqueCero + 1

End If

lyCantidad = Int(lyCantidad / 10)

If lyCantidad = 0 Then

Exit For

End If

Next I

Select Case lnNumeroBloques

Case 1

PesosMN = lcBloque

Case 2

PesosMN = lcBloque & IIf(lnBloqueCero = 3, Null, " MIL") & PesosMN

Case 3

PesosMN = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, " MILLON", " MILLONES") & PesosMN

End Select

lnNumeroBloques = lnNumeroBloques + 1

Loop Until lyCantidad = 0

PesosMN = "SON: (" & PesosMN & IIf(tyCantidad > 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 M.N.)"

End Function

La biblia de Excel

La Biblia de Excel 2007 está diseñada para avanzar con el usuario, proporcionándole toda la información de referencia que necesita para conseguir un excelente nivel de conocimiento de Excel y usar sus opciones más avanzadas. En este libro encontrará los aspectos básicos que necesita cualquier usuario de Excel y las características más avanzadas que interesarán a los usuarios expertos.

Indice de la Biblia Excel 2007

Introducción. Elementos de Excel

Empezando a trabajar con Excel

Operaciones con archivos

Fórmulas y Funciones

Manipulando celdas

Formato de celdas

Cambios de estructura

Insertar y eliminar elementos

Corrección de la ortografía

mpresión

Gráficos

Imágenes

Esquemas y vistas

Importar datos en Excel

Las tablas de datos

Tablas dinámicas

Características avanzadas

Macros

Descarga

http://www.megaupload.com/?d=FACJQDS5 

Copiar Solo celdas visibles

1. Seleccione las celdas que desea copiar.
2. En el grupo Modificar la ficha Inicio, haga clic en Buscar y seleccionar y, a continuación, en Ir a.

1. En el cuadro de diálogo Ir a, haga clic en Especial.
2. En Seleccionar, haga clic en Sólo celdas visibles y en Aceptar.
3. En la ficha Inicio, en el grupo Portapapeles, haga clic en Copiar.

Método abreviado de teclado  También puede presionar CTRL+C.

1. Seleccione la celda superior izquierda de la zona en la que desea pegar la selección.

Para mover o copiar una selección a una hoja de cálculo o libro diferente, haga clic en la ficha de otra hoja de cálculo o cambie a otro libro y seleccione la celda superior izquierda de la zona en la que desea pegar la selección.

1. En la ficha Inicio, en el grupo Portapapeles, haga clic en Pegar.

Método abreviado de teclado  También puede presionar CTRL+V.

NOTAS

• Excel pega los datos copiados en filas o columnas consecutivas. Si la zona en la que se pega la selección contiene filas o columnas ocultas, tal vez tenga que mostrar esa zona para ver todas las celdas copiadas.
• Si hace clic en la flecha situada bajo Pegar, podrá elegir entre varias opciones para pegar la selección.