Topic: Scorrere Una lista di Clienti Visualizzati su più Textbox in Excel

[A.Maurizio]

Ciao a tutti , mi chiamo Maurizio e il mio problema e questo .
Su di un Foglio di excel a partire dalla Cella A2:E40 ci sono una Serie di Nomi in quanto il Tutto dovrebbe risultare come un DataBase.
Ora Io tutte le volte che eseguo una Ricerca di un Cliente , Apro un Userform Inserisco il Nome del Clinte , e cosi Facendo tutte le che appartengono a quel Cliente fanno Ripopolare le suddette Textbox, e fino a qui nulla di problematico.
Ora però Io vorrei pote far si che : Ogni qual volta eseguo una Ricerca , Trovato il Mio Cliente, Vorrei poter vedere anche il Clinte Successivo ho Precedente, Sempre all'interno del mio Userform ,e Sempre popolando le mie textbox.
C'è qualcuno di voi che sia in grado di Darmi una mano in merito Grazie.
(P.s) Io di mio ho provato ad inserire un codice , ma sembra non funzionare e non capisco il Perchè ? Il Codice e Questo :

Codice: [Seleziona]

Private Sub CmdSuccessivo_Click()
On Error GoTo nonce

Dim wsh As Worksheet
Dim uriga As Long
Set wsh = ThisWorkbook.Worksheets("Foglio1")
uriga = wsh.Cells(Rows.Count, 1).End(xlUp).Row

If X = 0 Then
    If TxtCognome <> "" Then
        Range(ActiveCell.Offset(1, 0).Address & ":" & ActiveCell.End(xlDown).Address).Select
        Selection.Find(What:=TxtCognome, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    End If
   
ElseIf X = 1 Then
    If TxtNome <> "" Then
        Range(ActiveCell.Offset(1, 1).Address & ":" & ActiveCell.End(xlDown).Address).Select
        Selection.Find(What:=TxtNome, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Offset(0, -1).Select
    End If
   
ElseIf X = 2 Then
    If TxtPIVA <> "" Then
        Range(ActiveCell.Offset(1, 2).Address & ":" & ActiveCell.End(xlDown).Address).Select
        Selection.Find(What:=TxtPIVA, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Offset(0, -2).Select
    End If
   
ElseIf X = 3 Then
    If TexCell <> "" Then
        Range(ActiveCell.Offset(1, 3).Address & ":" & ActiveCell.End(xlDown).Address).Select
        Selection.Find(What:=TexCell, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Offset(0, -3).Select
    End If
   
Else
    Range(ActiveCell.Offset(1, 1).Address & ":" & ActiveCell.End(xlDown).Address).Select
        Selection.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Offset(0, -4).Select
End If

TxtCognome = ActiveCell.Offset(0, 0).Value
TxtNome = ActiveCell(1, 2).Value
TxtPIVA = ActiveCell(1, 3).Value
TexCell = ActiveCell(1, 4).Value
TextBox1 = ActiveCell(1, 5).Value

GoTo finito

nonce:
MsgBox ("La Ricerca è Terminata"), vbInformation

Application.CutCopyMode = False

Range("A1").Select
Set wsh = Nothing
finito:

Application.CutCopyMode = False
Set wsh = Nothing
End Sub

E il mio Link contenente il File Da Scaricare e Questo : https://app.box.com/s/zdsogw2mmmsjkzmpy9rt9k3r0c8poczb

[max1210]

Buongiorno.
Scusami, ma sinceramente non ho capito il nesso della tua richiesta su questo forum che riguarda solo l'assistenza per i prodotti Mozilla.
Se ho inteso bene cosa vuoi fare, è meglio che ti rivolgi al sito/forum di Microsoft Office (se riguarda un loro prodotto come credo che sia) oppure ad uno dei tanti forum di informatica presenti nel web.