SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

Referência do Desenvolvedor do Excel

Worksheet.Método ShowDataForm

Visual Basic for Applications

Worksheets(1).ShowDataForm

Esses macros do Aplicativo Microsoft Excel VBA(Visual Basic Application) abre um formulário do objeto Application,
onde voce poderá manipular os dados cadastrais de determinado banco de dados em uma planilha ms excel.

'Esse exemplo de planilha foi retirado dos exemplos  1000 Planilhas inteligentes, para associados, há sempre uma publicação inteligente
para os assoaciados Saberexcel, associe-se ao nosso site e veja as vantagens sobre o acesso a material didático no treinamento com macros, fórmulas e Funções Microsost Excel VBA.
'-- - - - - - - - - - - - - - - - - - - - - - - - -
Sub sbx_abrir_formulario_lista()
Dim UltimaLinha As Integer
Dim vIntervalo As Integer
Dim vPlanilha As Worksheet
   
Set vPlanilha = Worksheets("Cadastro")
  UltimaLinha = NumElementos("Cadastro", "A", 2) + 1
 
  For vIntervalo = 2 To UltimaLinha + 1
      Range("A" & vIntervalo & ":A" & vIntervalo).Select
      Range("A" & vIntervalo).Select
    Next
End Sub
'-- - - - - - - - - - - - - - - - - - - - - - - - -
Public Function NumElementos(sPlanilha As String, sColuna As String, sLinha As Integer) As Integer
    Dim vIntervalo As Integer
    Dim vRegiao As String
    vIntervalo = sLinha
    vRegiao = sColuna & sLinha
   
    While Range(sPlanilha & "!" & vRegiao).Value <> ""
    vIntervalo = vIntervalo + 1
        vRegiao = sColuna & vIntervalo
    Wend
    NumElementos = vIntervalo - sLinha
    ActiveSheet.ShowDataForm
End Function
Sub sbx_autofiltro()
    Range("A6").Select
    Selection.AutoFilter
End Sub
'-- - - - - - - - - - - - - - - - - - - - - - - - -

'macro retirado da coleção de 15.000 macros microsoft excel vba, fórmulas e funções.
'aquisição no site: www.microsoftexcel.com.br - www.saberexcel.com
Sub sbx_imprimir()
    Range("A2").Select
    Selection.CurrentRegion.Select
    Selection.PrintOut Copies:=1, Collate:=True
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .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.4921259845)
        .FooterMargin = Application.InchesToPoints(0.4921259845)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 360
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With
End Sub