nuevos ejemplos macros excel( codigo excel vba)

*aqui unos pequeños mini-macros.. para que continues con tus primeros pasos
en el vba.

'ojo logicamente para este ejemplo estas sobre un 'libro de prueba para que no pierdas algun avance sin guardar

sub cerrar_book1 'prueba1

ActiveWorkbook.Close 'con esto cierras tu libro.. sin guardar cambios

end sub


sub cerrar_book2 'prueba2

ActiveWorkbook.Close(True) ' cerrar guardando los cambios realizados

end sub



sub opens_wbk

'Abrir un libro de Excel ..desde una ruta conocida

Workbooks.Open FileName:="F:\examples\antiguos_modelos.xls"

end sub

sub obtener_name 'obtener el nombre del libro activo

MsgBox ActiveWorkbook.FullName

end sub

sub agreagar ' con esta macro agregas una nueva hoja en el libro activo

ActiveWorkbook.Sheets.Add

end sub

sub eliminar 'aqui eliminaremos la hoja "calculos1"

sheets("calculos1").delete

end sub

Sub select_primera 'activamos la primera hoja

ActiveWindow.ScrollWorkbookTabs Position:=xlFirst

'tambien podrias activarlo asi:

activeworkbook.sheets(1).activate

end sub

sub select_last 'activar la ultima hoja

ActiveWindow.ScrollWorkbookTabs Position:=xlLast

end sub

sub new_sheet ' con este ejemplo podras Insertar una hoja nueva (en la posición que quieras)

ActiveWorkbook.Sheets.Add Before:=Worksheets("pagos_abril")

end sub

sub mover_sht 'ejemplo de como mover una hoja

Worksheets("hojaxxx").Move After:=Worksheets("hojayyy")

end sub

sub eliminar las_shts ' y si te molesta eliminar las hojas una por una

'puede seleccionar varias y eliminarlas con la sgte macro.

ActiveWindow.SelectedSheets.Delete

end sub