Originally Posted by rollis13 Since your "Results" sheet is Sheet16 apply these changes to your code. The added row is needed because you have a merged-cell in B6-B7. Here: '... wbTemp.Close SaveChanges:=False lNextRow = Sheet16.Range("B" & Rows.Count).End(xlUp).Row + 1 '<- changed If lNextRow = 7 Then lNextRow = lNextRow + 1 '<- added Range("B" & lNextRow) = stSupplierName '... Thanks, but it didnt work out, nothing was reflected in the file.
'... wbTemp.Close SaveChanges:=False lNextRow = Sheet16.Range("B" & Rows.Count).End(xlUp).Row + 1 '<- changed If lNextRow = 7 Then lNextRow = lNextRow + 1 '<- added Range("B" & lNextRow) = stSupplierName '...
Forum Rules
Originally Posted by rollis13
Posting Permissions
Reply With Quote