Single VBA Excel - Sort All Sheets in a Workbook (Ordena worksheets da planilha)

 Podemos ordenar todas as planilhas numa seqüência alfabética,enquanto os ícones por worksheet não vem.

Sub SrtShs()

Dim iSheet As Long, iBefore As Long 

  For iSheet = 1 To ActiveWorkbook.Sheets.Count     Let Sheets(iSheet).Visible = True 

    For iBefore = 1 To iSheet - 1       If UCase(Sheets(iBefore).Name) > UCase(Sheets(iSheet).Name) Then         ActiveWorkbook.Sheets(iSheet).Move Before:=ActiveWorkbook.Sheets(iBefore)         Exit For       End If     Next iBefore   Next iSheet End Sub

André Luiz Bernardes
A&A® - Work smart, not hard.

bernardess@gmail.com

| Blog Office VBA   |  Blog Excel | Blog Access    |

Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-o. Agradecemos sua cooperação.

Single VBA Excel - Loop por todas as worksheets

Ok, isso é o básico, mas é válido, especialmente para quem está iniciando...

  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

André Luiz Bernardes
A&A® - Work smart, not hard.

bernardess@gmail.com

| Blog Office VBA   |  Blog Excel | Blog Access    |

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 

André Luiz Bernardes
A&A® - Work smart, not hard.

bernardess@gmail.com

| Blog Office VBA   |  Blog Excel | Blog Access    |

Single 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

André Luiz Bernardes
A&A® - Work smart, not hard.

bernardess@gmail.com

| Blog Office VBA   |  Blog Excel | Blog Access    |