I figli d'arte sono all'altezza dei genitori? Vieni a parlarne su Award & Oscar.
 
Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Inserimento dati con vba

Ultimo Aggiornamento: 14/11/2016 17:52
Post: 2
Registrato il: 14/11/2016
Città: MILANO
Età: 36
Utente Junior
2013
OFFLINE
14/11/2016 17:00

Ciao a tutti!!
Ho bisogno del vostro aiuto per un file excel che vorrei utilizzare a lavoro.
Riporto in allegato un esempio molto semplificato di quello che vorrei fare per cercare di spiegare in modo più chiaro il mio problema.
Sul foglio "Inserimento dati" vorrei riportare giorno dopo giorno, la presenza o meno di un mio addetto a lavoro (con rispettive diciture a seconda se presente, se in permesso, in malattia, ecc.).
Sul foglio "riepilogo" vorrei, invece, che fossero riportati in automatico i dati che vado ad inserire nel foglio precedente; una volta riportati i dati ad esempio del 14 Novembre, devo poter inserire quelli del 15 Novembre, sempre sul foglio "inserimento dati", senza che si modifichino i dati inseriti precedentemente sul foglio "riepilogo".

In pratica vorrei un'unica colonna dove inserire dati, che si andranno a memorizzare su più colonne di un altro foglio. E' possibile farlo?

Spero di essere riuscita a spiegarmi!!!

Grazie a quanti dedicheranno un pò del proprio tempo per risolvere il mio problema.

Manuela

Post: 954
Registrato il: 06/04/2013
Utente Senior
2010
OFFLINE
14/11/2016 17:52

Ciao
ma in "Inserimento dati" una data ce le devi pur mettere, altrimenti come si fa a sapere sotto quale data riportare i valori in "Riepilogo".

Questo ti potrebbe tornar utile anche per eventuali rettifiche, cioè metti una data (anche pregressa) e in riepilogo ti verrà aggiornata con l'eventuale variazione.

Comunque, supponendo una data in B1 di "Inserimento dati":
Sub presenze()
Dim wkIns As Worksheet, wkRiep As Worksheet, mData As Variant
Set wkIns = Worksheets("Inserimento dati")
Set wkRiep = Worksheets("Riepilogo")
mData = wkIns.Range("B1")
If mData = "" Then
    MsgBox "Manca data"
    Exit Sub
End If
With wkRiep.Cells(1, 1).EntireRow
    Set c = .Find(mData, LookIn:=xlFormulas, lookat:=xlWhole)
    If c Is Nothing Then
        MsgBox ("Data non presente in Riepilogo")
        Exit Sub
    End If
End With
wkIns.Range("B2:B5").Copy Destination:=wkRiep.Cells(2, c.Column)
End Sub



saluti
[Modificato da dodo47 14/11/2016 18:24]
Domenico
Win 10 - Excel 2016
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Trasformare un numero digitato in un altro (3 messaggi, agg.: 23/12/2016 10:32)
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 03:24. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com