Advertisement
Guest User

Untitled

a guest
Jun 18th, 2019
124
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.80 KB | None | 0 0
  1. ' Método que agrega los resultados de la búsqueda de "cond" en un ListBox
  2. Sub searchresults()
  3. ' Miramos desde la línea 2 hasta el final de la hoja.
  4. For ligne = 2 To Sheets("RECAP").Range("C1").End(xlDown).Row
  5.  
  6. ' algunas condiciones
  7. cond_function = Sheets("RECAP").Cells(ligne, 2) Like "*" & cboFunction & "*"
  8. ...
  9. cond_nextvsa = Sheets("RECAP").Cells(ligne, 28) Like "*" & txtNextVsaReservist & "*"
  10.  
  11. ' probamos si las celdas están cerca de la derecha o la izquierda de los datos escritos en los campos de búsqueda
  12. 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
  13. ' Los resultados de ListBox se llenan con los nombres y apellidos del personal
  14. 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
  15. End If
  16.  
  17. Next
  18. End Sub
  19.  
  20. Private Sub ListBoxResults_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  21. Dim Msg As String
  22. Dim i As Integer
  23.  
  24. Dim newInstanceOfMe As Object
  25.  
  26. ' Buscamos el nombre del reservista al que hicimos clic.
  27. For i = 0 To ListBoxResults.ListCount - 1
  28. If ListBoxResults.Selected(i) Then
  29. ReservistName = ListBoxResults.List(i)
  30. End If
  31. Next i
  32.  
  33. ' Tenga en cuenta el caso en el que hacemos clic en los Resultados de TextBox mientras este está vacío
  34. If False Then
  35. If ReservistName <> "" Then
  36. Set newInstanceOfMe = UserForms.Add(Me.Name)
  37.  
  38. newInstanceOfMe.Caption = ReservistName
  39. newInstanceOfMe.Show
  40.  
  41. Unload newInstanceOfMe
  42. Set newInstanceOfMe = Nothing
  43. End If
  44. End If
  45. ReservistFormUserForm.Caption = ReservistName
  46.  
  47. ReservistFormUserForm.Show
  48.  
  49.  
  50. End Sub
  51.  
  52. 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)
  53. 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