[VBA] Διαίρεση εγγραφής

[dalavouras]

Καλημέρα,

η αλήθεια είναι οτι δεν ειπα πουθενα οτι ενας τοιχος μπορει να έχει πάνω απο ένα παράθυρα αλλά:

1) Αν μπορούσε να έχει μόνο ένα δεν υπήρχε λόγος να τα έχω σε άλλο πίνακα.
2) Στον πινακα κουφώματα δεν μας εμποδίζει κανείς να έχουμε σε 2 παράθυρα ίδιο τοίχο
3) και τέλος είναι και λογικό ένας τοίχος να μπορεί να έχει πολλά παράθυρα! :)

Τελός πάντων ακόμα και έτσι δεν λύνεται το προβλημα σε ποιον τοίχο θα πάει το κάθε παράθυρο που ανήκει στον μεγάλο τοίχο που διαιρείται...
Εγω σκέφτηκα μια λύση αλλά επειδή δεν ξέρω VBA δεν μπορω να την γράψω σωστά...
θα είναι ένα LOOP το οποίο θα εξετάζει όλες τις εγγραφές στα κουφώματα:

for i = 1 to 50
if worksheets("Κουφώματα").Cells(i+23, 2) > worksheets("Τοίχοι").Cells(2, 7) then
worksheets("Κουφώματα").Cells(i+23, 2)=worksheets("Κουφώματα").Cells(i+23, 2)+1
if worksheets("Κουφώματα").Cells(i+23, 2) = worksheets("Τοίχοι").Cells(2, 7) then
if απόσταση απο αριστερά >μηκους διαίρεσης του τοίχου ή απόσταση απο δεξια<μηκους του 2ου τοίχου then
worksheets("Κουφώματα").Cells(i+23, 2)=worksheets("Κουφώματα").Cells(i+23, 2)+1


κάπως έτσι νομίζω μπορεί να λυθεί... απλά αν μπορεί να μεβοηθήσεις να γράψω τον κώδικα που περιγράφω.

Ευχαριστώ