La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Buongiorno a tutti, per lavoro mi inviano delle cartelle formattate sempre alla stessa maniera a cui devo mettere la data in una cella e poi stampare. Avevo pensato di usare la cartella macro personali personal.xlsb e aggiungere una macro nel modulo Questa_cartella_di_lavoro ma non funziona. Sapete come si può fare?
Sub ImmettiData()
With ActiveSheet
If InStr(Range("A4"), "LLO") <> 0 And _
InStr(Range("A5"), "KKL") <> 0 And _
InStr(Range("A6"), "DRA") <> 0 Then
Range("H21").FormulaR1C1 = "=TODAY()"
End If
End Sub
ciao
ti sei dimenticato
END WITH
puoi lasciare anche
...Range("H21").FormulaR1C1 = "=TODAY()"
io preferisco DATE
Sub ImmettiData()
With ActiveSheet
If InStr(Range("A4"), "LLO") <> 0 And _
InStr(Range("A5"), "KKL") <> 0 And _
InStr(Range("A6"), "DRA") <> 0 Then
Range("H21") = Date
End If
End With
End Sub
se hai dubbi su maiuscole e minuscole
Option Compare Text
Sub ImmettiData()
With ActiveSheet
If InStr(Range("A4"), "LLO") <> 0 And _
InStr(Range("A5"), "KKL") <> 0 And _
InStr(Range("A6"), "DRA") <> 0 Then
Range("H21") = Date
End If
End With
End Sub
È vero, l'ho aggiunto ma non va ugualmente, nel senso: apro il file, mi esce l'errore, entro nel debug e li posso fare F5 e tutto va a buon fine. Sembra che il codice non trovi la cartella se non dopo l'apertura del VBE.
ciao
onestamente non so come usare le cartelle delle macro personali
il vba non è il mio terreno.
vediamo se i vbaisti ti leggono.
È la prima volta anch'io che uso le macro personali, aspettiamo. Grazie comunque.
