[Excel07] Μεταφορά δεδομένων από ένα φύλο εργασίας σε άλλο

[Spirosgr]

Καλημέρα
Αν δεν το κάνεις χειροκίνητα (πράγμα απλό)...
Μεγαλώνεις την στήλη όσο θέλεις και αφού την επιλέξεις βάζεις Αναδίπλωση Κειμένου
Βάλε τον κώδικα:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Range("Table1[Περιγραφή]").ColumnWidth = 38.57
    Range("Table1[Περιγραφή]").WrapText = True
    Range("Table1[Περιγραφή]").EntireColumn.AutoFit
End Sub

στο φύλλο Συναλλαγές
και τον κώδικα

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Columns("F:F").ColumnWidth = 38.57
    Columns("F:F").WrapText = True
    Columns("F:F").EntireColumn.AutoFit
End Sub

στο φύλλο Καρτέλα
για να γίνει αυτόματα