[kapetang]

Καλησπέρα

Γιώργο, αντικατέστησε τις γραμμές κώδικα :

1. Τη γραμμή: Dim i As Integer με την: Dim i As Integer, J as Long

2. την: Range("A8:Q8").Select με τις γραμμές:

j = WorksheetFunction.Match("Πωλητής", Range("A:A")) + 1

Range(Cells(j, 1), Cells(j, 17)).Select.

Φιλικά/Γιώργος