Apertura file di sottocartelle barcode

[Ubuntus]

ciao

Mi piacerebbe che scrivendo il nome file letto dal Barcode in cella A1 mi apra il file corrispondente a quel nome, il file da aprire si trova in A2, l'ho formattato di eventuali numeri non utili

Codice: Seleziona tutto

es
A1 123456/36 * valore scritto
a2 123456.xlsx mi apra questo file

la macro Si attivi:
- Ad ogni variazione della cella A1, e mi apre il file corrispondente excel salvato nella sottocartella "ST"


Punto 2:
-Sul foglio aperto, vorrei che se scrivo qualcosa in colonna B2:Bxx o C2:Cxx, al posto di riportarmi quanto letto dal barcode mi scriva la data del giorno ( al momento lo faccio con CTRL + shift + ,) vorrei utilizzarlo per registrare ingressi ed uscite in modo veloce dal barcode,

Il punto 1 l'ho provato registrando una macro ma non mi apriva il file, e sul punto due a meno che non schiacchi CTRL + shift + , non risciuvo a fargli bloccare la lettura della data, variava ad ogni apertura file,

Un esempio dei file

grazie in anticipo
https://we.tl/gvw3yYnPo0

[Anthony47]

Per aprire il file indicato in A2 e che si trova, rispetto alla posizione del file corrente, nella sottocartella ST: tasto dx sul tab col nome del foglio su cui lavori, scegli Visualizza codice; copia questo codice e lo incolli nel frame vuoto di dx dell'editor delle macro che si e' aperto.

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Target.Value <> "" Then
            Workbooks.Open ThisWorkbook.Path & "\ST\" & Range("A2").Value
        End If
    End If
End Sub

Se il foglio del "punto 2" e lo stesso del "punto 1" allora la macro da inserire (invece di quella precedente) sara':

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Target.Value <> "" Then
            Workbooks.Open ThisWorkbook.Path & "\ST\" & Range("A2").Value
        End If
    End If
'Vedi testo, punto2:
myArea = "B2:C10000"
If Not Application.Intersect(Range(myArea), Target) Is Nothing And Target.Count = 1 Then
    If Target.Value <> "" Then Target.Value = Int(Now)
End If
End Sub

Se invece parli di altro allora dovresti chiarire se parli di uno specifico foglio /alcuni specifici fogli o se parli di "qualsiasi sia il foglio".

Ciao

[Ubuntus]

perfetto grazie , l'ho provato e funziona

Dovrò copiare il codice n 2 su tutti i fogli che lo utilizzo dove inserisco la data.