Καλημέρα,
Αυτο το θέμα είναι συνέχεια του Διαίρεση εγγραφών που έκλεισε λόγω διακοπών! :)
Αυτό που πρέπει αν γίνει ακόμα είναι το εξής:
Στο φύλλο Τοίχοι οταν πατάμε το κουμπί της διαίρεσης θα πρέπει:
Για κάθε κελί Κουφώματα!B25:B74,
αν η τιμή του κελιού > Τοιχοι!G2 τότε πρόσθεσε στην τιμή του κελιού +1
αν η τιμή του κελιού = Τοιχοι!G2 τότε
αν το παράθυρο βρίσκεται στο 2ο κομμάτι του τοίχου (δηλ (απόσταση αριστερά) = στηλη Μ > μήκους 1ου τοίχου = Η2 τότε πρόσθεσε στην τιμή του κελιού +1
Επίσης θα πρεπει να αλλάζει τις αποστάσεις αριστερά ή δεξια αλλα αυτο ας το κανουμε αργότερα...
Έχω σκεφτεί ένα αλγόριθμο αλλα επειδη δεν ξέρω
VBA έχω κάποιο λάθος στην σύνταξη νομίζω... είναι ο εξής:
For i = 1 To 50
If Worksheets("Κουφώματα").Cells(i + 23, 2).Value > Worksheets("Τοιχοι").Cells(2, 7).Value Then
Worksheets("Κουφώματα").Cells(i + 23, 2).Value = Worksheets("Κουφώματα").Cells(i + 23, 2).Value + 1
End If
If Worksheets("Κουφώματα").Cells(i + 23, 2).Value = Worksheets("Τοιχοι").Cells(2, 7).Value Then
Worksheets("Κουφώματα").Cells(i + 23, 2).Value = "edw"
End If
Next i
Μπορεί κανείς να βοηθήσει και να μου πει τι λάθος έχει ο κώδικας?
Ευχαριστώ πολύ