Nascondere inputbox

Hai un problema con Excel?

Nuova discussione

Nascondere inputbox
di Riccardo57 (utente non iscritto) data: 17/03/2010
Ho creato questa macro (associata ad un bottone) per ricercare un determinato codice art. all'interno di una tabella con molte righe nel foglio ep.
per selezionare il codice, anzichè digitarlo nella finestra inputbox, basta selezionare la relativa cella con il mouse.
la domanda è questa:
1) è possibile nascondere la finestra di dialogo inputbox, o meglio solo la zona dove solitamente si imputano i valori?
2) è possibile fare in modo che con il semplice clik del maouse sulla cella la macro presegua senza attendere anche la pressione del tasto ok?

allego lo spessone del codice vba

grazie a chiunque mi sappia dare una dritta.

Sub Trova_articolo()
'
' Macro3 Macro
'
NomeFile = ActiveWorkbook.Name
NumeroFinestre = ActiveWorkbook.Windows.Count
    If NumeroFinestre < 3 Then GoTo CreaFinestre Else GoTo NomeFinestre
    
CreaFinestre:
QuanteFinetsre = 3 - NumeroFinestre
    For NW = 1 To QuanteFinetsre
        ActiveWindow.NewWindow
    Next NW

NomeFinestre:
NOMEFINESTRA1 = NomeFile & ":1"
NOMEFINESTRA2 = NomeFile & ":2"
NOMEFINESTRA3 = NomeFile & ":3"

'
Set rng = Application.InputBox("Seleziona l'articolo da ricercare", , , , , , , 8)
    
    
    'Range("A13").Select
ActiveWorkbook.Windows(NOMEFINESTRA2).Activate
    Sheets("EP").Select
    Range("B:B").Select
    
    Cells.Find(What:=rng, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

Vuoi Approfondire?