macro en excel

[pikiquinteros]

Necesito una macro para imprimir y que las paginas vayan numeradas. Muchas gracias.

[nohemibaac]

Hola las macros son muy fáciles de hacer, solo abre tu libro, escoge Herramientas, Macros, Grabar nueva macro, luego has lo que deseas que haga la macro, aplica un formato, configura la pag, etc. cuando termines, dale clic en Herramientas, Macro, detener grabacion, o el boton de "stop" que aparece sobre la hoja.

Para ver el código creado solo ve a Herramientas, Macro, Macros, escoge la macro creada y da clic en modificar, y listo puedes usar ese código, ahorita hice unas, estoy segura que puedes mejorarlas.

Espero te sirva

bye

'Esta configura la página

Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 03/07/2006 por GSoft
'

'
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$40"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "&P de &N"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 41
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub

'y esta imprime

Sub Macro3()
'
' Macro3 Macro
' Macro grabada el 03/07/2006 por GSoft
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

[nohemibaac]

funcion para contar en excel

--------------------------------------------------------------------------------

nesecito una funcion para excel que me cuente dentro de un rango, por ejemplo tengo una columna donde cargo las edades de las personas y quiero saber cuantos personas son mayores de 18 y menores que 40 o bien mayores de 50 y menores de 80. Gracias

Hola, pego tu mensaje por si alguien mas te puede dar otra solución.

espero haber captado tu idea, puse en un libro edades en el rango de C2 a C12, tu cambia el codigo segun necesites:

Código:

Dim fila As Integer
Dim may18 As Integer
Dim may50 As Integer
Dim na As Integer
Dim valor As Integer
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 22/07/2006 por GSoft
'
    may18 = 0
    may50 = 0
    na = 0
    For fila = 2 To 12
        valor = Val(Range("C" & fila).Value)
        If valor > 18 And valor < 40 Then
            may18 = may18 + 1
        Else
                If valor > 50 And valor < 80 Then
                    may50 = may50 + 1
                Else
                    na = na + 1
                End If
           
        End If
        
    Next
    
    Range("E14").Select
    ActiveCell.FormulaR1C1 = Str(may18)
    Range("E15").Select
    ActiveCell.FormulaR1C1 = Str(may50)
    Range("E16").Select
    ActiveCell.FormulaR1C1 = Str(na)
'
End Sub

si quieres que te mande la hoja de excel, me dices.

Espero te sirva
bye

[aquim]

Hola nohemibaac tu ejemplo me sirbio para terminar una rutina de un macro en excel.


Gracias.
Saludos.

[nohemibaac]

bueno, me alegro que te haya servido.

saludos :)