Saltar para: Posts [1], Pesquisa [2]

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

14
Nov07

Ordenar todas as worksheets de um workbook

Macro que ordena todas as worksheets de um workbook


Sub jjOrdenarFolhas()
Dim t As Integer, i As Integer, c As Integer
Application.ScreenUpdating = False
t = Sheets.Count
If t = 1 Then Exit Sub
For i = 1 To t - 1
For c = i + 1 To t
If Sheets(c).Name < Sheets(i).Name Then _
Sheets(c).Move Before:=Sheets(i)
Next c
Next i
Application.ScreenUpdating = True
End Sub

Fonte: http://jjoao2k.no.sapo.pt
14
Nov07

Macro que recolhe o formato de uma célula

Macro que recolhe, permitindo copiar, o formato de uma célula


Sub jjGetFormat()
Dim Formato As String, x As String, Texto As String

Texto = "Para copiar o formato basta seleccionar " & _
" o texto e pressionar CTRL+C"

Formato = ActiveCell.NumberFormatLocal

x = InputBox(Texto, _
"Formato numérico de " & _
ActiveCell.Address, _
Formato)
End Sub


 


Fonte: http://jjoao2k.no.sapo.pt