Excelling :: Topic: Trovare il Successivo Nome su di un Foglio di Excl (1/1)

Welcome, Guest

Page:
1

TOPIC: Trovare il Successivo Nome su di un Foglio di Excl

Trovare il Successivo Nome su di un Foglio di Excl 4 years 3 months ago #10593

Maury1704
OFFLINE
Expert Boarder
Posts: 91
Karma: 0

Ciao a Tutti, il mio problema e questo : Su di un Faglio di Excel ho del Nomi che vanno da Range("J7:L15").
Ahora la mia domanda e questa : Ho creato una Funzione che mi serve per trovare un Nome in Questa lista, e per fare questo ho sfruttato un Userform.
Ahora però Sempre nell'userform ho immesso un Secondo pulsante che vorrei Sfruttare per passare alla Visualizzazione del Cliente Successivo.
Voi avete una vaga idea di come si faccia a fare tutto ciò; Grazie sin da ora per tutto l'aiuto che vorrete darmi in merito Saluti da A.Maurizio

Attachments:

CercaeVai.xlsm (27KB)

The administrator has disabled public write access.

Trovare il Successivo Nome su di un Foglio di Excl 4 years 3 months ago #10598

Marius44
OFFLINE
Gold Boarder
Posts: 185
Thank you received: 38
Karma: 14

Ciao Maurizio
Prova a sostituire la tua macro con questa

Private Sub CmdSuccessivo_Click()
Dim wsh As Worksheet
Dim uriga As Long, Rg As Object, Val As Variant, Area As Range
Set wsh = ThisWorkbook.Worksheets("Cerca")
uriga = wsh.Cells(Rows.Count, 10).End(xlUp).Row
Val = wsh.Cells(Rig, Col)
    If Col <> 0 Then
    Set Area = wsh.Range(wsh.Cells(Rig + 1, Col), wsh.Cells(Rig + uriga, Col))
    If Rig < uriga Then
            Rig = Rig + 1
            TxtNome = Cells(Rig, 10).Value
            TxtCognome = Cells(Rig, 11).Value
            TxtMansione = Cells(Rig, 12).Value
        Else
            MsgBox ("La ricerca è terminata"), vbInformation
            TxtNome = "": TxtCognome = "": TxtMansione = ""
            GoTo fine
        End If
    End If
fine:
Application.CutCopyMode = False
Range("J6").Activate
Set wsh = Nothing
Set Area = Nothing
'Set Rg = Nothing
End Sub

Fai sapere. Ciao,
Mario

The administrator has disabled public write access.

Trovare il Successivo Nome su di un Foglio di Excl 4 years 3 months ago #10602

Maury1704
OFFLINE
Expert Boarder
Posts: 91
Karma: 0

Ciao Carissimo anche tu da queste parti.
Ti incontro Sempre nei posti più Disparati ! mi fà piacere .
Grazie per il Tuo Intervento come sempre sei un Grande ora và benissimo con il tuo Listato.
Sinceri saluti da A.Maurizio
(P.S) Se mi Permetti ti voglio nel mio Piccolo Offrire il mio Ultimo Lavoro creato sempre Fruttando la Chart di Excel.
Nel Caso in qui ti possa piacere dimmelo che ti invio quella senza password, lo sai per te questo e altro.
Ma anche altre persone che sono in questo Forum Possono Scaricarselo, tanto tu lo sai già, Io eseguo questi lavori con l'aiuto di tutti, senza tante pretese ; e senza voler insegnare nulla a nessuno in quanto la mia e solo pura passione Ciao , Grazie e alla prossima

File Attachment:

File Name: Gioco15conChart.zip
File Size: 112 KB

The administrator has disabled public write access.

Page:
1

Forum

Excel

VBA generale

Trovare il Successivo Nome su di un Foglio di Excl