INSERIR 8 PLANILHAS

INSERIR 8 PLANILHAS

'esta macro insere 8 planilhas na planilha nova aberta.

 

Sub Insere_propriedades_geral_Plan()

' Macro1 Macro

   With Application

        .UserName = "Excel Estudos"

        .StandardFont = "Arial"

        .StandardFontSize = "10"

        .DefaultFilePath = "C:\"

        .SheetsInNewWorkbook = 8

        .EnableSound = False

        .RollZoom = False

    End With

End Sub

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

 

Abrindo a Calculadora

Sub nome_da_macro()

'saberexcel@msn.com

Application.ActivateMicrosoftApp Index:=0

End Sub

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

Abrindo Arquivo de Codigo de VBA

Sub Abrir_Arquivo

Dim QualArquivo

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

Plan1.Range("F2") = QualArquivo

End Sub

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

Abrindo um arquivo atraves de uma Inputbox

Dim Nome As String

Sub Nome_da_Macro()

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

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