Modifica

Hai un problema con Excel?

Nuova discussione

Modifica
di Antonio (utente non iscritto) data: 14/10/2013 19:33:22
Ciao a tutti,
ho questa Private Sub UserForm_Activate() che vedete sotto e vorrei fargli una modifica:
ho inserito Analisi.ListBox1.AddItem "*" prima di For Each cell In MyCust in modo che lui ricerca tutti i codici uguali e va bene, anche se pero non tiene presente come in quella originaria che i codici appartengono ad un determinato cliente: come posso fare a fare una ricerca tra tutti i codici tendo comunque presente il cliente uguale?
Spero che qualcuno riesce a darmi una mano.

Private Sub UserForm_Activate()
Dim MyCust As Range, cell As Range
Set Registro = Worksheets(Foglio3.Name)
Set Statistica = Worksheets(Foglio4.Name)
Set RangeRegistro = Registro.[a4].CurrentRegion
RangeRegistro.AdvancedFilter xlFilterCopy, criteriarange:=Registro.[c4], copytorange:=Registro.[t1], unique:=True
Registro.Range("t1").Sort key1:=Registro.Range("t1"), Header:=xlYes
Set MyCust = Registro.Range("t2:t" & Registro.Cells(Rows.Count, 20).End(xlUp).Row)

For Each cell In MyCust
Analisi.ListBox1.AddItem cell
Next
Analisi.ListBox1.Selected(0) = True

End Sub

di Vecchio Frac data: 15/10/2013 10:52:14
Riesci a proporci un file con lo scenario?

Modifica
di Antonio (utente non iscritto) data: 14/10/2013 20:49:56
Ciao a tutti,
ho questa Private Sub UserForm_Activate() che vedete sotto e vorrei fargli una modifica:
ho inserito Analisi.ListBox1.AddItem "*" prima di For Each cell In MyCust in modo che lui ricerca tutti i codici uguali e va bene, anche se pero non tiene presente come in quella originaria che i codici appartengono ad un determinato cliente: come posso fare a fare una ricerca tra tutti i codici tendo comunque presente il cliente uguale?
Spero che qualcuno riesce a darmi una mano.

Private Sub UserForm_Activate()
Dim MyCust As Range, cell As Range
Set Registro = Worksheets(Foglio3.Name)
Set Statistica = Worksheets(Foglio4.Name)
Set RangeRegistro = Registro.[a4].CurrentRegion
RangeRegistro.AdvancedFilter xlFilterCopy, criteriarange:=Registro.[c4], copytorange:=Registro.[t1], unique:=True
Registro.Range("t1").Sort key1:=Registro.Range("t1"), Header:=xlYes
Set MyCust = Registro.Range("t2:t" & Registro.Cells(Rows.Count, 20).End(xlUp).Row)

For Each cell In MyCust
Analisi.ListBox1.AddItem cell
Next
Analisi.ListBox1.Selected(0) = True

End Sub

di Vecchio Frac data: 15/10/2013 10:55:01
Hai postato due volte questa discussione, una in entrambi i forum.
Non serve riproporre più volte gli stessi quesiti.
Chiudo questa e lascio aperta l'altra (per l'ordine cronologico).

Vuoi Approfondire?