vicente barcelos

Já criei, o nome é timbrado.

Muitíssimo obrigado, Edson Luiz Branco.

ficarei mais, ainda, se puderes fazer com que, o arquivo do word (novo), seja em um ja existente, tipo: timbrado.doc

Obrigado por está me ajudando. 

Pronto arquivo enviado. agradeço antecipadamente.

COMPOSIÇÃO GERAL VEÍCULOS macro.zip

Agora deu esse erro

criei um macro abaixo e está dando erro, Como posso consertar?

sendo que copiei de outro macro que funciona, modifiquei apenas "("proposmac")"

Sub proposmac()
Dim app     As Word.Application
Dim doc     As Word.document
Dim table   As Word.table
Dim excelapp As ListObject

Set app = New Word.Application
    app.Visible = True
    app.Activate
    

Set doc = app.documents.Add

Set excelapp = Motor.ListObjects("proposmac")
    excelapp.Range.Copy


With app.Selection
    .PasteExcelTable linkedToExcel:=True, WordFormatting:=False, RTF:=True

End With

Set table = doc.Tables(doc.Tables.Count)
    table.allowAutoFit = False
    table.AutoFitBehavior (wdAutoFitWindow)
Application.CutCopyMode = False

Set table = Nothing
Set excelapp = Nothing
Set app = Nothing
Set doc = Nothing

End Sub

conforme imagem:

Realmente deu certo na planilha que me enviastes, obrigado. Mas ao copiar pra outra não dá. rsrs.

Mas valeu mesmo. agradecido.

Bom dia;

Patropi, primeiramente obrigado, quase deu certo. Ficou só um detalhe; se o campo data pagto estiver em branco e com a data da despesa estiver anterior a data de hoje(), o resultado fica "à vencer", a qual deveria ficar "Vencido". agradeço a compreensão e ajuda.

1 hora atrás, Patropi disse:

Boa tarde @vicente barcelos

 

Podemos ajudar, mas para facilitar anexe a planilha, pois na imagem não dá para testar fórmulas e nem para entender bem o que você deseja.

 

[]s

Pronto amigo. Grato

MACRO ST.rar

Alguém que me ajude, por favor.

Estou querendo que a formula me diga se pago, vencido ou a vencer. conforme print da tela. até fiz uma mas não estou conseguindo fazer corretamente.