[VBA] Αυτόματη ενημέρωση πίνακα

[skapet155]

καθως επεξεργαζομαι το αρχειο με τον συννημενο πινακα , διαπιστωσα οτι εαν εχω την ιδια ημερομηνια καθαρισμα σε μια κατοικια και επισης σε καποια αλλη , το Κ μπαινει στο κελι μονο για την 1 κατοικια και οχι για την δευτερη , πρεπει να αλλαξω κατι στους τυπους ?

[Tasos]

Καλησπέρα Σταύρο!

Ναι, θα χρειαστούν κάποιες μικροαλλαγές στους τύπους.
Στο αρχείο του παραδείγματος, στο Φύλλο1 και στη στήλη "D" ξεκινώντας από το κελί D2, συμπλήρωσε τον τύπο: =B2&C2.
Μπορείς αν θέλεις να κρύψεις αυτή τη στήλη.

Στο Φύλλο2 και στο κελί C2 συμπλήρωσε τον τύπο:

=IF(ISNA(MATCH($B2&C$1;Φύλλο1!$D:$D;0));"";IF(INDEX(Φύλλο1!$D:$D;MATCH($B2&C$1;Φύλλο1!$D:$D;0))=$B2&C$1;"K";""))

και σύρε τα κελιά δεξιά και κάτω όσο χρειαστεί.

Καλή συνέχεια!

Φιλικά

Τάσος

[skapet155]

ειναι πολυ καλο τασο , δουλευει μια χαρα , σε ευχαριστω.
πως θα μπορουσα οι φορμουλες που εχει ο πινακας στο Φυλλο2 να γινουν ισως με vba ωστε να μπορει καποιος να επεμβει και να μεταθεσει μερικα Κ σε αλλη ημερομηνια ?

[Tasos]

Καλησπέρα Σταύρο!

Δες ένα παραδειγματικό κώδικα:

Option Explicit

Sub FillPlanTable()
    Dim rngSourceDates As Range
    Dim rngTargetDates As Range
    Dim rngRooms As Range
    Dim c As Range
    Dim d As Range
    Dim f As Range
    Dim FirstAddress As String
    Dim iCol As Integer
    Dim iRow As Integer

    Set rngSourceDates = Worksheets(1).Range("A:A")
    Set rngRooms = Range("C1:N1")
    On Error GoTo ErrH
    Set rngTargetDates = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = True
    With rngRooms
        .Offset(1).Resize(rngTargetDates.Count, .Count).Replace _
                What:=ChrW(922), Replacement:="", LookAt:=xlPart, _
                SearchOrder:=xlByRows, MatchCase:=False, _
                SearchFormat:=False, ReplaceFormat:=False

        .Offset(1).Resize(rngTargetDates.Count, .Count).Replace _
                What:="K", Replacement:="", LookAt:=xlPart, _
                SearchOrder:=xlByRows, MatchCase:=False, _
                SearchFormat:=False, ReplaceFormat:=False
    End With
    For Each c In rngTargetDates
        If Not IsEmpty(c) And IsDate(c) Then
            Set f = rngSourceDates.Find(c)
            If Not f Is Nothing Then
                FirstAddress = f.Address
                Do
                    Set d = rngRooms.Find(What:=f.Offset(, 1), LookIn:=xlValues)
                    If Not d Is Nothing Then
                        iRow = c.Row
                        iCol = d.Column
                        Cells(iRow, iCol) = "K"
                    End If
                    Set f = rngSourceDates.Find(What:=c, After:=f)
                    If f Is Nothing Then Exit Do
                Loop While f.Address <> FirstAddress
            End If
        End If
    Next
ErrH:
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    If Err Then MsgBox Err & vbLf & Err.Description, vbExclamation
End Sub

Δες και το συνημμένο παράδειγμα παρακάτω.


Καλή συνέχεια!

Φιλικά

Τάσος

[skapet155]

Τασο σε ευχαριστω , δοκιμασα το αρχειο και λειτουργει , ομως οπως ειπες και εσυ το εξελισω.
Σο φυλλο 1 οι ημερομηνιες στηλη Α και η κατοικιες στηλη Β προερχονται απο αλλο τροφοδοτη αρχειο με συνεπεια ο κωδικας να μην βρισκει τιμες αυτουσιες αλλα τυπους απο τους οποιους προκυπτουν οι τιμες .Αλλαζει αυτο ?

