Καλησπέρα
Μάρω πιθανόν η καταχώρηση των προμηθευτών και των τιμολογίων (και η διαδρομή μέσω Λαμίας) να γίνεται σπάνια.
Το πρόβλημα όμως που έβαλες (ταξινόμηση μιας λίστας ονομάτων και απαρίθμηση των διαφορετικών ονομάτων) είναι αρκετά συχνό και σημαντικό.
Το κόλλημα της μακροεντολής πιθανόν να οφείλεται στα μέτρα ασφάλειας του excel ή και στις διαφορετικές εκδόσεις.
Πιστεύω ότι το πρόβλημα θα λύνονταν, αν δημιουργούσες εσύ τη μακροεντολή επικολλώντας τον παρακάτω κώδικα.
Παράθεση:
Dim col As New Collection
Dim i As Integer
Dim intC As Integer
Range("B1:C1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
On Error Resume Next
i = 2: intC = 0
With Worksheets("Φύλλο1")
Do Until .Cells(i, 2) = "ΣΥΝΟΛΑ" Or .Cells(i, 2) = ""
col.Add .Cells(i, 2), .Cells(i, 2)
If col.Count > intC Then
.Cells(i, 1) = col.Count
Else
.Cells(i, 1) = ""
End If
intC = col.Count
i = i + 1
Loop
End With
Set col = Nothing
Range("A1").Select
|
Α. Δημιουργία μακροεντολής
1. Μενού Εργαλεία > Μακροεντολή > Μακροεντολές
2. Στο παράθυρο Μακροεντολές γράφουμε το όνομα της μακροεντολής (πχ mcrCount) και πατούμε το κουμπί Δημιουργία.
3. Στο παράθυρο που ανοίγει επικολλούμε τον κώδικα ανάμεσα στις γραμμές Sub και End Sub και στο μενού επιλέγουμε Debung > Compile VBAProject. Κλείνουμε το παράθυρο του κώδικα.
4. Ανοίγουμε πάλι το παράθυρο Μακροεντολές (βήμα 1) και πατούμε το κουμπί Επιλογές και στο παράθυρο που εμφανίζεται επιλέγουμε ένα συνδυασμό πλήκτρων για την εκτέλεση της μακροεντολής (πχ ctrl+m).
Β. Χρήση της Μακροεντολής
1. Καταχωρούμε τους προμηθευτές και τα τιμολόγια (χωρίς τη γραμμή αθροίσματος).
2. Εκτελούμε τη μακροεντολή πατώντας τον κατάλληλο συνδυασμό πλήκτρων (ctrl+m). Η μακροεντολή θα ταξινομήσει τη λίστα με βάση τη στήλη B και θα απαριθμήσει τους διαφορετικούς προμηθευτές στη στήλη A.
3. Προσθέτουμε (χειροκίνητα) το άθροισμα στο τέλος.
Αν βρεις χρόνο και διάθεση, για να το δοκιμάσεις, σου εύχομαι καλή επιτυχία.
Φιλικά/Γιώργος