Insertar
Insertar: Nombre, Columna, Fila, Comentario
Comentario: Insertar un comentario
Véalo
aquí
Sub comentarios()
Range("B2").Select 'previamente inserte un comentario en la celda
"B2"
ActiveCell.Offset(0, 1).Value = ActiveCell.Comment.Text
'copia el comentario de la celda activa en la celda que
'se encuentra en la columna siguiente.
End Sub
Nombre: insertar nombre a la hoja
Véalo
aquí
Sub nombre_hoja()
Dim MiNombre As String
MiNombre = InputBox("Ingrese nombre de hoja")
ActiveSheet.Name = MiNombre
End Sub
Nombre: insertar nombre a mas de una hoja
Véalo
aquí
Sub nombres_hojas()
Dim MiNombre As String
Dim hoja As Worksheet
For Each hoja In Worksheets
MiNombre = InputBox("Ingrese nombre de hoja")
hoja.Name = MiNombre
Next hoja
End Sub
Insertar una columna
Véalo
aquí
Sub insertando()
'inserta una columna por delante de la selección
Selection.EntireColumn.Insert
End Sub
Insertar un nombre a una celda
Véalo
aquí
Sub nominar()
Worksheets("BALANCE").Range("e3").Name = "AC"
Worksheets("BALANCE").Range("e19").Name = "PC"
Worksheets("BALANCE").Range("e4").Name = "AC_Disponibilides"
Worksheets("BALANCE").Range("e5").Name = "AC_Inversiones"
Worksheets("BALANCE").Range("e7").Name = "AC_Cred_Ventas"
Worksheets("METODO").Range("C14").Name = "r_1"
End Sub
|