http://www.makepovertyhistory.org

sexta-feira, maio 19, 2006

Xls Macro (#kindy)

Tendo em consideração as exigências de um cliente que raramente sabe o que quer, muito jeitinho me deu esta Macro durante toda esta semana!

Sub KindergartenFont()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim x As String, ws As Object, cell As Range
x = MsgBox("Use CANCEL to abort changing all constant " _
& "cells to uppercase", vbOKCancel)
If x = vbCancel Then Exit Sub
For Each ws In ActiveWorkbook.Sheets
On Error Resume Next 'In case no cells in selection
ws.Activate
For Each cell In Cells.SpecialCells(xlConstants, xlTextValues)
cell.Formula = UCase(cell.Formula)
Next
Next ws
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


Recomendada a quem trabalha para uma associação portuguesa para a defesa do consumidor (não digo qual é...).

- Oh Srs!!!! Não sabem ser menos exigentes? Peloamordasanta.

4 Comments:

Blogger sofia. said...

Se te percebesse!...

11:18 da tarde, maio 19, 2006  
Blogger Crmk said...

Coloca todas as letras de um ficheiro de Excel em maiúsculas.

Exigências...

3:07 da tarde, maio 22, 2006  
Anonymous (="o"=) said...

É a associação portuguesa de defesa dos consumidores ou a empresa pela qual se faz representar?
Cheira-me a LF...

1:52 da manhã, maio 25, 2006  
Blogger Crmk said...

Hummmm... scratch, scratch

Não digo mais nada que me comprometa em tribunal!

Só falo na presença do meu advogado...

11:49 da manhã, maio 25, 2006  

Enviar um comentário

<< Home