Converte em maiúscula

Navegando pela net achei (adaptei) um codigo que converte o texto de uma planilha para maiúsculo.


Sub maiusculo()
Application.ScreenUpdating = False
Dim Planilha As Worksheet
Dim Contador As Long
Dim Célula As Range
Set Planilha = ThisWorkbook.ActiveSheet
Contador = 0
If IsEmpty(Planilha.UsedRange.Cells) = True Then
MsgBox "Nao há nada para converter para maiúscula na planilha de nome: " _ & Planilha.Name, vbInformation, "Nada para converter..."
Exit Sub
End If
For Each Célula In Planilha.UsedRange.Cells
If Célula.Formula <> "" Then
Célula.Formula = UCase(Célula.Formula)
Contador = Contador + 1
End If
Next Célula
Application.ScreenUpdating = True
End Sub

LotoFácil

Segue um arquivo com algumas analises dos resultados da lotofácil da Caixa até o concurso 342.


http://www.4shared.com/file/56415730/c58767f9/LotoFacil_analises.html


[]'s

Procv a esquerda

Baseado em um post do forum www.juliobattisti.com.br/forum, fiz uma adaptação num código que encontrei lá para fazer uma especie de Procv, só que a esquerda do valor procurado.

vejam:

Function PROCVesq(ValorProcurado As String, IntervaloPesquisa As Range, Coluna As Integer) As String
Dim resultado, Valor
Dim lin, col As Integer
Application.Volatile
lin = 1
col = Coluna
For Each Valor In IntervaloPesquisa
If ValorProcurado = Valor Then
PROCVesq = IntervaloPesquisa(lin, col)
End If
If ValorProcurado = Valor Then
Exit For
End If
lin = lin + 1
Next Valor
End Function


Exemplo=PROCVesq(C23;$C$2:$C$7;0)



C21=Valor procurado

$C$2:$C$7=Intervalo da Pesquisa

0=Retorna o valor da coluna pesquisada, se quiser uma coluna a esquerda coloque 0 (zero), duas a esquerda coloque -1, e assim por diante.
.
Exemplo para download:
http://www.4shared.com/file/57328364/b62c6678/Exemplo_procvesq.html





[]'s

Dicas de sites

Segue sites que falam sobre Excel:

www.juliobattisti.com.br/
www.juliobattisti.com.br/forum
www.ricardohorta.net/
http://cpap.com.br/orlando/

[]'s