Foros


Inicio » Excel

Página: 1

Mensaje Autor

Arriba
16/Sep/05 16:47
Códigos Más comunes

Códigos Más comunes:

Trasladarse a una Celda
Range("A1").Select

Escribir en una Celda
Activecell.FormulaR1C1="Jose Luis"

Letra Negrita
Selection.Font.Bold = True

Letra Cursiva
Selection.Font.Italic = True

Letra Subrayada
Selection.Font.Underline = xlUnderlineStyleSingle

Centrar Texto
With Selection
.HorizontalAlignment = xlCenter
End With

Alinear a la izquierda
With Selection
.HorizontalAlignment = xlLeft
End With

Alinear a la Derecha
With Selection
.HorizontalAlignment = xlRight
End With

Tipo de Letra(Fuente)
With Selection.Font
.Name = "AGaramond"
End With

Tamaño de Letra(Tamaño de Fuente)
With Selection.Font
.Size = 15
End With

Copiar
Selection.Copy

Pegar
ActiveSheet.Paste

Cortar
Selection.Cut

Ordenar Ascendente
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Orden Descendente
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

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

Insertar Fila
Selection.EntireRow.Insert

Eliminar Fila
Selection.EntireRow.Delete

Insertar Columna
Selection.EntireColumn.Insert

Eliminar Columna
Selection.EntireColumn.Delete

Abrir un Libro
Workbooks.Open Filename:="C:\Mis documentos\video safe 3.xls"

Grabar un Libro
ActiveWorkbook.SaveAs Filename:="C:\Mis documentos\jlp.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False

p.d.
Me los encontre por ahi...

Esperando, como siempre les sea de utilidad...

Saludos..

Jose Luis Padilla
 
La sonrisa cuesta menos que la electricidad y da más luz. Desde...Tijuana, B.C.
 
Perfil

jlp
Cabo

Mensajes: 48
Ingresó: Mayo 18, 2004
Ubicación:

Conectado

Agregar como amigo

Arriba
19/Sep/05 10:00
Re: Códigos Más comunes

Muchas gracias jlp encontre algunos codigos q necesitaba :)
 
"El alma es un vaso que se llena con eternidad"
 
Perfil

marhiogym
Sargento Primero

Mensajes: 99
Ingresó: Diciembre 07, 2004
Ubicación:

No Conectado

Agregar como amigo

Arriba
19/Sep/05 11:27

Muy interesante.....gracias por la aportación.

Saludos.
Silver.
 
Perfil

Silver
Sargento Primero

Mensajes: 128
Ingresó: Mayo 19, 2004
Ubicación:

No Conectado

Agregar como amigo

Arriba
19/Sep/05 11:28
Re: Códigos Más comunes

Alguien sabe cual es el código de la Macro para evitar que la información de una hoja en excel se pueda copiar a otra???

¡Saludos!
 
Vive de tal manera que cuando alguien hable mal de ti, nadie lo crea.
 
Perfil

Lukard
Teniente

Mensajes: 236
Ingresó: Noviembre 11, 2004
Ubicación:

No Conectado

Agregar como amigo

Arriba
19/Sep/05 19:16
Re: Códigos Más comunes

Para agregar una aportación que será muy util, sobre todo para quienes tengan archivos compartidos:
este código evita que el archivo sea guardado con otro nombre o quieran cambiarle las propiedades con la opción guardar como ó F12.
[code:1:db67faf0c3]Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
Cancel = True
MsgBox "Imposible guardar " & ActiveWorkbook.Name & " con un" & vbCrLf & "nombre distinto. El documento no se guardó.", Buttons:=vbCritical + vbOKOnly, Title:="¡ACCIÓN PROHIBIDA!"
Else
Cancel = False
End If
End Sub[/code:1:db67faf0c3]
Guardan esta macro dentro de EsteLibro ó ThisWorkbook, con el editor de Visual Basic
 
«Antes que cambien los reinos, los hombres deberán cambiar» ═╬═
 
Perfil

ByPaco
Teniente Coronel

Mensajes: 2077
Ingresó: Junio 05, 2004
Ubicación:

Conectado

Agregar como amigo


Página: 1