Acesso Livre - Registrados (REGISTRE-SE!)
Adicionado em: | 30/11/2010 |
Modificado em: | 30/11/2010 |
Tamanho: | Vazio |
Downloads: | 662 |
Esta macro do Aplicativo Microsoft Excel VBA, copia a planilha (Plan1) trinta vezes e adiciona as cópias ao livro. A macro abaixo é mais para o teste, pois deleta todas as folhas de planilha preservando a folha de planilha desejada.
Sub Copia_Planilha()
For x = 1 To 30
ActiveWorkbook.Sheets.Add
Sheets("Plan1").Cells.Copy
ActiveSheet.Paste
ActiveWorkbook.Sheets("Plan1").Select
Next x
End Sub
Sub Deleta_todas_menos_a_desejada()
Dim Plan As Worksheet
On Error Resume Next
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
For Each Plan In Worksheets
If (Plan.Name <> "Plan1") Then
Plan.Delete
End If
Next
Application.DisplayAlerts = True
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
Adicionado em: | 30/11/2010 |
Modificado em: | 30/11/2010 |
Tamanho: | Vazio |
Downloads: | 465 |
Essa macro do Aplicativo Microsoft Excel VBA, adiciona (5) cinco planilhas ao livre, referente aos dias da semana:
Segunda, Terça, Quarta, Quinta, Sexta, e a outra macro abaixo deleta todas as planilhas preservando uma, auxliando no teste do usuário desenvolvedor.
Option Explicit
Sub Adiciona_planilhas_nome_dia_da_semana()
Dim i As Integer
On Error Resume Next
If TypeName(Selection) <> "Range" Then
MsgBox "A folha deve estar ativa para adicionar nova folha !", vbInformation, "Saberexcel - Planilha Ativa"
Exit Sub
End If
Application.ScreenUpdating = False
For i = 1 To 5
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Application.WorksheetFunction.Proper(Format(DateSerial(1, 1, i), "ddd"))
Next i
End Sub
'Esta macro deleta todas as folhas de planilha e preserva a desejada, macro ajudará no teste da macro.
Sub Deleta_todas_menos_a_desejada()
Dim Plan As Worksheet
On Error Resume Next
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
For Each Plan In Worksheets
If (Plan.Name <> "Plan1") Then
Plan.Delete
End If
Next
Application.DisplayAlerts = True
End Sub
Aprenda Aplicativo Microsoft Excel VBA - SaberExcel
Adicionado em: | 30/11/2010 |
Modificado em: | 30/11/2010 |
Tamanho: | Vazio |
Downloads: | 738 |
Saberexcel - o Site das Macros
Essa macro do Aplicativo Microsoft Excel VBA, adiciona uma nova planilha no livro, e emite uma determinada mensagem, são sete exemplos de mensagem que o vb emite ao inserir uma nova folha de planilha no livro ativo.
Sub Adiciona_planilha()
Worksheets.Add
MsgBox "Macros finalizada.", vbInformation, "http://www.saberexcel.com"
End Sub
Adiciona uma planilha e mostra o nome da planilha adicionada
Exemplo simples de mensagem com o ícone de infomações (Information icon)
Sub Adiciona_planilha_2()
Worksheets.Add
MsgBox "Uma nova planilha foi adicionada ao livro." _
, vbInformation + vbOKOnly, "Macro finalizada!!"
End Sub
Adiciona uma planilha e mostra o nome da planilha adicionada
Sub Adiciona_planilha_3()
Dim sht As Worksheet
Set sht = Worksheets.Add
MsgBox "A nova planilha foi adicionada." & vbCrLf & _
"O o nome da nova planilha é : " & sht.Name _
, vbInformation + vbOKOnly, "Macro finalizada!"
End Sub
Adiciona uma nova planiha e inica que a planilha foi adicionada
vem com o vb yes/no, se não querer a macro sai da execução
Sub Adiciona_planilha_4()
Dim Response As VbMsgBoxResult
Response = MsgBox("Deseja inserir a nova planilha?", vbQuestion + vbYesNo)
If Response = vbNo Then Exit Sub
Worksheets.Add
MsgBox "A nova planilha foi adicionada.", vbInformation, "http://www.saberexcel.com"
End Sub
Esta macro usa a mensagem Yes/No, e pergunta se quer inserir uma planilha e se a resposta
foi não informa que não foi adicionada e se sim e informa que [sim ]
Sub Adiciona_planilha_5()
Dim Response As VbMsgBoxResult
Response = MsgBox("Deseja inserir a nova planilha?", vbQuestion + vbYesNo)
If Response = vbNo Then
MsgBox "Não foi adicionada a worksheet", vbInformation
Else
Worksheets.Add
MsgBox "Uma nova planilha foi inserida no workbook.", vbInformation, "http://www.saberexcel.com"
End If
End Sub
Esta macro usa a mensagem Yes/No/Cancel, e pergunta se quer inserir uma
nova planilha com formata de data e horario, tem a opção de sim, nao ou cancela
Sub Adiciona_planilha_6()
Dim Response As VbMsgBoxResult
Dim sht As Worksheet
Response = MsgBox("Deseja inserir uma nova planilha ao workbook com formato de dia e hora?" _
, vbQuestion + vbYesNoCancel)
If Response = vbYes Then
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-mmm-yyyy_hhnnss")
ElseIf Response = vbNo Then
Worksheets.Add
Else
Exit Sub
End If
MsgBox "Macro finalizada!.........", vbInformation, "http://www.saberexcel.com"
End Sub
Esta macro usa a instrução Case e analisa a msg com yes/no/cancel (caixa de mensagem)
Yes/No/Cancel message box.
Sub Adiciona_planilha_7()
Dim Response As VbMsgBoxResult
Dim sht As Worksheet
Response = MsgBox("Você deseja inserir a planilha com formato dia e hora?" _
, vbQuestion + vbYesNoCancel)
Select Case Response
Case vbYes
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-mmm-yyyy_hhmmss")
Case vbNo
Worksheets.Add
Case vbCancel
Exit Sub
End Select
MsgBox "Macro finalizada.....", vbInformation, "http://www.saberexcel.com"
End Sub
Esta macro deleta todas as planilhas exceto a escolhida para não ser deletada
Sub Deleta_Planilhas_Exceto_Desejada()
On Error Resume Next
For Each Nm In Worksheets
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
If Nm.Name <> "PRINCIPAL" Then
Nm.Delete
End If
Next
End Sub
Aprenda Aplicativo Microsoft Excel VBA ---( SaberExcel VBA )--
Aprenda sozinho, em casa, com excelente material de estudos (Saberexcel)
Adicionado em: | 30/11/2010 |
Modificado em: | 30/11/2010 |
Tamanho: | Vazio |
Downloads: | 699 |
Saberexcel - o site das macros
Esse exemplo de macro do Aplicativo Microsoft Excel VBA, faz uma copia de uma determinada folha de planilha e adiciona no Workbook, mas não copia os caracteres númericos.
Sub Copiar_Planilha()
Dim WsPlan As Worksheet
Dim i As Integer
If TypeName(Selection) <> "Range" Then
MsgBox "A folha deve estar ativa para adicionar nova folha!", vbCritical
Exit Sub
End If
Application.ScreenUpdating = False
i = Worksheets.Count
ActiveSheet.Copy After:=Sheets(Sheets.Count)
i = i + 1
Set WsPlan = Worksheets(i)
On Error Resume Next
'usando esta linha de códigos copiará somente as fórmulas para nova planilha
WsPlan.Cells.SpecialCells(xlCellTypeConstants, 1).ClearContents
End Sub
Aprenda Aplicativo Microsoft Excel VBA - SaberExcel
Adicionado em: | 30/11/2010 |
Modificado em: | 30/11/2010 |
Tamanho: | Vazio |
Downloads: | 1027 |
Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, insere uma nova folha de planilha na abertura do livro, observem que também vai inserir alguns dados
na nova planilha adicionada, veja na macro abaixo ou baixe o exemplo e teste.
Sub Adiciona_Planilha_insere_dados()
Sheets.add
ActiveSheet.Range("F10") = "Esta planilha foi adicionada na abertura do workbook."
Range("F20") = "http://www.saberexcel.com"
Range("F21") = "[email protected]"
Range("F22") = "Expedito Marcondes"
Range("F23") = "Excel VBA Estudos®"
End Sub
OUTRA ALTERNATIVA NA ABERTURA DO WKB OCULTA UMA PLANILHA CHAMADA "MODELO"
E insere Planilhas Modelo(2) Modelo(3)
'Private Sub Workbook_Open()
'Application.ScreenUpdating = False
'Sheets("Modelo").Visible = True
'Sheets("Modelo").Select
'Sheets("Modelo").Copy Before:=ActiveSheet
'Sheets("Modelo").Copy Before:=ActiveSheet
'Sheets("Modelo").Visible = False
'Application.ScreenUpdating = True
'End Sub
Aplicativo Microsoft Excel VBA --Saberexcel - o site das macros
Aprenda sozinho, em casa, com baixo custo financeiro e ótimo material para estudos
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,
Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA