Stellar Blade Un'esclusiva PS5 che sta facendo discutere per l'eccessiva bellezza della protagonista. Vieni a parlarne su Award & Oscar!
 
Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

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

Ultimo Aggiornamento: 06/05/2019 00:22
Post: 1
Registrato il: 13/04/2019
Città: COLLELONGO
Età: 54
Utente Junior
2010
OFFLINE
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
Post: 3.728
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
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
Post: 1
Registrato il: 13/04/2019
Città: COLLELONGO
Età: 54
Utente Junior
2010
OFFLINE
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
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]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 21:05. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com