RIPORTARE INTERA RIGA SE, IN UNA CELLA DELLA COLONNA è 1

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte
MassimilianoRosati
00venerdì 3 febbraio 2017 10:50
Buongiorno,
faccio parte di un gruppo di protezione civile e mi servirebbe in vostro aiuto.
Stò creando una tabella per registrare le persone in accesso ad un campo di soccorso. Non conosco benissimo Excel ma sono sicuro che voi potete aiutarmi.
In questa tabella (che stò cercando di inserire) nella colonna G se il valore è 1 dovrebbe riportarmi l'intera riga al giorno successivo.
Praticamente arriva una persona al campo...la registro con documenti ecc e chiedo conferma per riservarle il posto del giorno seguente. Se mi conferma metto 1 sulla cella della riga corrispondente (colonna G) al suo nome ed in automatico mi riporta l'intera riga al gg seguente.
Ho creato sette fogli con i giorni della settimana e tutti dovrebbero essere collegati tra loro.
E possibile farlo? Ora lo faccio manualmente ma era più comodo e veloce se ci fosse una formula che mi permette di automatizzare la faccenda.
Potete aiutarmi?
Vi ringrazio infinitamente.
Come posso mettere la tabella o la foto?
alfrimpa
00venerdì 3 febbraio 2017 12:12
Ciao Massiminiano

Non devi mettere una foto con la quale non si può far nulla ma un file di Excel e sulla base di questo spiega quello che vuoi fare/ottenere
MassimilianoRosati
00venerdì 3 febbraio 2017 18:23
Devo mettere proprio il file di excel che vorrei modificare?
Per quanto riguarda la descrizione su cosa vorrei fare l'ho scritto sopra. Scusate ma sono nuovo e poco pratico [SM=g27813]
alfrimpa
00venerdì 3 febbraio 2017 19:14
Se alleghi il file è sempre meglio.
cromagno
00sabato 4 febbraio 2017 23:40
Ciao a tutti,

come già detto da Alfredo ( [SM=g27811] ) serve il file (senza dati sensibili), anche perchè se ho interpretato bene, quello che chiedi può essere fatto solo tramite VBA.

Attendiamo tue notizie...

Ciao
Tore [SM=x423053]
MassimilianoRosati
00domenica 5 febbraio 2017 14:03
Scusate come posso inserirlo?? Nell'opzione scegli file non mi da la possibilità [SM=g27813]
alfrimpa
00domenica 5 febbraio 2017 15:23
Ma certo che te lavdà.

Nella finestra di risposta in basso a sinistra trovi il pulsante carica file/foto.

Cluccaci su e vai avanti.

