Moderatori: Anthony47, Flash30005
ricky53 ha scritto:Ciao,
benvenuto nel forum.
Perchè non richiami sempre la stessa routine passandogli il nome del file sul quale deve operare e poi nella routine richiamata gestisci le operazioni sui vari file?
Ciao da Ricky53
nomefoglio = ActiveWorkbook.Name
Select Case NomeFoglio
Case "nome1"
Call routine1
Case "nome2"
Call routine2
Case "nome3"
Call routine3
Case "nome4"
Call routine4
Case Else
MsgBox ("Foglio sconosciuto... Non so cosa chiamare!")
End Select
Application.Run Range("scelta").Value
yield.pm ha scritto:ho abilitato l'invio di una mail ogni qual volta ricevo una risposta ma finora nessun mail, nonostante le risposte...
maxmula ha scritto:yield.pm ha scritto:ho abilitato l'invio di una mail ogni qual volta ricevo una risposta ma finora nessun mail, nonostante le risposte...
Strano, di solito arrivano regolarmente.
Prova a cliccare su "sottoscrivi topic" nella cornice inferiore della pagina, a volte capita anche a me di annullare involontariamente.
Se sei sicuro di esserti già associato (che brutto "sottoscritto", fa tanto simil-anglofono), allora prova a verificare che l'email inserita nel tuo profilo personale corrisponda effettivamente all'indirizzo che usi regolarmente...
Tornando alla tua domanda, mi sembra di capire dall'andamento del topic in generale che quanto richiesto sia possibile, magari non proprio nella maniera che intendi tu ma comunque possibile.
Tra l'altro, se vai a cercare qualche informazione in più sul metodo Application.Run suggerito da Anthony, vedi che supporta anche un buon numero di argomenti, per cui non vedo il problema: scrivi il nome della routine in una cella, gli argomenti nelle celle vicine e poi usi una Application.Run prendendo le informazioni dal posto giusto...
http://msdn.microsoft.com/en-us/library/bb213784%28office.12%29.aspx
(la pagina qui sopra è dedicata a Excel 2007, ma vale anche per la versione 2003)
Ciao!
MAx
Sub Esegui_da_Cella()
Application.Run Foglio1.Range("A1").Value
End Sub
Sub Saluti()
MsgBox "Ciao"
End Sub
Sub Esegui_da_Cella()
Parametro = "Dati Passati"
Esito = Application.Run(Foglio1.Range("A1").Value, Parametro)
End Sub
Sub Saluti(Dati)
MsgBox "Ciao - " & Dati
End Sub
ricky53 ha scritto:Caio,
prova in questo modo
sempre con [A1] = "Saluti" del "Foglio1"
- Codice: Seleziona tutto
Sub Esegui_da_Cella()
Parametro = "Dati Passati"
Esito = Application.Run(Foglio1.Range("A1").Value, Parametro)
End Sub
Sub Saluti(Dati)
MsgBox "Ciao - " & Dati
End Sub
Ciao da Ricky53
Application.Run Sheets("Foglio1").Range("D1").Value, ix
Option Explicit
Dim Rprova As Range
Dim Ix As Long, Esito As Long
Sub Prima()
Set Rprova = Range("Prova")
For Ix = 1 To 40
If Ix = 15 Then
Esito = Application.Run(Foglio1.Range("D1").Value, Ix)
MsgBox Esito
End If
Next Ix
End Sub
Function Seconda(Ix As Long)
Seconda = Rprova(Ix) * 2
End Function
Torna a Applicazioni Office Windows
Un ciclo per non far diventare la routine troppo lunga Autore: zanatta77 |
Forum: Applicazioni Office Windows Risposte: 2 |
Richiamare una scheda anagrafica e modificarla Autore: Zagor57 |
Forum: Applicazioni Office Windows Risposte: 9 |
Visitano il forum: Nessuno e 25 ospiti