[VBA] Αναζήτηση στοιχείων από δυο φύλλα και καταχώριση των επιλεγμένων σε νέο

[anestaki]

Καλησπέρα σε όλους
Δυο φόρμες που με παιδεύουν (μαζικές κινήσεις) και(εξόφληση κινήσεων) όπια Βοήθεια δεκτή. Σας ευχαριστώ εκ’ των προτέρων Γιώργος.

[Thanosp]

Καλημέρα
Me.TextBox1.Value = Date
With Me.ComboBox2
.AddItem "ÁÐÕ"
.AddItem "ÔÐÕ"
.AddItem "ÁÅÓ"
End With
χωρίς παρενθέσεις
Θανάσης

[anestaki]

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

[anestaki]

Καλημέρα σε όλους
Παιδεύομαι ακόμη και έχω δυο ερώτησης:
Η λίστα με το 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” της επιλεγμένης εγράφης.

[Thanosp]

Καλησπέρα
Γιώργο, βλέπω ότι έχεις μπει σε βαθιά νερά, θα πρέπει πρώτα να εξαντλήσεις την λύση που μπορείς να έχεις από το Excel, και μετά να ασχοληθείς με Vba, σου ανεβάζω αρχείο με πίνακες.
Θανάσης

[anestaki]

Καλησπέρα Θανάση
Πολύ ενδιαφέρουσα η προσέγγιση με πίνακες αλλά δεν νομίζω να με εξυπηρετεί , φαντάσου εκατό έγραφες μίνιμουμ με της διπλές σε ποσα false και true να πρέπει να της κάνω με το χέρι μια ,μια

[anestaki]

Καλησπέρα σε όλους

 
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