VBA Excel - Loop por todas as worksheets

Ok, isso é o básico, mas é válido, especialmente para iniciantes.

  Sub SheetsWrap()

    Dim iSheet as Long

    Let Application.ScreenUpdating = False

    For iSheet = 1 To ActiveWorkbook.WorkSheets.Count

     Let WorkSheets(iSheet).cells(1,1) = "'" & WorkSheets(iSheet).name

    Next iSheet

    Let Application.ScreenUpdating = True

  End Sub

Tags: Excel, loop, wrap, worksheets, sheets, ws

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

 

bernardes@.com

VBA Excel - Utilize a Propriedade 'Saved' para determinar se o workbook foi alterado.

Podemos determinar se alguma alteração foi efetuada no workbook, checando a propriedade Saved do workbook. Esta propriedade retorna True ou False dependendo da ocorrência de mudanças no workbook.

Note:   Várias condições na sua worksheet, como a presença de funções de volatilidade, podem afetar a propriedade Saved. Funções de Volatilidade são aquelas que são recalculadas a cada momento que uma mudança é implementada na worksheet. Algumas dessas são RAND(), NOW(), TODAY(), e OFFSET().

O primeiro código mostra uma mensagem quando o workbook ativo foi alterada sem salvar:

Sub NoSaved()     

If ActiveWorkbook.Saved = False Then         

MsgBox "Este workbook contém alterações sem salvar."     

End If 

End Sub  

O próximo código fecha o workbook descartando qualquer alteração que tenha sido efetuada nele:

Sub FechaSemSalvar()     

Let ThisWorkbook.Saved = True    

Let ThisWorkbook.Close 

End Sub  

Neste código abaixo, segue outro código que fecha o workbook e também descarta quaiquer alterações efetuadas:

Sub FechaSemSalvar2()

ThisWorkbook.Close SaveChanges:=False 

End Sub 

Tags: Excel, saved, workbook

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

 

bernardes@.com

VBA Excel - Contando células selecionadas.

Pelos mais diversos motivos e situações, eventualmente precisamos saber quantas células estão selecionadas, eis como fazê-lo:

Sub CntSelected()

    Dim cell As Object

    Dim count As Integer

    Let count = 0

    For Each cell In Selection

        Let count = count + 1

    Next cell

    MsgBox count & " item(ns) selecionados..."

End Sub

Tags: Excel, count, cell,  contar, célula, selected, selecionada

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

 

bernardes@.com

VBA Excel - Fechando o MS Excel - Close MS Excel

O simples neste caso é perfeito. Atende, resolve e nos livra da dor de cabeça e perda de tempo desnecessária.

Dim xlApp As Object
    Set xlApp = GetObject(, "excel.application")
 
    xlApp.Quit

   set XlApp = nothing


' Fecha a aplicação MS Excel.
Application.DisplayAlerts = False
Activeworkbook.close ([VBYes])  ' Fecha o Workbook e salva as mudanças efetuadas. 
Application.DisplayAlerts = True 

Fonte: Experts-Exchange


Tags: Excel, close, quit

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

 

bernardes@.com

VBA Excel - Fechando a planilha - Close workbook MS Excel

VBA Excel - Fechando a planilha - Close workbook MS Excel

Tá, tudo bem, é simples eu sei, mas para quem não sabe é uma mão na roda.

ActiveWorkbook.Close False
' Fecha o Workbook ativo sem salvar qualquer alteração efetuada.

ActiveWorkbook.Close True
' Fecha o Workbook ativo e salva as mudanças efetuadas.

ActiveWorkbook.Close
' Fecha o Workbook ativo e deixa que o usuário no momento decida se deseja gravar ou não.

Fontes: ExcelTip,

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com