Cierre de Megaupload

Debido al cierre de MEGAUPLOAD y a que era el servidor donde se alojaba el material que yo subía en esta espacio, he detenido e iré.resubiendo todo poco a poco durante los dias siguientes.

Por su comprensión

Gracias!

Desarmando una bomba con MS Excel

Ya ven que casi todo se puede con Excel...casi todo!!!!

Combinaciones sin repeticion

Siempre hay utilidad para todo, este archivo genera combinaciones entre un numero de elementos


Las combinaciones sin repetición (o combinaciones, "a secas") de n elementos distintos tomados de am, son los distintos grupos de m elementos que se pueden formar con los n elementos que tenemos.

Los grupos no se diferencian entre sí por el orden de colocación de sus elementos, sino porque sus elementos integrantes no son los mismos.

Dicho lo anterior, adjunto una forma de obtener todas las combinaciones posibles de "n" elementos tomados de a "m".

El límite de combinaciones posibles para este modelo es el total de filas de la hoja.
Sin embargo, y de ser necesario, es posible modificar -ligeramente- la macro para "estirar" ese límite a la cantidad total de celdas de la hoja, menos 4 columnas.


Aqui la descarga
Combinaciones

Novedades de Excel 2010.

Yo sigo en espera de que nuestro fabuloso departamento de sistemas me instale la versión mas reciente de Office, principalmente por mi pasión, la hoja de calculo excel 2010.

por el momento les dejo algunas novedades de esta versión

1. Gráficos de datos en celdas.

Con la nueva característica de minigráficos de Excel 2010, se pueden crear pequeños gráficos en las mismas celdas.

2. Mejores reportes.

Excel 2010 cuenta con nuevas y fascinantes opciones de desglose de datos. Posee visualización mejorada de la vista de tabla dinámica para poder segmentar y filtrar datos de forma dinámica y mostrar sólo la información necesaria. Simplifica y mejor mucho el análisis de grandes conjuntos de datos en filtros y tablas dinámicas.

3. Sus hojas Excel desde la web o smartphone.

Con “Excel Web App” podrá ampliar su experiencia de Office a la Web. Permite publicar, ver y editar sus hojas de cálculo en la web!
Con “Microsoft Excel Mobile 2010” tiene la versión móvil de Excel que esté adaptada específicamente para su smartphone.

4. Conéctese, comparta y logre más resultados al trabajar en equipo.

La característica de co-creación de Excel Web App le permite editar simultáneamente una misma hoja de cálculo con otras personas desde diferentes ubicaciones. Puede ver quién está trabajando con la misma hoja de cálculo que usted al mismo tiempo. Todas las modificaciones se controlan y marcan inmediatamente para mantenerlo al tanto de cuándo y dónde se realiza cada cambio.

5. Un toque de sofisticación a sus presentaciones de datos.

El formato condicional en Excel 2010 ofrece más control sobre los iconos y estilos, las barras de datos mejoradas, así como resaltar aspectos específicos con tan solo unos clics.

6. Nuevos y más interactivos gráficos dinámicos.

Recopile rápidamente más información de sus gráficos dinámicos. Muestre diferentes vistas de datos directamente en un gráfico dinámico, independiente de las vistas de gráficos dinámicos, para analizar y capturar la vista más atractiva para sus números.

7. Realice tareas de forma más rápida y sencilla.

Excel 2010 simplifica el modo de acceso a las características. La nueva vista Microsoft Office Backstage™ reemplaza al menú Archivo tradicional para permitirle guardar, compartir, imprimir y publicar sus hojas de cálculo en tan solo unos pasos.

8. Modele y analice prácticamente cualquier dato de manera eficiente.

El complemento PowerPivot para Excel 2010 proporciona una tecnología innovadora como la integración simplificada de datos desde múltiples orígenes y la manipulación inmediata de grandes conjuntos de datos con hasta millones de filas. Los usuarios profesionales pueden publicar y compartir análisis prácticamente sin esfuerzo mediante Microsoft SharePoint Server 2010.

