Stellar Blade Un'esclusiva PS5 che sta facendo discutere per l'eccessiva bellezza della protagonista. Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

aiuto per eseguire una copia di celle da un foglio ad un altro solo su condizione

  • Messaggi
  • OFFLINE
    carmo69
    Post: 1
    Registrato il: 13/04/2019
    Città: COLLELONGO
    Età: 54
    Utente Junior
    2010
    00 13/04/2019 15:26
    Richiesta Excel:
    1) solo se il valore della colonna D (sul foglio1) è maggiore di 0 (zero) , mi dovrà copiare sul foglio2 le righe corrispondenti a A+B+C+D. la copia dovrebbe avvenire senza spazio tra le righe (esempio: se in D1 c'e' 1 , copiare le celle A1+B1+C1+D1)

    2)Successivamente bisogna spedira la tabella del foglio2 via email a 3 indirizzi aaaaaa@gmail.com (tramite un tasto)

    3)Infine cancellare i dati della tabella del foglio2 per il prossimo utilizzo (tramite un tasto)

    Allego il file
    Grazie
  • OFFLINE
    raffaele1953
    Post: 3.728
    Registrato il: 28/06/2011
    Città: AGORDO
    Età: 70
    Utente Master
    2013
    00 14/04/2019 00:14
    Avrei risposto al Quesito1 ed Quesito3
    Siccome non sono capace al Quesito2, non faresti meglio richiedere passo-passo? 

    Sub copia()
Dim X, Ur, Rg
Ur = Sheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
Rg = 2
For X = 2 To Ur
    If Cells(X, 4) > 0 Then
        Sheets("Foglio1").Range("A" & X & ":D" & X).Copy
        Sheets("Foglio2").Range("A" & Rg).PasteSpecial
        Rg = Rg + 1
    End If
Next X
End Sub
    Excel 2013
  • OFFLINE
    carmo69
    Post: 1
    Registrato il: 13/04/2019
    Città: COLLELONGO
    Età: 54
    Utente Junior
    2010
    00 06/05/2019 00:22
    Grazie
    Grazie raffaele1953 e scusami per il ritardo ma ho avuto problemi con il mio PC… Ho provato oggi la tua Macro e funziona, rispondendomi ai punti 1 e 2 . Grazie 1000
Soluzioni Excel Domande e Risposte
Passa alla versione desktop

  • Anteprima