Se il file contiene macro va zippato.
MassimilianoRosati
00domenica 5 febbraio 2017 15:26
Forse devo farlo dal pc...da telefono mi da solo scegli file e quando vado a trovare la tabella non me la fa selezionare [SM=g27812]
MassimilianoRosati
00lunedì 6 febbraio 2017 08:31
eccolo credo ci sia riuscito. [SM=g27828]
Grazie e scusate.
MassimilianoRosati
00lunedì 6 febbraio 2017 08:35
In questa tabella (che stò cercando di inserire) nella colonna G se il valore è 1 dovrebbe riportarmi l'intera riga al giorno successivo.
Praticamente arriva una persona al campo...la registro con documenti ecc e chiedo conferma per riservarle il posto del giorno seguente. Se mi conferma metto 1 sulla cella della riga corrispondente (colonna G) al suo nome ed in automatico mi riporta l'intera riga al gg seguente.
Ho creato sette fogli con i giorni della settimana e tutti dovrebbero essere collegati tra loro.
Potete aiutarmi? magari facendo la formula su tutti i sette gg?
Grazie io nn saprei proprio dove mettermi le mani. [SM=g27819] [SM=g27813]
patel45
00lunedì 6 febbraio 2017 08:44
Re:
[QUOTE:134091528=MassimilianoRosati, 03/02/2017 Se mi conferma metto 1 sulla cella della riga corrispondente (colonna G) al suo nome ed in automatico mi riporta l'intera riga al gg seguente.

l'intera riga comprende il num del letto, quel letto non potrebbe essere già occupato ?

cromagno
00lunedì 6 febbraio 2017 08:51
Re: Re:
patel45, 06/02/2017 08.44:

l'intera riga comprende il num del letto, quel letto non potrebbe essere già occupato ?



Giusta osservazione patel [SM=g27822]
Direi che la cosa migliore è riportarla alla prima riga disponibile del giorno successivo (SE diponibile).
patel45
00lunedì 6 febbraio 2017 09:15
prova questa da inserire nel modulo di thisworkbook 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 7 Then
  If Target.Value = 1 Then
    r = Target.Row
    numfoglio = Sh.Index + 1
    LR = Sheets(numfoglio).Cells(Rows.Count, "C").End(xlUp).Row + 1
    If LR < 305 Then
      Sheets(numfoglio).Range("C" & LR & ":F" & LR).Value = Sh.Range("C" & r & ":F" & r).Value
      Sheets(numfoglio).Range("H" & LR & ":P" & LR).Value = Sh.Range("H" & r & ":P" & r).Value
    End If
  End If
End If
End Sub

allego anche il file
MassimilianoRosati
00martedì 7 febbraio 2017 16:38
Ragazzi che dite è fattibile?
MassimilianoRosati
00martedì 7 febbraio 2017 16:42
Re: Re:
patel45, 06/02/2017 08.44:
[QUOTE:134091528=MassimilianoRosati, 03/02/2017 Se mi conferma metto 1 sulla cella della riga corrispondente (colonna G) al suo nome ed in automatico mi riporta l'intera riga al gg seguente.

l'intera riga comprende il num del letto, quel letto non potrebbe essere già occupato ?


Ciao No in teoria il letto resta assegnato a quella persona per l'intera permanenza. Infatti nella colonna G ho messo conferma pernotto giorno seguente. Il gg dopo se mi conferma in automatico lo aggiunge ES al mercoledi se no no.
cromagno
00martedì 7 febbraio 2017 16:44
Re:
MassimilianoRosati, 07/02/2017 16.38:
Ragazzi che dite è fattibile?

[SM=g27833] [SM=g27833] [SM=g27833]

Ma l'hai visto il post precedente?
patel ti ha già dato la soluzione.


MassimilianoRosati
00martedì 7 febbraio 2017 16:44
patel45, 06/02/2017 09.15:
prova questa da inserire nel modulo di thisworkbook 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 7 Then
  If Target.Value = 1 Then
    r = Target.Row
    numfoglio = Sh.Index + 1
    LR = Sheets(numfoglio).Cells(Rows.Count, "C").End(xlUp).Row + 1
    If LR < 305 Then
      Sheets(numfoglio).Range("C" & LR & ":F" & LR).Value = Sh.Range("C" & r & ":F" & r).Value
      Sheets(numfoglio).Range("H" & LR & ":P" & LR).Value = Sh.Range("H" & r & ":P" & r).Value
    End If
  End If
End If
End Sub

allego anche il file
Scusami ma sono proprio ignorante in materia...potresti farlo x me?
Poi scarico la tabella e ti dico. Se puoi è...
Vi ringrazio tutti infinitamente.
MassimilianoRosati
00martedì 7 febbraio 2017 16:45
Re: Re:
cromagno, 07/02/2017 16.44:
MassimilianoRosati, 07/02/2017 16.38:
Ragazzi che dite è fattibile?

[SM=g27833] [SM=g27833] [SM=g27833]

Ma l'hai visto il post precedente?
patel ti ha già dato la soluzione.
Non me lo dava scusate. Da cellulare è un casino. Mi aveva aperto solo i primi commenti.
Scusate ancora.



MassimilianoRosati
00mercoledì 8 febbraio 2017 12:36
Re:
patel45, 06/02/2017 09.15:
prova questa da inserire nel modulo di thisworkbook 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 7 Then
  If Target.Value = 1 Then
    r = Target.Row
    numfoglio = Sh.Index + 1
    LR = Sheets(numfoglio).Cells(Rows.Count, "C").End(xlUp).Row + 1
    If LR < 305 Then
      Sheets(numfoglio).Range("C" & LR & ":F" & LR).Value = Sh.Range("C" & r & ":F" & r).Value
      Sheets(numfoglio).Range("H" & LR & ":P" & LR).Value = Sh.Range("H" & r & ":P" & r).Value
    End If
  End If
End If
End Sub

allego anche il file

io ho provato ma non riesco ad inserire il codice anche se scaricando la tua già lo vedo presente ma non riesco a farlo funzionare. [SM=g27813] [SM=g27813] [SM=g27813]


patel45
00mercoledì 8 febbraio 2017 17:01
non lo devi far funzionare, si attiva da solo quando usi i fogli
MassimilianoRosati
00lunedì 13 febbraio 2017 11:10
Buongiorno, non sò se è la mia versione di excel 2007 a non funzionare o cosa.
Ho provato in tutti i modi. [SM=g27813] [SM=g27813]
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 12:44.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com