Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ. |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
|
#1
| ||||
| ||||
Αναζήτηση στοιχείων από δυο φύλλα και καταχώριση των επιλεγμένων σε νέο Καλησπέρα σε όλους Δυο φόρμες που με παιδεύουν (μαζικές κινήσεις) και(εξόφληση κινήσεων) όπια Βοήθεια δεκτή. Σας ευχαριστώ εκ’ των προτέρων Γιώργος. |
#2
| |||
| |||
Καλημέρα Me.TextBox1.Value = Date With Me.ComboBox2 .AddItem "ÁÐÕ" .AddItem "ÔÐÕ" .AddItem "ÁÅÓ" End With χωρίς παρενθέσεις Θανάσης |
#3
| ||||
| ||||
Καλημέρα και καλό μήνα Θανάση ευχαριστώ για την διόρθωση μήπως έχεις καμιά ιδέα για την φόρμα αα(μαζικές κινήσεις) για το μάζεμα των στοιχειών και για την φόρμα (εξόφληση κινήσεων) για την αρίθμηση της λίστας γιατί μου γραφεί μονό στης πρώτες έγραφες και διαγραφή όλη την υπόλοιπη στήλη . |
#4
| ||||
| ||||
Καλημέρα σε όλους Παιδεύομαι ακόμη και έχω δυο ερώτησης: Η λίστα με το CheckBox είναι πολύ μεγαλύτερη πως και αν γίνεται να εμφανίζονται μόνο όσες και η έγραφες . Όταν επιλέξω από την λίστα ListBox1 με : For e = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Selected(e) Then kinisis.Range("j" & 2 + e) = True End If Next Πως το e μπορεί να είναι το στοιχειό από την στήλη ”a:a” της επιλεγμένης εγράφης. Τελευταία επεξεργασία από το χρήστη anestaki : 03-03-14 στις 15:07. |
#5
| |||
| |||
Καλησπέρα Γιώργο, βλέπω ότι έχεις μπει σε βαθιά νερά, θα πρέπει πρώτα να εξαντλήσεις την λύση που μπορείς να έχεις από το Excel, και μετά να ασχοληθείς με Vba, σου ανεβάζω αρχείο με πίνακες. Θανάσης |
#6
| ||||
| ||||
Καλησπέρα Θανάση Πολύ ενδιαφέρουσα η προσέγγιση με πίνακες αλλά δεν νομίζω να με εξυπηρετεί , φαντάσου εκατό έγραφες μίνιμουμ με της διπλές σε ποσα false και true να πρέπει να της κάνω με το χέρι μια ,μια |
#7
| ||||
| ||||
S.O.S ακόμη παιδεύομαι Καλησπέρα σε όλους Κώδικας: Private Sub CommandButton2_Click() If ComboBox4.Value = "" Then MsgBox "Δεν είναι συμπληρωμένος ο μηνάς" Exit Sub End If If Range("MonthList") = ComboBox4.Value & "-" & Year(Now()) Then ‘εδώ μου κολλάει και δεν μπορώ να καταλάβω γιατί MsgBox "O μηνάς" & ComboBox4.Value & " για το " & Year(Now()) & "υπαρχή" Exit Sub End If On Error Resume Next Dim c As Range, i As Long, e As Range i = kinisis.Cells(Rows.Count, 2).End(xlUp).Row For Each c In pelates.Range("pelatis").Columns(0).Cells ‘pelates.Range("pelatis").Columns(0).Cells αυτό πως μπορώ να αντικαταστήσω με το ‘αντίστοιχο της λίστα (Listbox1) που υπαρχή στην φόρμα. If c.Offset(, 11).Value = True Then ‘μου αφήνει μια κενή γραμμή For Each e In diaxiristis.Range("diaxiristis").Columns(1).Cells(c) kinisis.Range("a" & i + c).Value = i + c - 1 kinisis.Range("B" & i + c).Value = c.Offset(, 0).Value kinisis.Range("c" & i + c).Value = c.Offset(, 1).Value If c.Offset(, 0).Value = e.Offset(, 1).Value And e.Offset(, 7).Value = True Then ‘δεν μου εμφανίζει της σωστές έγραφες. kinisis.Range("d" & i + c).Value = e.Offset(, 0).Value kinisis.Range("e" & i + c).Value = ComboBox4.Value kinisis.Range("f" & i + c).Value = c.Offset(, 7).Value kinisis.Range("g" & i + c).Value = c.Offset(, 9).Value kinisis.Range("h" & i + c).Value = DtpDate.Value kinisis.Range("i" & i + c).Value = Year(Now()) If CheckBox1.Value = True Then kinisis.Range("j" & i + c) = CheckBox1.Value Else kinisis.Range("j" & i + c) = False kinisis.Range("m" & i + 1) = ComboBox4.Value & "-" & Year(Now()) ThisWorkbook.Names.Add "MonthList", kinisis.Range("m2:m" & i + 1) End If Next End If Next End Sub Τελευταία επεξεργασία από το χρήστη anestaki : 08-03-14 στις 13:26. |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[Excel07] εξαγωγη στοιχειων απο πολλα φυλλα | pnemtsa | Excel - Ερωτήσεις / Απαντήσεις | 11 | 06-01-17 11:05 |
[Excel07] Αυτόματη μεταφορά στοιχείων από διαφορετικά φύλλα Excel | ggatzos | Excel - Ερωτήσεις / Απαντήσεις | 0 | 28-06-13 21:07 |
[Excel07] Άντληση στοιχείων απο φύλλα εργασίας σε συγκεντρωτικό φύλλο | ggatzos | Excel - Ερωτήσεις / Απαντήσεις | 16 | 26-05-13 18:16 |
[Συναρτήσεις] Αναζήτηση σε περισσότερα φύλλα εργασίας | Βασίλης Καραχάλιος | Excel - Ερωτήσεις / Απαντήσεις | 6 | 24-06-12 09:21 |
[Συναρτήσεις] Αναζήτηση σε πολλα φύλλα | manolis | Excel - Ερωτήσεις / Απαντήσεις | 5 | 09-06-10 17:17 |
Η ώρα είναι 04:59.