ATAJOS EN EXCEL VBA

Ir abajo

ATAJOS EN EXCEL VBA

Mensaje  federico ramirez marron el Mar Abr 29, 2008 10:50 pm

aqui dejo este aporte para realizar atajos muy comunes.

COPIAR RANGO

ub copiarrango1()
Range("A1:A5").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
End Sub

SIMPLIFICANDO

Sub copiarrango2()
Range("A1:A5").Copy Range("B1")
End Sub

CORTAR RANGO

Sub cortarrango2()
Range("A1:A5").Cut Range("B1")
End Sub

Y OTROS MAS.

Sub copiarrangovariable()
'Range("A1").CurrentRegion.Copy Sheets("Hoja1").Range("B1")
Range("A1").CurrentRegion.Copy Range("B1")
End Sub

Sub seleccionar_rangovariable()
Range("A1").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub

Sub seleccionar_columna()
Range("A1").Select
ActiveCell.EntireColumn.Select
End Sub

Sub procesar_celdas()
Range("A1").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Dim Cell As Range
For Each Cell In Selection
Cell.Value = Cell.Value * -1
Next
End Sub

Sub entradadirecta()
Range("D1").Value = InputBox("ENTRE UN VALOR", "ENTRADA DE VALOR", 1)
End Sub

Sub decirtipo()
Range("A1").Select
MsgBox (TypeName(Selection))
End Sub

Sub decirmultiseleccion()
Range("A1").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
MsgBox (Selection.Count & " celdas seleccionadas")
End Sub

Sub dondeestaellibro()
MsgBox (ThisWorkbook.Path)
End Sub


ESPERO LES SEA DE UTILIDAD!!!!

SALUDOS
avatar
federico ramirez marron
Admin

Cantidad de envíos : 25
Edad : 44
Fecha de inscripción : 14/04/2008

Ver perfil de usuario http://excel-fede-guru.mejorforo.net

Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.