Oppure

Loading
23/05/12 16:01
trittico69
è possibile modificare il codice sotto e fare in modo che mi effettui prima la ricerca prima nella colonna AB3:AB100 e se non trova il nome che si stà cercando passi automaticamente alla colonna A3:B2000.
Questo codice si trova in una form.
Grazie! 




		

		

			aaa
		

	

	

	



	

		
23/05/12 16:14


		 Qwertj
		

			Si
		

		

			aaa
		

	

	

	



	

		
23/05/12 16:32


		 nessuno
		

			
Postato originariamente da trittico69:





 




Bel codice ... sicuramente (anzi necessariamente) si modifica ... non c'è dubbio ...
		

		

			Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...

---

Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.
		

	

	

	



	

		
23/05/12 20:34


		 trittico69
		

			Dim ricerca As Range 'questo codice serve a creare il tasto cerca per non usare il binocolo e finisce a fine3 

Private Sub CommandButton1_Click() 

TextBox1.SetFocus 

TextBox1.SelStart = 0 

TextBox1.SelLength = Len(TextBox1.Text) 

If ricerca Is Nothing Then 

Set ricerca = Sheets("archivio";).Cells.Find(TextBox1.Text, , xlValues) 

Else 

Set ricerca = Sheets("archivio";).Cells.Find(TextBox1.Text, Sheets("archivio";).Cells(ricerca.Row, ricerca.Column), xlValues) 

End If 

If ricerca Is Nothing Then Exit Sub 

ricerca.Select 

End Sub 

Private Sub UserForm_Activate() 

TextBox1.SetFocus 

End Sub 



Private Sub UserForm_initialize() 

CommandButton1.Caption = "trova": CommandButton1.Accelerator = "T": CommandButton1.Default = True 

userform1.Caption = "cerca" 

End Sub 'fine3
		

		

			aaa
		

	

	

	



	

		
24/05/12 12:42


		 trittico69
		

			allego un file di esempio

depositfiles.com/files/…
		

		

			aaa
		

	

	

	



	

		
24/05/12 14:11


		 Qwertj
		

			
AB3:AB100



questo è un pezzo di colonna, ma questo

A3:B2000



Non lo è...



Credo che dovresti scorrere i valori della colonna, controllarli tutti, e se non lo trovi passi all'altro range
		

		

			aaa
		

	

	

	



	

		
08/06/12 18:31


		 trittico69
		

			nella prima colonna i nomi sono in un unica cella nella seconda colonna i nomi e cognomi sono separati in due celle..

ma non riesco a fare quello che voglio
		

		

			aaa
		

	

	

	



	

		
08/06/12 20:14


		 Qwertj
		

			Ripeto, scorri le celle con un bel ciclo For e confronti i singoli valori con la query che cerchi
		

		

			aaa