Καλησπέρα σε όλη την παρέα
Τάσο σε ευχαριστώ για την λύση που μου πρότεινες.
Κατάφερα
(μετα απο πολύ κόπο και ξενύχτι
)και προσάρμοσα τις λύσεις του Θανάση και του Τάσου στο δικό μου αρχείο , παρόλο που μου φάνηκαν δύσκολες για τις δικές μου γνώσεις στην
VBA.
Η λυση του Σπύρου είναι πιο κοντά στις γνώσεις μου στην
VBA και ήταν και επεξηγηματική
αλλα όπως ανέφερα σε προηγούμενο ποστ αντιμετώπισα πρόβλημα σε αυτό το σημείο του κώδικα
Range("Table").SpecialCells(xlCellTypeBlanks).Past eSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose
Αν θέλει ο Σπύρος ή κάποιος άλλος ας μου πει τι έκανα λάθος για να μην το ξανακάνω.
Και πάλι σας ευχαριστώ πολύ όλους
Φιλικά
Μανώλης