Excel

Fórmulas e Funções

Para identificar a última linha com informações preenchidas na coluna B, por exemplo, digite a seguinte fórumula:

=PROC(2;1--(B:B<>"");LIN(B:B))

* (asterisco) representa qualquer quantidade de caracteres

? (interrogação) representa um caractere apenas

~ (til) usando antes do * ou ? para representá-los

Exemplos:

AB* - Começa com AB

*9 - Termina com 9

*000 - Termina com 3 zeros (000)

?????? - Possui exatamente 6 caracteres

?????9 - Possui 6 caracteres e termina com 9

??3* - O terceiro caracatere é 3

*~? - Termina em ? (interrogação)

Sub Macro1()
UltimaLinha = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
End Sub

Sub Macro1()
ULTIMALINHA = Range("D1048576").End(xlUp).Row
End Sub

Sub Macro1()
Range("W2").Select
ActiveCell.FormulaR1C1 = "=LOOKUP(2,1/--(C[-16]<>""""),ROW(C[-16]))"
End Sub

Sub ExcelFalando()

Application.Speech.Speak ("Olá tudo bem")

End Sub

Sub ENVIAREMAIL()

Range(Range("B5").Value).Select 'Intervalo conteúdo do e-mail

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.Item.To = Range("B6").Value 'Para

.Item.CC = Range("B6").Value 'Cópia

.Item.bcc = Range("B6").Value 'Cópia oculta

.Item.Subject = Range("B7").Value 'Assunto

.Item.Send

End With

End Sub