|
Login
  • Page:
  • 1

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

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

  • Maury1704
  • Maury1704's Avatar
  • 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:
The administrator has disabled public write access.

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

  • Marius44
  • Marius44's Avatar
  • 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 3 years 3 weeks ago #10602

  • Maury1704
  • Maury1704's Avatar
  • 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
Time to create page: 0.465 seconds