[Tasos]

Σταύρο, αν πρόκειται για τους τύπους που υπήρχαν στο αρχικό συνημμένο του θέματος,

τότε στον κώδικα άλλαξε τη γραμμή: Set f = rngSourceDates.Find(c)

με τη γραμμή: Set f = rngSourceDates.Find(What:=c, LookIn:=xlValues).

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

(Access, Excel, αρχείο κειμένου κ.ά.) και να τα ανανεώνεις όποτε θέλεις από το τελικό αρχείο.

Τα πλεονεκτήματα πολλά και ευεργετικά ειδικά σε μεγάλο όγκο δεδομένων.

Στο μενού "Δεδομένα > Εισαγωγή εξωτερικών δεδομένων" κάνε κλικ στην επιλογή "Εισαγωγή δεδομένων".
Στο διάλογο που θα εμφανιστεί επέλεξε το αρχείο από όπου θα αντλείς τα δεδομένα (VILLAS 2011-καθάρισμα.xls).

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

Στον επόμενο διάλογο που θα εμφανιστεί κάνε κλικ στην επιλογή "Ιδιότητες" και κάνε τις ρυθμίσεις όπως δείχνει η εικόνα:

datarange_props.png

και κλείσε τους 2 διαλόγους μς OK.

Σου επισυνάπτω 2 συνημμένα για να το δεις σε λειτουργία:

• Το VILLAS 2011-καθάρισμα.xls που θα πρέπει να το μεταφέρεις στη διαδρομή C:\,
• Το ΚΑΘΑΡΙΣΜΑΤΑ.xls που παίρνει τα δεδομένα του από το C:\VILLAS 2011-καθάρισμα.xls.

Καλή συνέχεια!

Τάσος

[skapet155]

καλησπερα και παλι κ ενα μεγαλο ευχαριστω.
εχω εξελιξει το αρχικο αρχειο οπως το συννημενο , προσπαθω να εφαρμοσω τις συμβουλες σου αλλα δεν γινεται τιποτα , επισης μπορει να βαζει Κin οταν παιρνει απο το check in στηληΑ και να βαζει Κout οταν παιρνει απο στηλη Β (και ισως να αλλαζει κ χρωμα κελιου ?)

[Tasos]

Καλημέρα Σταύρο!

Πριν εξελίξεις μια εφαρμογή θα πρέπει να την έχεις σχεδιάσει πρώτα.

Δεν το κάνεις αυτό με αποτέλεσμα να έχει αλλάξει το σενάριο του ζητούμενου σου 3 ή 4 φορές!

Θα πρέπει να πειραματιστείς αρκετά αφού θέλεις να προγραμματίσεις στην Excel.

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

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

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

Τι νόημα θα έχει αν κάποιος βρει το χρόνο να τροποποιήσει το αρχείο σου όταν εσύ δεν μπορείς να ακολουθήσεις;

Επισυνάπτω 2 συνημμένα με αυτά που προτείνω.

Μέσα στα αρχεία αυτά θα βρεις τις τεχνικές που θα χρειαστείς προκειμένου να τελειώσεις το έργο σου:

• Το VILLAS 2011-καθάρισμα.xls που θα πρέπει να το μεταφέρεις στη διαδρομή C:\,
• Το ΚΑΘΑΡΙΣΜΑΤΑ.xls που παίρνει τα δεδομένα του από το C:\VILLAS 2011-καθάρισμα.xls.

Μέχρι εδώ μπορώ να σε βοηθήσω.

Δεν έχω δυστυχώς άλλο χρόνο να ασχοληθώ με το θέμα αυτό.


Φιλικά

Τάσος

[skapet155]

Τασο , σε ευχαριστω για τον χρονο που εχεις διαθεσει .Η βοηθεια σου ειναι σημαντικη . Επειδη ασχολουμαι με σχεδιασμους οχι προγραμματων αλλα με αλλου ειδους, πολλες φορες φευγεις απο τα αρχικα σεναρια και ψαχνεις διεξοδους και επανασχεδιαζεις , μεχρι να καταληξεις σε ενα ικανοποιητικο αποτελεσμα .Δεν θα ενοχλησω ξανα με αυτο το θεμα