Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Método que agrega los resultados de la búsqueda de "cond" en un ListBox
- Sub searchresults()
- ' Miramos desde la línea 2 hasta el final de la hoja.
- For ligne = 2 To Sheets("RECAP").Range("C1").End(xlDown).Row
- ' algunas condiciones
- cond_function = Sheets("RECAP").Cells(ligne, 2) Like "*" & cboFunction & "*"
- ...
- cond_nextvsa = Sheets("RECAP").Cells(ligne, 28) Like "*" & txtNextVsaReservist & "*"
- ' probamos si las celdas están cerca de la derecha o la izquierda de los datos escritos en los campos de búsqueda
- If cond_function And cond_surname And cond_name And cond_sex And cond_rank And cond_bsn And cond_birthdate And cond_age And cond_birthplace And cond_address And cond_zipcode And cond_city And cond_telephone And cond_email And cond_contact And cond_job And cond_esr And cond_contractlength And cond_endesr And cond_sav1 And cond_sav1comment And cond_retraining And cond_fma Then
- ' Los resultados de ListBox se llenan con los nombres y apellidos del personal
- ListBoxResults.AddItem Sheets("RECAP").Cells(ligne, 3) & " " & Sheets("RECAP").Cells(ligne, 4) ' Quiero poner todos los elementos en la celda de esa manera si hacemos clic en todo está disponible
- End If
- Next
- End Sub
- Private Sub ListBoxResults_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
- Dim Msg As String
- Dim i As Integer
- Dim newInstanceOfMe As Object
- ' Buscamos el nombre del reservista al que hicimos clic.
- For i = 0 To ListBoxResults.ListCount - 1
- If ListBoxResults.Selected(i) Then
- ReservistName = ListBoxResults.List(i)
- End If
- Next i
- ' Tenga en cuenta el caso en el que hacemos clic en los Resultados de TextBox mientras este está vacío
- If False Then
- If ReservistName <> "" Then
- Set newInstanceOfMe = UserForms.Add(Me.Name)
- newInstanceOfMe.Caption = ReservistName
- newInstanceOfMe.Show
- Unload newInstanceOfMe
- Set newInstanceOfMe = Nothing
- End If
- End If
- ReservistFormUserForm.Caption = ReservistName
- ReservistFormUserForm.Show
- End Sub
- ROLE NOM PRENOM SEXE GRADE N° INC N° BSN Date de naissance Ages LIEU NAISSANCE ADRESSE DE REPLI C.P VILLE N° de Tel N° de Tel 2 Adresse électronique (e-mail) Personne à prévenir PROFESSION Début ESR duree contrat Fin ESR SAV1 SAV1 comment RECYCLAGE FMA CA VSA PROCHAINE VSA NBR DISPO N-1 NBR GARDES N-1 NBR DISPO N NBR GARDES N Formé ECG MATRICULE DU (j/m/a) AU (j/m/a)
- CA Hernandes Miguel M CCH 31 42 29/01/88 28 Madrid 35 rue du FSH 75008 0144513100 ambassadeur@roy.uk su esposa ...
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement