INSERIR 8 PLANILHAS AO MESMO TEMPO

 

INSERIR 8 PLANILHAS

'esta macro insere 8 planilhas na planilha nova aberta.

 

Sub Insere_propriedades_geral_Plan()

' Macro1 Macro

' Macro gravada em 3/8/2022

   With Application

        .UserName = "Nilson"

        .StandardFont = "Arial"

        .StandardFontSize = "10"

        .DefaultFilePath = "C:\"

        .SheetsInNewWorkbook = 8

        .EnableSound = False

        .RollZoom = False

    End With

End Sub

'.........................'

****************************************************************

Abrindo a Calculadora

Sub nome_da_macro()

Application.ActivateMicrosoftApp Index:=0

End Sub

'................'

*****************************************************

Abrindo Arquivo de Código de VBA

Sub Abrir_Arquivo

Dim QualArquivo

QualArquivo = Application.GetOpenFilename("Arquivos de texto (*.txt),*.txt", , "Escolha o arquivo para Desproteger") 'Caixa de Dialogo Abrir

Plan1.Range("F2") = QualArquivo

End Sub

'................'

**********************************************************

Abrindo um arquivo através de uma Inputbox

Dim Nome As String

Sub Nome_da_Macro()

'saberexcel@msn.com

Nome = InputBox("Digite o nome", "aviso")

' Verifica se campo está em branco

If Nome = "" Then

Exit Sub

End If

If Nome <> "" Then

    ChDir "C:\Meus documentos"

Workbooks.Open Filename:=Nome

End If

End Sub

'................'

 

 Abrindo uma planilha através de uma Macro

Sub nome_da_macro()

Workbooks.Open FileName:="c:\pasta1.xlsm"

End Sub

'................'