Click automatico su una maschera

Hai un problema con Excel?

Nuova discussione

Click automatico su una maschera
di Scrokky data: 18/01/2017 14:43:21
Ciao a tutti.. sono alle prime armi con vba e mi sono trovato di fronte ad un ostacolo. Dovrei modificare una macro in modo che, dopo aver eseguito un certo comando, venga aperta una maschera (Choose_an_event) e clicchi automaticamente su uno dei pulsanti presenti su di essa: è possibile farlo? Spero di essermi spiegato bene e che possiate aiutarmi

errore nel ciclo Do
di andsal (utente non iscritto) data: 18/01/2017 14:53:09
Buonasera a tutti,
mi sto scervellando a capire che errore ha il codice sotto, il quale dovrebbe realizzare un copia/incolla di valori da un foglio ad un altro attraverso un ciclo Do, ma non riesco a capire come mai mi dia l'errore 91 al primo loop effettuato (su Range("H" & a.Row).Value = Sheets(2).Range("B" & b.Row).Value).
In pratica, tali valori rispondono ad un duplice find:
_ il primo trova le righe di riferimento in sheet1, dove nella colonna E è presente un numero di riferimento (numero sequenza) immesso di volta in volta;
_ il secondo trova le righe di riferimento in sheet2, dove nella colonna A è presente lo stesso valore presente nella cella A & riga del precedente find.

Spero che con il codice riesca a spiegarmi meglio...

Vi ringrazio per l'aiuto...

A

Sub valori_presenti()

Dim Num_Sequenza As String
Dim a As Range
Dim b As Range
Dim primo As String

Num_Sequenza = Range("I2").Value

Set a = Sheets(1).Range("E:E").Find(Num_Sequenza, LookIn:=xlValues)
Set b = Sheets(2).Range("A:A").Find(Sheets(1).Range("A" & a.Row).Value, LookIn:=xlValues)
    
    primo = a.Address
    Do
    Range("H" & a.Row).Value = Sheets(2).Range("B" & b.Row).Value
    Set a = Sheets(1).Range("E:E").FindNext(a)
    Set b = Sheets(2).Range("A:A").Find(Sheets(1).Range("A" & a.Row).Value, LookIn:=xlValues)
    Loop Until a.Address = primo
  
End Sub

di alfrimpa data: 18/01/2017 15:53:06
@ Scrokky

Ti sembra che la tua spiegazione sia sufficiente per dare una risposta sensata?

Cerca di illustrare al meglio il tuo problema e soprattutto allega un file di esempio con dati spiegazioni e risultato desiderato inserito manualmente.

@ andsal

Ti sei accodato ad una discussione preesistente.

Aprine una "tua" allegando un file di esempio con dati spiegazioni e risultato desiderato inserito manualmente.

Alfredo
di Scrokky data: 18/01/2017 16:16:12
Essendo alle prime armi, sono anche agli inizi nel provare a spiegarmi Chiedo scusa e provo a spiegare meglio:

esiste la possibilità di aggiungere eventi in questo foglio. Una volta aggiunto un evento ho inserito:

Choose_a_event.Show

che mi fa aprire in automatico la maschera Choose_a_event
Su questa maschera sono presenti 2 pulsanti: Overview e Ok.

Ora vorrei inserire un codice che faccia cliccare in automatico il tasto Ok appena dopo che viene aperta la maschera.

Come posso fare? Spero di essere stato più chiaro
choose_a_event.show clicca su Ok choose_a_event.hide
di alfrimpa data: 18/01/2017 16:17:59
Senza un file tuo di prova i test dove li facciamo?

Cosa intendi quando dici: "esiste la possibilità di aggiungere eventi in questo foglio."?

Alfredo
di Scrokky data: 18/01/2017 16:23:20
Allegato! :D
di alfrimpa data: 18/01/2017 17:13:04
Ciao Scrokky

Ho visto il file e purtroppo le mie conoscenze non mi consento di poterti darti una mano.

Spero ci possa essere qualcun altro che possa darti una mano.

Alfredo

Vuoi Approfondire?