Application.InputBox

[nicola_na78]

Ciao Amici, chiedo ancora una volta il Vostro preziosissimo aiuto....

vorrei creare una macro utilizzando un Application.InputBox che fa la seguente cosa:
mi trovo nella colonna D, la cella selezionata e deve essere memorizzata, si apre l'Application.InputBox mi chiede le celle da selezionare, seleziono es da b4:b8 e riporto nelle celle selezionate lo stesso valore della cella memorizzata....

Grazie

[maxmula]

Ciao Amici, chiedo ancora una volta il Vostro preziosissimo aiuto....

vorrei creare una macro utilizzando un Application.InputBox che fa la seguente cosa:
mi trovo nella colonna D, la cella selezionata e deve essere memorizzata, si apre l'Application.InputBox mi chiede le celle da selezionare, seleziono es da b4:b8 e riporto nelle celle selezionate lo stesso valore della cella memorizzata....

Grazie

Non credo tu possa farlo con la InputBox, perchè viene visualizzata come form di tipo Modal (non ti lascia, cioè, interagire con altri oggetti che non siano sè stessa).

Per fare ciò che chiedi, potresti "simular" la InputBox con un form appositamente realizzato, che conterrà una TextBox, una Label che chiede di selezionare le celle ed un pulsante da cliccare ad operazione terminata (Caption = "Avanti", ad esempio).

Il click sul pulsante è in realtà solo una scusa per riportare il cursore nel form; quando il cursore rientra, viene generato un evento MouseMove sul form stesso, che conterrà questo codice:

Codice: Seleziona tutto

     Dim Selez as String
     Selez = Selection.Address   
     If TextBox1.Text <> Selez Then TextBox1.Text = Selez



Come evento Click sul pulsante, invece, andrai a mettere il codice che copia l'indirizzo selezionato (TextBox1.Text) alla destinazione voluta, ed il classico Me.Hide che nasconde il form.

Questo in linea di massima.
Spero di esserti stato d'aiuto,
MAx

[Anthony47]

Humm, Max si e' distratto...
Infatti e' possibile usare type:=8 per ritornare "Un riferimento di cella, ad esempio un oggetto Range".
Il codice per quanto richiesto potrebbe quindi essere

Codice: Seleziona tutto

Set mycell = Application.InputBox( _
    prompt:="Select a cell", Type:=8)
mycell.Value = ActiveCell.Value


(derivato dall' esempio in help on line)

Ciao

[maxmula]

Humm, Max si e' distratto...

La distrazione è il mio stato normale!
Diciamo che il mio stile di programmazione è un po' "Cowboy"...

Ciao,
MAx

[nicola_na78]

Grazie Antony47 è perfetta... grazie anche a te max
Saluti a tutti