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

[Spirosgr]

Προσπάθησα να δώσω λύση με βάση το παράδειγμα σου και τα "σχόλια" στο βιβλίο The Wall
Υπάρχει κάτι άλλο που πρέπει να προσεχθεί ?
Λέει κάπου εκεί για πολλαπλά παράθυρα σε τοίχο και δεν το πρόσεξα ?
Η μέθοδος λειτουργεί πολύ καλά με τις αλλαγές τοίχων...
Σου έχει φέρει όλους τους τοίχους "περασμένους" στα κουφώματα και με το V επιλέγεις που θέλεις να γίνει πχ άνοιγμα

[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


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

Ευχαριστώ

[Spirosgr]

Μπάμπη σαφώς και αυτά που λες στο 1 2 3 είναι σωστά...!
Ακόμα δεν έχει ψηφιστεί νόμος που να απαγορεύει 2 παράθυρα σε έναν τοίχο :)
Το θέμα να φτιάξουμε έναν κώδικα μπορεί να είναι από απλό έως σύνθετο αλλά...
για να γίνει αυτό πρέπει να κατανοήσω (όπως σου είπα και στο ξεκίνημα)
την δουλειά σου
Στο βιβλίο που έχει τις διευκρινήσεις σου (Wall) έτσι όπως είναι στημένο το φύλλο κουφώματα μου δίνει την εξής εντύπωση.
<<Αφού τελειώσουμε με τους τοίχους, πάμε στα κουφώματα επιλέγουμε ποιοι τοίχοι θα έχουν ανοίγματα από όλους τους τοίχους και τους "περνάμε" εκεί>>
Εκεί είδα ότι έχεις επιλέξει από τους τοίχους τους 2 3 5 8 9 για παράδειγμα και σε αυτούς κάνεις υπολογισμούς τους οποίους υπολογισμούς δεν γνωρίζω καν σε τι αναφέρονται τα αποτελέσματά τους
αυτό το ξέρεις μόνο εσύ...
Εδώ μπαίνει η μέθοδος που σου είπα πιο πάνω όπου επιλέξεις κατ' αρχήν ποιοι τοίχοι θα έχουν άνοιγμα
...το πόσα έρχεται μετά
Πιστεύω να καταλαβαίνεις τι ακριβώς εννοώ και να με βοηθήσεις για να σε βοηθήσω

[dalavouras]

Καλημέρα,

Καταρχάς σε ευχαριστώ για την βοήθεια σου! Την εκτιμώ.
Αν κατάλαβα σωστά την μέθοδό σου δεν μπορούμε να έχουμε 2 παράθυρα σε ένα τοίχο...
Θα ήθελα να μου πεις αν ξέρεις γιατι δεν λειτουργεί το παρακάτω...

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

όπως το σκέφτομαι θα εξετάζει αρχικά σε ποιό τοιχο ανήκει το κάθε κούφωμα και αν
ανήκει σε τοίχο μετα τον τοίχο που διαιρέσαμε θα δίνει ένα νούμερο μεγαλύτερο, ενώ αν είναι το ίδιο θα δίνει τιμή εδώ...

Τι λάθος κάνω???

[Spirosgr]

Καλησπέρα
Ο κώδικας δεν δουλεύει με την μορφή αυτή για πολλούς και διάφορους λόγους
Θα πρέπει να γίνει ως εξής (και το γράφω περιφραστικά για να μου βάλεις στα κενά ... τις περιοχές και τα κελιά που πρέπει)
Κάπως έτσι
[Για κάθε κελί της περιοχής τάδε......που είναι πχ > από το κελί ......τάδε
Τότε πήγαινε στην περιοχή ......τάδε και βάλε σε κάθε κελί της που πληρεί την ιδιότητα (κριτήριο)
πχ την λέξη "edw" ]

και βέβαια όλο το κόλπο είναι να αποσαφηνιστεί τι εννοούμε ως κούφωμα μέσα στο φύλλο
Στην περιγραφή σου
<<όπως το σκέφτομαι θα εξετάζει αρχικά σε ποιο τοίχο ανήκει το κάθε *κούφωμα και αν
ανήκει σε τοίχο μετά τον τοίχο που διαιρέσαμε θα δίνει ένα νούμερο μεγαλύτερο, ενώ αν είναι το ίδιο θα δίνει τιμή εδώ...>>
*που βρίσκεται αυτό το κούφωμα μέσα στο φύλλο ποιο είναι (είναι κελί, σειρά) πως το περιγράφεις ;