Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Apertura file di sottocartelle barcode

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Apertura file di sottocartelle barcode

Postdi Ubuntus » 16/09/16 15:11

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
Ubuntus
Utente Junior
 
Post: 73
Iscritto il: 24/07/15 15:56

Sponsor
 

Re: Apertura file di sottocartelle barcode

Postdi Anthony47 » 17/09/16 00:20

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Apertura file di sottocartelle barcode

Postdi Ubuntus » 19/09/16 13:38

perfetto grazie :) , l'ho provato e funziona

Dovrò copiare il codice n 2 su tutti i fogli che lo utilizzo dove inserisco la data.
Ubuntus
Utente Junior
 
Post: 73
Iscritto il: 24/07/15 15:56


Torna a Applicazioni Office Windows


Topic correlati a "Apertura file di sottocartelle barcode":


Chi c’è in linea

Visitano il forum: fabrizio2001, patel e 7 ospiti