Hello dear masters: I hope that each and every one of the participants of the forum are well in health, I proceed to my request: It turns out that I have an Excel document that I will use as a database so that some of the captured in different sheets (in the example I put two sheets ) Can be pasted into a Word template in a sort of Correspondence Combination, but vice versa and when positioning, in either of the two sheets, the row containing the information I require in the template and executing the macro, me I created a new document with the concatenation of the text "Memo" + data of the field ID [of the row where I am located] + the text "SLC" + another secondary field + termination (.docx) and (.pdf) Of course filling The data that I frame in the template in Word. I already have the macro, but something is missing to make it work. Initially in the tests if it worked (at least in saving the new document), but when going in the same it began to leave to the half. Sub Solic_LC() Dim WordApp As Object, Cell As Range Dim Minuta As Range, Recepcion_SLC As Range, ID_Programa_Int As Range, _ Programa_Pres As Range, Programa_Tipo_Apoyo As Range, Año As Range, Institucion As Range, _ NoConvenioConvocatoria As Range, MontoReintegroSolicitado As Range, MetodoPago As Range, _ Cve_interna As Range, Cve_externa As Range, NumeroLineaCaptura As Range, dato_extra As Range, Programa As Range With Sheets("Jovenes").Range("V4") Minuta = Cells(ActiveCell.Row, 3) Recepcion_SLC = Cells(ActiveCell.Row, 4) ID_Programa_Int = Cells(ActiveCell.Row, 5) Programa_Pres = Cells(ActiveCell.Row, 6) Programa_Tipo_Apoyo = Cells(ActiveCell.Row, 7) Año = Cells(ActiveCell.Row, 8) Institucion = Cells(ActiveCell.Row, 9) NoConvenioConvocatoria = Cells(ActiveCell.Row, 10)
This question generated 9 answers. To proceed to the answers, click here.
This thread is current as of August 3, 2017.
For more resources for Microsoft Excel:
This article includes the following tags:
- Microsoft Excel