Sussan Palomino

Dante Amor respondió: H o l a: Te anexo la macro Sub Rellenar() 'Por.Dante Amor Set h1 = Sheets("Formato") Set h2 = Sheets("productos") u = h1.Range("D" & Rows.Count).End(xlUp).Row If u < 19 Then u = 19 For i = 19 To u Set b = h2.Columns("A").Find(h1.Cells(i, "D"),...

Dante Amor respondió: Prueba con lo siguiente. Sub GenerarPDF() nombre = Range("H3") & "-" & Range("D7").Value u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row Range("A1:H" & u).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, _...