23Andrea
22-08-2015, 11:26
Ciao.
Questa macro
Option Explicit
Sub Macro1()
Dim variabile
variabile = "Notepad.exe" & " " & "C:\Users\<nome utente>\Desktop\" & (Range("I2").Value)
Shell (variabile), 1
End Sub
apre, con Blocco Note, un file di testo in un percorso predefinito, con il nome corrispondente alla stringa contenuta nella cella I2.
Il contenuto della cella I2 viene a sua volta determinato utilizzando un'altra macro
Option Explicit
Sub Macro3()
Range("I2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(TEXT(Tabella_Indice[[#This Row],[data]],""aaaa.mm.gg""),""_"",Tabella_Indice[[#This Row],[n°]],Tabella_Indice[[#This Row],[D]])"
End Sub
che concatena le stringhe contenute nelle tre celle, della stessa riga, corrispondenti alle colonne "data", "n°" e "D".
Come posso sostituire al componente (Range("I2").Value) della prima macro la funzione contenuta nella seconda macro, in modo da eliminare la cella di appoggio I2?
Grazie.
Questa macro
Option Explicit
Sub Macro1()
Dim variabile
variabile = "Notepad.exe" & " " & "C:\Users\<nome utente>\Desktop\" & (Range("I2").Value)
Shell (variabile), 1
End Sub
apre, con Blocco Note, un file di testo in un percorso predefinito, con il nome corrispondente alla stringa contenuta nella cella I2.
Il contenuto della cella I2 viene a sua volta determinato utilizzando un'altra macro
Option Explicit
Sub Macro3()
Range("I2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(TEXT(Tabella_Indice[[#This Row],[data]],""aaaa.mm.gg""),""_"",Tabella_Indice[[#This Row],[n°]],Tabella_Indice[[#This Row],[D]])"
End Sub
che concatena le stringhe contenute nelle tre celle, della stessa riga, corrispondenti alle colonne "data", "n°" e "D".
Come posso sostituire al componente (Range("I2").Value) della prima macro la funzione contenuta nella seconda macro, in modo da eliminare la cella di appoggio I2?
Grazie.