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.

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.