Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA, pergunta se voce deseja ou não inserir uma planilha personalizada com o nome formatado com data e hora atual

Sub Adicionar_planilha_com_dia_hora()

Dim Resposta As VbMsgBoxResult
Dim sht As Worksheet
Resposta = MsgBox("Deseja inserir nova planilha com o nome da data e hora atual?" _
, vbQuestion + vbYesNoCancel)
If Resposta = vbYes Then
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-dd-mmm-yyyy_hhmmss")
ElseIf Resposta = vbNo Then
Worksheets.Add
Else
Exit Sub
End If
MsgBox "Planilha inserida com sucessso!! [ " & ActiveSheet.Name & "]", vbInformation, "http://www.saberexcel.com"
End Sub

Aplicativo Microsoft Excel VBA --(SaberExcel)--

Saberexcel - site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA (Visual Basic Application), esta usando o Evento Worksheet_BeforeRightClick, que acontece quando clica com o botão direito do Mouse.

Quando Clicar com o Botão direito do Mouse, vai colorir em verde os ítem que estão na coluna(B), ao clicar novamente retira a formatação nos dados digitados e afeta toda a região, isto é , Range(B3:B100), e assim vai alternando de cores, verde e retirando formatação.
Observe que inserí no procedimento uma linha de código [ Range(c, c.Offset(0, 2)).Interior.ColorIndex = xlNone ] que afetará também a fonte quando o usário clicar com botão direito do mouse também na Coluna(B) na célula onde se encontra algum dado.
Baixe o exemplo de planilha no final da página. Fiquem com Deus. Desejo-lhes todo bem.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Dim c
Cancel = True

For Each c In Range("B3:B100")

If c = Target Then
If c.Interior.ColorIndex = 4 Then
Range(c, c.Offset(0, 2)).Interior.ColorIndex = xlNone 'retira a formatação se houver.
Range(c, c.Offset(0, 2)).Font.ColorIndex = 45 'vai inserir esta cor quando clicar botao direito mouse em alguma celula colB

Else
Range(c, c.Offset(0, 2)).Interior.ColorIndex = 4 - Propriedade offset(desloc) >>> Offset(Linha, Coluna))
Range(c, c.Offset(0, 2)).Font.ColorIndex = 11
End If

End If

Next c
End Sub



Aprenda tudo sobre o Microsoft Excel VBA (Visual Basic Application), sozinho, com baixo custo,
praticando com os produtos didáticos SaberExcel

Escola Saberexcel VBA Estudos® - Treinamento com Macros, Fórmulas e Funções:

Esse macro relaciona todas as planilhas em todos os livros abertos mesmo a planilha estiver com os códigos vba protegidos, relacionará todas
as planilhas existente em um novo livro, isto é: todas folhas de planiha de todos os livros abertos.
e o total de linhas usadas na coluna(c) em todas as folhas de planilhas dos livros abertos.

' - - - - - - - - - - - - - - - -
Sub RELACIONAR_PLANILHAS_LIVROS_ABERTOS()
Dim LinCol As Long, lr As Long, lr2 As Long
Dim c As Range, vNovoLivro As Workbook, r As Range
Dim vDir As String, sh As Worksheet, wb As Workbook

Set vNovoLivro = Workbooks.Add

For Each wb In Application.Workbooks
If wb.Name <> vNovoLivro.Name Then

For Each sh In wb.Worksheets
LinCol = 0
lr = Saber1.Cells(Rows.Count, 3).End(xlUp).Row

'- - - - - -' verifica existencia palavra saberexcel '- - - - -'
Set c = sh.Cells.Find("Saberexcel", LookIn:=xlValues)
' Set c = Cells.Find("Saberexcel", LookIn:=xlValues) 'mostra somente da planiha ativa
If Not c Is Nothing Then
Set r = sh.Range("C" & c.Row + 1 & ":C" & lr)
LinCol = r.Rows.Count
pe = r.Address
End If

'var lr2 para o novo livro criado: Primeira planilha(1)
With vNovoLivro.Sheets(1)
lr2 = vNovoLivro.Sheets(1) _
.Cells(Rows.Count, 1).End(xlUp).Row

'ajustando o tamanho da coluna(A)
.Columns("A:C").AutoFit

'inserindo um cabeçalho na nova planiha
.Range("A1").Value = "NOME DO ARQUIVO"
.Range("B1").Value = "NOME DA FOLHA PLANILHA"
.Range("C1").Value = "LINHAS USADAS"

If .Range("A2") = "" Then
.Range("A2") = wb.Name
.Range("B2") = sh.Name
.Range("C2") = LinCol
Else
.Range("A" & lr2 + 1) = wb.Name
.Range("B" & lr2 + 1) = sh.Name
.Range("C" & lr2 + 1) = LinCol
End If

End With
Next
End If
Next

End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

Saberexcel - site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), verifica em determinado diretório se existe ou não determinado arquivo, neste caso estamos procurando pelo arquivo Doacoes_Saberexcel_Google.xls. Para fazer seu teste voce deverá inserir uma planilha em determinado local e trocar o endereço Path(Diretorio). isto é, indique o endereço da planilha no seu computador.

Sub Verfica_Planilha_Existente()

'Adicionar a referência Microsoft Scripting Runtime
'Declaração da variável
Dim vPlanilha As Scripting.FileSystemObject
Set vPlanilha = New Scripting.FileSystemObject

'Condição local e nome do arquivo para verificação
If vPlanilha.FileExists("C:\Doacoes_Saberexcel_Google.xls") Then
'Caso exista a planilha retorna msg
MsgBox "Planilha existe!!!", vbInformation, "Saberexcel - site das macros"
Else
'Caso não exista a planilha esta mensagem
MsgBox "Planilha não existente!", vbInformation, "Saberexcel - site das macros"
End If

End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

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)