viernes, 10 de febrero de 2012

VBA - EXCEL MACRO (BUSCAR FECHA)


  'VBA MACRO EXCEL  -  APPLICATION EXCEL MATH FUNCTION
  'BUSCAR FECHA VBA MATCH EXCEL - FIND DATE EXCEL RANGE
  'MEDIANTE ESTA MACRO RETORNARA LA FECHA BUSCADA EN UN RANGO DE  CELDAS SELECCIONADAS

  Sub MatchBuscarFecha()

       Dim TheDate As Date
       Dim Index As Variant

       TheDate = #1/1/2000#

  'Hallar el item entre la colección de celdas.....trabaja igual buscando entre los elementos de
 'un array el primer argumento es el elemento a buscar "dato" , el segundo argumento sera el array de datos()

'Aqui asigno como segundo argumento la seleccion de celdas
' pero podrias colocar cualquier rango --> Range("A1:A500") por ejemplo

       Index = Application.Match(CLng(TheDate), Selection, 0)
.
       'Mostrar el dato encontrado si existe

       If IsError(Index) Then
           MsgBox "No encontrado"
       Else
           MsgBox "item: " & Index & " celda : " & Selection.Cells(Index).Address
       End If

   End Sub

miércoles, 28 de diciembre de 2011

Macros varias 0.1 (cambiar signos con evaluate) ,cambiar entre mayusculas y minusculas Uppercase,LowerCase

'Con las siguientes macros podemos realizar simples tareas cotidianas Cambiar signos con evaluate ,convertir a mayusculas Uppercase ,convertir a minusculas LowerCase o solo convertir la priemra letra a mayuscula vbProperCase










 

Sub Convertir_UPCASE() 'VBA.UPPERCASE
'- Mediante la sgte excel vba macro code puede Convertir seleccion A mayusculas

Dim UChr As Long

With Selection

For UChr = 97 To 122

.Replace Chr(UChr), UCase(Chr(UChr))

Next UChr

End With

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Convertir1era_UPCASE() 'VBA.UPPERCASE
' - Mediante la sgte excel vba macro code puede Convertir 1 Letra A mayusculas

Dim UChr As Long
Dim b As String

b = StrConv(ActiveCell.Text, vbProperCase)
ActiveCell.Value = b

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''

Sub Convertir_Minusculas() 'VBA.LOWERCASE
'- Mediante la sgte excel vba macro code puede Convertir seleccion A minusculas


Dim lowChr As Long

With Selection

For lowChr = 97 To 122

.Replace UCase(Chr(lowChr)), Chr(lowChr)

Next lowChr

End With

End Sub


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub cambiar_signo1()
''Mediante la sgte excel vba macro code puede Cambiar signo a 1 celda

Selection.Value = Evaluate("-" & Str(Selection.Value))

End Sub

'''''''''''''''''''''''''''''''''''''''''''''

Sub cambiar_signo_2()
' 'Mediante la sgte excel vba macro puede Cambiar signo a varias celdas
Dim CurCell As Object

For Each CurCell In Selection.Cells



If VBA.IsNumeric(CurCell.Value) Or VBA.Right(CurCell.Value, 1) = "-" Or CurCell.Value! = "" Then



CurCell.Value = Evaluate("-" & VBA.Str(CurCell.Cells))



End If



Next



End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''

martes, 5 de julio de 2011

Ingresar Formulas

Ingresar Formulas


Escriba la fórmula en la celda C7.

Pulse ENTER para mostrar el resultado de la fórmula.

Cuando se hace clic en la celda C7, la fórmula aparece en la barra de fórmulas.

Operadores matemáticos
Sumar (+) = 7+ 5


Restar (-) = 7-05

Dividir (/) = 5/7

Multiplicar (*) = 7 * 5


Signos para crear fórmulas

Use un signo menos (-) para restar, un asterisco (*) para multiplicar y una barra diagonal (/) para dividir. Recuerde que debe comenzar siempre cada fórmula con un signo igual.


En Excel 2007 o Excel 2010 se puede utilizar el botón Autosuma situado en la pestaña Inicio de la cinta(ribbon) para agregar rápidamente la función de sus hojas.

Excel referencias 0.2

Excel referencias

El estilo de referencia que Excel usa es A1 (por defecto)

Cuando nos referimos a una celda en particular usamos su dirección de celda para indicar la celda.

Excel celdas (filas, columnas)

Excel 2007 o superior

16384 Excel columnas
1048576 Excel filas
17179869184 Excel células

Excel 2003 o anterior

256 columnas de Excel
16777216 Excel células
36536 Excel filas

Ejemplos:

Celdas:
A1048576 Excel columna A ,  Excel Fila 1048576
XFD1048576  Excel columna XFD , Excel Fila 1048576
A36536 Excel columna A , Excel Fila 36536

Funciones de Excel 0.1

Funciones de Excel 0.1

SUMA: Consigue la suma de un rango de celdas o argumentos.
PROMEDIO: Consigue el promedio en un rango de datos.
MAX: Consigue el numero mayor en el rango
MIN: Halla el número más pequeño de al serie de datos.

Formulas de Excel - Excel Error de 0.1

Formulas de Excel - Excel Error de 0.1

La columna no es lo suficientemente ancha para mostrar el contenido de la celda (# # # # #)

La referencia de celda no es válida. Las celdas pueden haber sido eliminadas (# REF!)

Es posible que haya escrito mal el nombre de la función o utilizo un nombre que Excel no reconoce (# ¿NOMBRE?)

Ejemplo
Excel no reconoce -> MySum

Insertar Funciones en Excel

Insertar funciones en Excel
Puede ser utilizado como una guía para cada argumento en una función.

Abrir el Asistente de Excel para funciones
- Ir a la ficha Formulas > insertar Función ó
- Presione Shift + F3

Búsqueda de una función de Excel
Escriba una breve descripción de lo que quiere hacer en este cuadro, a continuación, haga clic en Ir para ver una lista.

Funciones de Excel por Categorías
Haga click en Todas las categorías para ver una lista de todas las funciones de Excel.

Funciónes de Excel - Botón de ayuda
Si hace clic en este botón se le presentará una descripción de como emplear los argumentos de la función.