Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicitÓ e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Altri Linguaggi - trova nomi
Forum - Altri Linguaggi - trova nomi

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
trittico69 (Normal User)
Pro


Messaggi: 144
Iscritto: 02/04/2010

Segnala al moderatore
Postato alle 18:01
Mercoledý, 23/05/2012
Ŕ 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!

Codice sorgente - presumibilmente Plain Text

  1.  



PM Quote
Avatar
Qwertj (Dev Team)
Guru


Messaggi: 678
Iscritto: 30/05/2011

Segnala al moderatore
Postato alle 18:14
Mercoledý, 23/05/2012
Si

PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 6176
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 18:32
Mercoledý, 23/05/2012
Testo quotato

Postato originariamente da trittico69:

Codice sorgente - presumibilmente Plain Text

  1.  





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Ó.
PM Quote
Avatar
trittico69 (Normal User)
Pro


Messaggi: 144
Iscritto: 02/04/2010

Segnala al moderatore
Postato alle 22:34
Mercoledý, 23/05/2012
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

PM Quote
Avatar
trittico69 (Normal User)
Pro


Messaggi: 144
Iscritto: 02/04/2010

Segnala al moderatore
Postato alle 14:42
Giovedý, 24/05/2012
allego un file di esempio
http://depositfiles.com/files/x4bh4qh7u

PM Quote
Avatar
Qwertj (Dev Team)
Guru


Messaggi: 678
Iscritto: 30/05/2011

Segnala al moderatore
Postato alle 16:11
Giovedý, 24/05/2012
Testo quotato


AB3:AB100


questo Ŕ un pezzo di colonna, ma questo
Testo quotato


A3:B2000


Non lo Ŕ...

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

PM Quote
Avatar
trittico69 (Normal User)
Pro


Messaggi: 144
Iscritto: 02/04/2010

Segnala al moderatore
Postato alle 20:31
Venerdý, 08/06/2012
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

PM Quote
Avatar
Qwertj (Dev Team)
Guru


Messaggi: 678
Iscritto: 30/05/2011

Segnala al moderatore
Postato alle 22:14
Venerdý, 08/06/2012
Ripeto, scorri le celle con un bel ciclo For e confronti i singoli valori con la query che cerchi

PM Quote
Avatar
trittico69 (Normal User)
Pro


Messaggi: 144
Iscritto: 02/04/2010

Segnala al moderatore
Postato alle 22:32
Venerdý, 08/06/2012
non lo so fare..puoi aiutarmi?

PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo