Alla ricerca di una macro

[Rossi Vincenzo]

Salve, mi chiamo Vincenzo ed ho un problema di execel a cui non riesco a dare un risposta
lo propongo alla Comunità affinchè possa offrirmi una soluzione


Nella colonna B sono elencate in verticale 500 matricole,(es .286766hb).
Nella colonna A è indicato il numero progressivo da 1 a 500 .

Vorrei una macro che mi permetta, inserendo in una cella della colonna C, un qualsiasi numero di matricola della colonna B, la visualizzazione in una qualsiasi cella della colonna D dei numeri progressivi della colonna A a cui corrisponde

Quello che mi preme sottolineare, è che nella colonna D ,(anche impegnando diverse celle), vengano elencate i progressivi corrispondenti quando una stessa matricola è contenuta più volte nella colonna B

Dico questo, perchè ho provato con il CERCA ma visualizza solo un progressivo, e se ci fossero degli altri con la stessa matricola?? come fare??

Sono fermo quì

Grazie

[Boolean]

ma non avevi già iniziato la stessa discussione qui: Alla ricerca di una macro - MasterDrive.it ?

Dato che avevi avuto già delle risposte, non ti sembrava il caso di continuare quella, se non era chiaro cosa ti veniva suggerito?

Boolean

[Rossi Vincenzo]

Vorrei comunicare che la soluzione al quesito posto sia stata trovata la estendo all'intera Comunità per quanti ne abbiano necessità
Colgo l'occasione per augurare a tutta la comunità un BUON NATALE ed un SPUMEGGIANTE 2009
Grazie
Sub Allaricercadiunamacro()
'
' Allaricercadiunamacro
Dim CL As Object
Dim X
Application.ScreenUpdating = False
Range("E8:E1000").ClearContents 'pulizia celle della colonna F
X = Range("C8").Value ' matricola o treno per cui avviare la ricerca
For Each CL In Range("A8:A1000") 'campo entro cui ricercare la matricola
If CL = X Then 'per ogni matricola
CL.Offset(0, 1).Select 'si selezioni la 1^ cella a destra la progressiva
Selection.Copy ' la si copi
Range("E5").Select 'e dalla prima cella vuota partendo da E8 la si incolli
Selection.End(xlDown).Select 'con questa funzione è necessario far trovare le prime due celle della colonna F occupate
ActiveCell.Offset(1, 0).Select
With ActiveCell
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
End If
Next
Application.CutCopyMode = False
End Sub

[Ironmax]

Scusa volevo sapere una cosa.
A cosa ti serve quella macro che hai cercato e che hai trovato, nel senso che qual è la morale della favola di questa macro.
Ti chiedo questo perchè ciò che hai scritto non mi è molto chiaro e comunque sono interessato alla cosa.
Sè puoi, a parte il codice che hai già pubblicato, ti sarei davvero grato sè puoi pubblicare la parte grafica di ciò che avviene nelle caselle di excel.
Grazie per una tua risposta.

[Rossi Vincenzo]

Questo è quanto corrisponde su di un foglio excel il codice da me esposto.

Colonna Colonna Colonna Colonna Colonna
A5 B5 C5 D5 E5
Elenco Elenco Matricola da Risultato
Matricole Progr. Ricercare Ricerca
22415 1 12640u 2
12640u 2 8
12496u 3 6
12503u 4 21
22DF415 5
12640u 6
22409 7
12640u 8
12470u 9
12477u 10
223RG09u 11
22312u 12
22321u 13
22320u 14
22f20u 15
12488u 16
12495u 17
12498u 18
12498u 19
12498 20
12640u 21

Errata Corrige: pulizia celle della colonna E e non erroneamente Fcome citato
Range("E8:E1000").ClearContents 'pulizia celle della colonna F

Errata Corrige:
Selection.End(xlDown).Select 'con questa funzione è necessario far trovare le prime due celle della colonna E occupate e non erroneamente F come citato

"nel senso che qual è la morale della favola di questa macro."

Tramite il CERCA la matricola 12640u mi verrebbe visualizzata solo una volta mentre dall'elenco è ripetuta per ben 4 volte questa macro mi risolve questo problema a me molto utile

Spero di essere stato chiaro.

[Rossi Vincenzo]

Scusa ma non so inviarti copia di un foglio excel ti è giunta una disposizione delle colonne di excel molto caotica a cui non so porre rimedio.Scusami