HEI!
Osaisiko joku murskata alla olevan ensimmäisen taulukon alla olevan toisen taulukon kaltaiseksi EXCELILLÄ.
Elikkäs tuossa ekassa on tuo amount ja sen määrän verran tarvisi "kopioida" rivejä.
Amount tietenkin tulisi 1:ksi
PRODUCT COLOR AMOUNT
product1 red 2
product2 blue 3
product3 green 1
product4 yellow 3
PRODUCT COLOR AMOUNT
product1 red 1
product1 red 1
product2 blue 1
product2 blue 1
product2 blue 1
product3 green 1
product4 yellow 1
product4 yellow 1
product4 yellow 1
Osaisiko joku murskata alla olevan ensimmäisen taulukon alla olevan toisen taulukon kaltaiseksi EXCELILLÄ.
Elikkäs tuossa ekassa on tuo amount ja sen määrän verran tarvisi "kopioida" rivejä.
Amount tietenkin tulisi 1:ksi
PRODUCT COLOR AMOUNT
product1 red 2
product2 blue 3
product3 green 1
product4 yellow 3
PRODUCT COLOR AMOUNT
product1 red 1
product1 red 1
product2 blue 1
product2 blue 1
product2 blue 1
product3 green 1
product4 yellow 1
product4 yellow 1
product4 yellow 1
Vastaukset 1
Vanhimmat
Sub KopioiRivit()
Application.ScreenUpdating = False
Sheets("Taul1").Range("A1:C1").Copy Destination:=Sheets("Taul2").Range("A1:C1")
For n = 1 To Range("A65536").End(xlUp).Row
Sheets("Taul1").Activate
If IsNumeric(Range("C" & n)) Then
Tuote = Range("A" & n).Value
Väri = Range("B" & n).Value
Määrä = Range("C" & n).Value
Sheets("Taul2").Activate
For i = 1 To Määrä
SeurRivi = Range("A65536").End(xlUp).Row 1
Range("A" & SeurRivi) = Tuote
Range("B" & SeurRivi) = Väri
Range("C" & SeurRivi) = 1
Next
Else
GoTo 1
End If
1:
Next
End Sub