Súper Pack de 23 Macros en Excel que te pueden salvar la vida.

Súper Pack de 23 Macros en Excel que te pueden salvar la vida.

   03 septiembre       Luis Reyes

---

Hola a todos, les comparto este súper pack de 23 macros, que quizás te puedan salvar en algún momento.

'1. Seleccionar Celda
Sub Seleccionar_una_Celda()
Range("A1").Select
End Sub

'2. introducir un valor en la celda activa
Sub Escribir_en_la_celda_activa()
Range("A1").Value = "El Blog de Luis Reyes"
End Sub

'3-Copiar
Sub copiar()
Selection.Copy
End Sub

'4-Pegar
Sub Pegar()
ActiveSheet.Paste
End Sub

'5-Cortar
Sub cortar()
Selection.Cut
End Sub

'6-Insertar Fila
Sub Insertar_Fila()
Selection.EntireRow.Insert
End Sub

'7-Eliminar Fila
Sub Eliminar_Fila()
Selection.EntireRow.Delete
End Sub

'8-Insertar Columna
Sub Insertar_Columna()
Selection.EntireColumn.Insert
End Sub

'9-Eliminar Columna
Sub Eliminar_columna()
Selection.EntireColumn.Delete
End Sub

'10. poner negritas
Sub Letra_Negrita()
Selection.Font.Bold = True
End Sub

'11. letra cursiva
Sub Letra_Cursiva()
Selection.Font.Italic = True
End Sub

'12. Letra Subrayada
Sub Letra_Subrayada()
Selection.Font.Underline = xlUnderlineStyleSingle
End Sub

'13-Centrar Texto
Sub Centrar_Texto()
Selection.HorizontalAlignment = xlCenter
End Sub

'14-Alinear a la izquierda
Sub Alinear_a_la_izquierda()
Selection.HorizontalAlignment = xlLeft
End Sub

'15-Alinear a la Derecha
Sub Alinear_a_la_Derecha()
Selection.HorizontalAlignment = xlRight
End Sub

'16-Tipo de Letra
Sub Tipo_de_Letra()
Selection.Font.Name = "Arial"
End Sub

'17-Tamaño de Letra
Sub Tamaño_de_Letra()
Selection.Font.Size = 12
End Sub


'18-Ordenar Ascendente
Sub Ordenar_Ascendente()
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

'19-Orden Descendente
Sub Orden_Descendente()
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

'20-Buscar
Sub Buscar()
Cells.Find(What:="Luis", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).Activate
End Sub

'21-Abrir un Libro
Sub Abrir_un_Libro()
Workbooks.Open Filename:="La ruta donde se encuentra tu archivo"
End Sub

'22-Grabar un Libro
Sub Guardar_un_Libro()
ActiveWorkbook.SaveAs Filename:="La ruta donde se va a guardar tu archivo", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub

'23-Encontrar la siguiente celda vacia
Sub Celda_Vacia()
Range("A1").Select

Do While ActiveCell <> Empty
    ActiveCell.Offset(1, 0).Select
Loop

End Sub

Descarga el archivo