Previous page | 1 | Next page
Facebook  

Ripetere riga in base a numero di volte

Last Update: 8/18/2019 11:40 PM
Author
Print | Email Notification    
Post: 154
Registered in: 10/3/2015
Location: ALBAREDO PER SAN MARCO
Age: 39
Junior User
2003
OFFLINE
8/12/2019 11:08 PM
 
Modify
 
Delete
 
Quote

Buona sera a tutti.Nel foglio 1 ho una serie di numeri

(quelli colorati in giallo) Nella colonnaD ho sempre un

numero( quello edivenziato in rosso) e dovrei ripetere la

riga in base alle volte del numero rosso nel foglio2.Si

potrebbe fare gentilmente con una macro .Ho fatto l'esempio

a mano e siccome il mio archivio arriva poi fino alla riga

9000 e non si ferma alla riga12 la cosa diventa un po

pesante.Grazie Matteo
Come contare quante volte un elemento si ripete relativamente ad un determinato intervallo di date?numero9/7/2019 10:31 AM by Melissa2018
Data una colonna di numeri (0 ed 1), contare quanti 1 ci sono dopo ogni sequenza di numeri ben definitanumero9/20/2019 9:53 AM by Melissa2018
Waders neoprene lineaeffe numero 44CARPMERCATINOnumero8/28/2019 1:55 PM
Post: 1,275
Registered in: 6/27/2011
Veteran User
excel 2007
OFFLINE
8/13/2019 10:41 AM
 
Modify
 
Delete
 
Quote


ciao a tutti
ciao Matteo,
non riesco ad inserire nel tagCode



in un modulo

Sub copia()
Dim sh As Worksheet, sh1 As Worksheet
Dim ur As Long, ur1 As Long, r As Long, n As Long
Dim contatore As Integer

Application.ScreenUpdating = False

Set sh = Sheets("Foglio1")
Set sh1 = Sheets("Foglio3")
ur = sh.Cells(Rows.Count, "d").End(xlUp).Row
ur1 = sh1.Cells(Rows.Count, "a").End(xlUp).Row + 1

With sh
.Activate
For r = 1 To ur ' parto dalla riga 2 se ci sono intestazioni
contatore = sh.Cells(r, "d").Value

For n = 1 To contatore
sh.Range(Cells(r, 1), Cells(r, 3)).Copy sh1.Cells(ur1, 1)
ur1 = ur1 + 1
Next n

Next r
End With

sh1.Activate
Application.ScreenUpdating = True
Set sh = Nothing
Set sh1 = Nothing

End Sub



prova e fai sapere



ciao

Frank
[Edited by tanimon 8/13/2019 10:42 AM]
Excel 2007

1 - Per "prodotti finiti", ricordo l'esistenza di apposite Software House a pagamento. Questo è un Forum
2 per cortesia, leggi questa e questa discussione.
3 - allega SUL FORUM un file di esempio, chi ti vuole aiutare risparmia tempo, e tu forse hai una soluzione prima di quello che ti aspetti :-)
Usa siti di hosting SOLO in estrema necessità: in caso il server del forum abbia problemi.
4 - Ricordati di condividere le soluzioni che trovi da solo: potrebbero essere utili anche per le persone a cui chiedi aiuto.
Post: 31
Registered in: 8/13/2015
Location: COMO
Age: 55
Junior User
excel 2016
OFFLINE
8/14/2019 11:40 PM
 
Modify
 
Delete
 
Quote

Ciao,
un'alternativa:
Sub ripeti()
    Dim myArray As Variant
    Dim uR&, x&, r&, j%
    uR = Foglio1.Cells(Rows.Count, 1).End(xlUp).Row
    x = 1
    For r = 1 To uR
        myArray = Foglio1.Cells(r, 1).Resize(, 3)
        For j = 1 To Foglio1.Cells(r, 4)
            Foglio2.Cells(x, 1).Resize(, 3) = myArray
            x = x + 1
        Next j
    Next r
End Sub
Post: 1,277
Registered in: 6/27/2011
Veteran User
excel 2007
OFFLINE
8/15/2019 3:41 AM
 
Modify
 
Delete
 
Quote

Ciao Ges64,
dall'ultima volta che ci siamo sentiti sul forum che amministri,
e' un piacere per me averti come "follower" su questo.
[SM=g27811]

ciao
Frank
Excel 2007

1 - Per "prodotti finiti", ricordo l'esistenza di apposite Software House a pagamento. Questo è un Forum
2 per cortesia, leggi questa e questa discussione.
3 - allega SUL FORUM un file di esempio, chi ti vuole aiutare risparmia tempo, e tu forse hai una soluzione prima di quello che ti aspetti :-)
Usa siti di hosting SOLO in estrema necessità: in caso il server del forum abbia problemi.
4 - Ricordati di condividere le soluzioni che trovi da solo: potrebbero essere utili anche per le persone a cui chiedi aiuto.
Post: 32
Registered in: 8/13/2015
Location: COMO
Age: 55
Junior User
excel 2016
OFFLINE
8/16/2019 1:04 AM
 
Modify
 
Delete
 
Quote

Ciao Tanimon, ben trovato qui.
Anche se sono presente per la maggior parte del tempo nel mio forum di Excel, sono un "follower" su diversi altri, italiani stranieri: si alimenta sempre di più la passione e s'impara sempre qualcosa.
Post: 1,278
Registered in: 6/27/2011
Veteran User
excel 2007
OFFLINE
8/16/2019 7:09 AM
 
Modify
 
Delete
 
Quote

Ciao a tutti, [SM=x423028]
ciao Ges64,


ges64, 8/16/2019 1:04 AM:

Ciao Tanimon, ben trovato qui.



Ti ringrazio, ma considerando le nostre date di registrazione a questo Forum, forse, avrei dovuto dirlo io a te.

ges64, 8/16/2019 1:04 AM:

sono un "follower" su diversi altri, italiani stranieri: si alimenta sempre di più la passione e s'impara sempre qualcosa.



sacra e santa verità
[SM=g27811]

Ciao
Frank
Excel 2007

1 - Per "prodotti finiti", ricordo l'esistenza di apposite Software House a pagamento. Questo è un Forum
2 per cortesia, leggi questa e questa discussione.
3 - allega SUL FORUM un file di esempio, chi ti vuole aiutare risparmia tempo, e tu forse hai una soluzione prima di quello che ti aspetti :-)
Usa siti di hosting SOLO in estrema necessità: in caso il server del forum abbia problemi.
4 - Ricordati di condividere le soluzioni che trovi da solo: potrebbero essere utili anche per le persone a cui chiedi aiuto.
Post: 154
Registered in: 10/3/2015
Location: ALBAREDO PER SAN MARCO
Age: 39
Junior User
2003
OFFLINE
8/18/2019 11:40 PM
 
Modify
 
Delete
 
Quote

Ringrazio Taninom e Ges64 rispondo solo ora perché ero in ferie senza pc.Giusto riscontro bravi tutte e 2 Ciao Matteo
Admin Thread: | Close | Move | Delete | Modify | Email Notification Previous page | 1 | Next page
New Thread
 | 
Reply
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Home Forum | Bacheca | Album | Users | Search | Log In | Register | Admin
Tutti gli orari sono GMT+01:00. Adesso sono le 2:39 AM. : Printable | Mobile | Regolamento | Privacy
FreeForumZone [v.5.0.0] - Copyright © 2000-2019 FFZ srl - www.freeforumzone.com