9. Capacidad aumentada para crear hojas de cálculo más grandes y complejas.

Buenas noticias para los usuarios avanzados y analistas: con la nueva versión de Excel 2010 de 64 bits, el análisis de grandes cantidades de información es más fácil que nunca. Analice grandes y complejos conjuntos de datos, más grandes que los archivos de 2 GB de las versiones anteriores de Excel.

10. Publique y comparta a través de los Servicios de Excel.

La integración de SharePoint Server 2010 y los Servicios de Excel permite a los usuarios avanzados compartir análisis y resultados con toda la organización mediante la publicación de hojas de cálculo en la Web. Cree un panel de inteligencia empresarial y comparta información confidencial de la empresa con sus colegas, clientes y socios de negocio en un entorno con seguridad mejorada.

Como crear un Formulario con Excel

Aprende a elaborar un formulario desde Vba editor en Excel

Agregale Licencia de Uso a tus archivos de Excel

Navegando en el basto mundo me encontré con esta opción que podría ser útil en algún momento si desean que ciertos archivos solo sean útiles por un tiempo determinado


aquí la Información:




1) LicenseGenerator:

Contiene un formulario que añade un Nº de Licencia y una Fecha de Validez a un archivo seleccionado previamente. El Nº de licencia consiste en 4 números de 4 cifras, de las cuales la cuarta cifra se obtiene a partir de un cálculo que se realiza con las otras 3. El número de tres cifras se obtiene aleatoriamente entre 101 y 999.

Cuarta cifra = [(Unidades *2) + (Decenas * 4) + (Centenas * 8)] Módulo 10

La fecha de validez consiste en una fecha a 30 días, 60, días, 90, días o indefinida.

Esta información se incrusta en la celda A1 de la hoja $$$Versión$$$, hoja que si no existe se crea y si existe se modifica.

La forma de incrustar la información es a través del objeto SmarTags. Este objeto nos permite añadir etiquetas inteligentes a un rango. Utilizamos este sistema porqué la información añadida es opaca al usuario si la etiqueta no es una de las etiquetas reconocidas por Excel.


2) LicenseComprobator:

Contiene la macro ComprobarLicencia, que debe añadirse al evento Open del libro al que hemos añadido la licencia.
License comprobator
License Generator

Macros mas comunes

En el siguiente archivo se encuentran las macros mas comunes entre los usuarios de la hoja de calculo..

1. Insertar Encabezados y Pies de Página
2. Abrir Calculadora Utilizando VBA
3. Numerar Factura Automáticamente
4. Insertar Fecha Desde un Calendario
 5. Poner Contraseña a Una Hoja de un Libro
 6. Poner Contraseña a un Libro
 7. Los Mejores Atajos en Excel
 8. Seleccionar Printer Desde VBA
 9. Reloj (Temporizador)
10. Maximizar y Minimizar Formulario
11. Listar Archivos de un Directorio
12. Macro Para Avisar Cuando una Factura Vence Dentro de X días
13. Prueba en Rango de Celdas por Fórmulas (o Fórmulas que Faltan)
14. Convertir Números a Letras por Medio de una Función
15. Enviar Hoja de un Libro por E-mail

15 Utilidades

Sistema de Facturación

Últimamente he andado muy atareado y no he tenido oportunidad de subir nada, espero ser un poquito mas constante.
 Hoy solo paso a dejarles una plantilla que sirve como sistema de facturación, espero que sea de utilidad

La contraseña es: prueba

Saludos a todos!!!

Facturación

86 Trucos para Excel

El siguiente archivo contiene 86 trucos bastante útiles de Excel
Basta con seleccionar una celda para visualizar cada uno de los trucos que contiene el archivo adjunto.
Saludos a todos!!!!


86 Trucos para Excel

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