Views

...

Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

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.
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.

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.

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.

eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine