eliminare celle vuote nel foglio di copia

[chiocciolata]

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

[Flash30005]

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

[alfrimpa]

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.

[chiocciolata]

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.

[alfrimpa]

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.

[chiocciolata]

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??

[Flash30005]

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

[chiocciolata]

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... !!!
comunque ancora grazie grazie grazie