Associe esta macro ao seu botao : Sub SalvarComoPDF() Dim Filepdf, ePath As String Dim ULinha As Long With Worksheets("plan1") ...

Substitua no cod. o 44 p/ valor do ";" => 59

wenpra, Qual seria a ref. desta label? O ideal seria vc. compartilhar seu arquivo ou talvez um modelo c/ alguns dados .

Entaõ seria assim:... Sub Benvindo_Usuário() currenttime = Hour(Now()) If currenttime < 12 Then g01 = "Bom dia" Else If currenttime <...

O que voce chama de "TextUserName.text" seria um TextBox ? se for isso, então insira o codigo no evento Initialize como abaixo: Private Su...

Eduardo, Como voce não postou nenhum modelo, fiz um exemplo, veja (anexo) se entendi o que voce quer. ExemploPjt.rar

tente isso: Sub ENTREGAS_Botão2_Clique() For i = 3 To 200 If Range("M" & i) = "" Then If ("L&qu...

E tem mais, com esse codigo, (com pequenas alterações), e dependendo da localização fisica dos computadores, voce pode colocar sua Pasta de Trabalho2,...

Sim o codigo ira funcionar para todos relatorios, desde que voce altere em cada um o local do banco de dados (Pasta de Trabalho2) na respectiva linha ...

Veja se é isso que está querendo: Sub ImportarDadosdeOutraPlanilhaFechadaViaAdoComWhile() Dim strDB As String Dim strSQL As String Dim ...

Segue minha sugestao. Hab. a ref. "Microsoft Activex Data Objects Library" 'habilitar referencia p/ Microsoft Activex Data Objects Library...

caje, Se estiver usando o acrobat reader isso deve funcionar: Option Explicit Private Const WM_CLOSE = &H10 Private Const INFINITE = &HFFF...

Cole o codigo na aba: Esta_Pasta_de_trabalho : Private Sub Workbook_Open() If Format(Date, "dd") = "02" Then MsgBox "Srs...

Desculpe esqueci da outra condição. Acho que seria assim : =SEERRO(SE(B1>6;EXT.TEXTO(A1;B1-6;1);(EXT.TEXTO(A1;B1;1)));"Não Encontr...

Juca208 boa noite, Veja se é isso: =SEERRO(SE(B6>6;EXT.TEXTO(A6;2;1);(EXT.TEXTO(A6;B6;1)));"Não Encontrado")