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

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Αναζήτηση στοιχείων από δυο φύλλα και καταχώριση των επιλεγμένων σε νέο (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/3043-anazitisi-stoixeion-apo-dyo-filla-kai-kataxorisi-ton-epilegmenon-se-neo.html)

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

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

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

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

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

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

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

S.O.S ακόμη παιδεύομαι

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

Κώδικας:

 
 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