Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

eliminare celle vuote nel foglio di copia

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

eliminare celle vuote nel foglio di copia

Postdi chiocciolata » 22/06/15 18:39

ciao a tutti!!
mi sono iscritta a questo forum con la speranza di un piccolo aiuto:
mi spiego io ho 7 fogli lunedi martedi.... io avrei bisogno che nei fogli vuoti foglio1,2.... mi vengano inseriti e copiati solo quelle celle del foglio lunedi,martedi che presentano nella colonna Z un numero senza celle vuote nel mezzo...
tento un chiarimento io ho in riga 30 il pane e voglio darne 50 g come quantità quel giorno specifico
nella riga 50 voglio dare 90g di sofficini...
io vorrei che nel foglio 1 mi vengano scritti solo pane e 50g e sofficini e 90g senza le 60 caselle bianche nel mezzo...
ricordando che comunque posso aggiornare continuamente il file...
sapete mica come aiutarmi perchè mi sono impantanata
comunque vi metto il file se riuscite a capirlo meglio cosi :)
http://www.filedropper.com/sangueesudore
chiocciolata
Newbie
 
Post: 8
Iscritto il: 22/06/15 18:22

Sponsor
 

Re: eliminare celle vuote nel foglio di copia

Postdi Flash30005 » 22/06/15 23:03

Ciao Chiocciolata e benvenuta nel Forum
spero di aver interpretato bene il tuo quesito

Ho realizzato quindi una macro che svolge quell'operazione
Le macro in effetti sono 2
questa che va in un modulo
Codice: Seleziona tutto
Public FFQ As Worksheet, FF As String, URQ As Integer
Sub CompilaF()
Dim FFD As Worksheet
Select Case FF
Case "LUNEDI"
Set FFD = Sheets("Foglio1")
Case "MARTEDI"
Set FFD = Sheets("Foglio2")
Case "MERCOLEDI"
Set FFD = Sheets("Foglio3")
Case "GIOVEDI"
Set FFD = Sheets("Foglio4")
Case "VENERDI"
Set FFD = Sheets("Foglio5")
Case "SABATO"
Set FFD = Sheets("Foglio6")
Case "DOMENICA"
Set FFD = Sheets("Foglio7")
End Select

FFD.Cells.Clear
FFD.Range("A1").Value = "Alimento"
FFD.Range("B1").Value = "gr"
For RRQ = 3 To URQ
    If FFQ.Range("Z" & RRQ).Value <> "" Then
        URF = FFD.Range("A" & Rows.Count).End(xlUp).Row + 1
        FFD.Range("A" & URF).Value = FFQ.Range("A" & RRQ).Value
        FFD.Range("B" & URF).Value = FFQ.Range("Z" & RRQ).Value
    End If
Next RRQ
FFD.Columns("A:B").EntireColumn.AutoFit
End Sub


e questa che va inserita nel Vba di ogni foglio con i giorni settimanali
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
URQ = Range("Z" & Rows.Count).End(xlUp).Row
If URQ > 2 Then
    CheckArea = ("Z3:Z" & URQ)
    If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
        If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
        Set FFQ = Sheets(ActiveSheet.Name)
        FF = UCase(ActiveSheet.Name)
        CompilaF
    End If
End If
End Sub


Ogni volta che digiterai una quantità nella colonna Z si compilerà il foglio corrispondente

Allego comunque questo file come verifica

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: eliminare celle vuote nel foglio di copia

Postdi alfrimpa » 23/06/15 08:12

Ciao Chiara e bentrovata.

Come ti dicevo sull'altro forum ero certo che avresti avuto qui (come altrove) altro riscontro :)

Flash (che saluto) ti ha subito fornito la soluzione che ti invito a "studiare" visto che ti ha allegato anche il file.

Permettimi di consigliarti la lettura (studio) di questo link

http://forum.wintricks.it/showthread.php?t=155252-vba/

Si tratta di un corso sul VBA (a mio avviso fatto molto bene) che sicuramente ti aiuterà in questa fase di apprendimento iniziale.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 840
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: eliminare celle vuote nel foglio di copia

Postdi chiocciolata » 23/06/15 17:54

non so come ringraziarti Flash sei stato veramente un genio !!!
funziona tutto come deve :) :) sapessi veramente quanto tempo c'ho messo per raccapezzarmici
X Alfrimpa grazie 1000 veramente per tutto! sicuramente da oggi mi metterò sotto per imparare almeno l'indispensabile per poter andare avanti con excel sperando col tempo di poter diventare bravina e poter aiutare qualcun altro come oggi voi avete fatto con me !!
grazie grazie grazie!
Chiara.
chiocciolata
Newbie
 
Post: 8
Iscritto il: 22/06/15 18:22

Re: eliminare celle vuote nel foglio di copia

Postdi alfrimpa » 23/06/15 18:52

Vedrai Chiara che ci riuscirai sicuramente.

Comunque hai visto che qui c'è gente veramente molto preparata e se avrai ancora bisogno qui troverai persone (tra le quali spero di esserci anch'io) che sicuramente saranno in grado di aiutarti.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 840
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: eliminare celle vuote nel foglio di copia

Postdi chiocciolata » 23/06/15 19:15

oddio rieccomi mi stavo studiacchiando il foglio reinserendo la macro...
però succede sia nell'es che mi hai postato Flash che in quello nuovo che ho cercato di fare, che nel momento in cui io cancello gli alimenti dal lunedi, l'ultimo alimento( per es i sofficini del lunedi) non si cancella ma rimane con la sua grammatura (anche se nel lunedi l'ho cancellato); cosiccome se sulla colonna Z faccio "cancella contenuto" nel foglio 1 non si cancellano ma rimangono tutti li...
sai come poter risolvere??
chiocciolata
Newbie
 
Post: 8
Iscritto il: 22/06/15 18:22

Re: eliminare celle vuote nel foglio di copia

Postdi Flash30005 » 24/06/15 00:05

Devi apportare due piccole modifiche
una nella macro del modulo, aggiungendo dove evidenziato con <<<<< tra le due righe esistenti
Codice: Seleziona tutto
FFD.Cells.Clear  '<<< esistente
If URQ < 3 Then Exit Sub '<<<<<<<<<<<<<<<<<<<<< aggiungere qui questa riga codice
FFD.Range("A1").Value = "Alimento"  '<<< esistente


e poi una modifica nella macro di ogni foglio che ti ripropongo per intero che sostituirai su tutti i fogli con i giorni settimanali
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
URQ = Range("Z" & Rows.Count).End(xlUp).Row
URA = Range("A" & Rows.Count).End(xlUp).Row
    CheckArea = ("Z3:Z" & URA)
    If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
        If (Selection.Columns.Count) > 2 Then Exit Sub
        Set FFQ = Sheets(ActiveSheet.Name)
        FF = UCase(ActiveSheet.Name)
        CompilaF
    End If
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: eliminare celle vuote nel foglio di copia

Postdi chiocciolata » 24/06/15 13:53

ciao Flash è perfetta veramente !!! oggi in più grazie al mio cugino che studia informatica mi sono anche fatta spiegare il meccanismo di questa macro.
questa l'ho capita il problema sono tutte le altre... :lol: :lol: :lol: :P !!!
comunque ancora grazie grazie grazie :) :) :) :) :)
chiocciolata
Newbie
 
Post: 8
Iscritto il: 22/06/15 18:22


Torna a Applicazioni Office Windows


Topic correlati a "eliminare celle vuote nel foglio di copia":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti

cron