taulukon arvojen kopiointi toiseen taulukkoon

Siis suodatuksella saa toki yhden kohderyhmän suodatettua, mutta kun ei se nyt oikein auta siihen los problemosiin, että pitäisi saada tietty tuoteryhmä vain ja ainoastaan haettua tietoineen päivineen JA sitten ne viedyksi toiseen taulukkoon. Siis ottaen huomioon, että sinne ensimmäiseen taulukkoon päivitetään aina uusia tuotteita ja nämä pitäisi saada automaattisesti sitten päivittymään sinne omiin ryhmiinsä. Eli siis :D --> joku lisää taulukkoon data uuden tuotteen (esim. antennin, määrittelykoodi 666666) ja tämän tuotteen 666666 pitäisi sitten automaattisesti päivittää itsensä sinne antennit-taulukkooon.

Toki sillä mainitsemallasi suodatuksella olisi iisiä tehdä suodatus esim. antenneista ja sitten kopsata ko. lista sinne antennit-taulukkoon, mutta kun pahoin pelkään että työnantaja ei sitäkään vaivaa halua nähdä :/.

Että näin.

jaapadaapa kirjoitti:

Siis suodatuksella saa toki yhden kohderyhmän suodatettua, mutta kun ei se nyt oikein auta siihen los problemosiin, että pitäisi saada tietty tuoteryhmä vain ja ainoastaan haettua tietoineen päivineen JA sitten ne viedyksi toiseen taulukkoon. Siis ottaen huomioon, että sinne ensimmäiseen taulukkoon päivitetään aina uusia tuotteita ja nämä pitäisi saada automaattisesti sitten päivittymään sinne omiin ryhmiinsä. Eli siis :D --> joku lisää taulukkoon data uuden tuotteen (esim. antennin, määrittelykoodi 666666) ja tämän tuotteen 666666 pitäisi sitten automaattisesti päivittää itsensä sinne antennit-taulukkooon.

Toki sillä mainitsemallasi suodatuksella olisi iisiä tehdä suodatus esim. antenneista ja sitten kopsata ko. lista sinne antennit-taulukkoon, mutta kun pahoin pelkään että työnantaja ei sitäkään vaivaa halua nähdä :/.

Että näin.

Lue lisää

"Toki sillä mainitsemallasi suodatuksella olisi iisiä tehdä suodatus esim. antenneista ja sitten kopsata ko. lista sinne antennit-taulukkoon, mutta kun pahoin pelkään että työnantaja ei sitäkään vaivaa halua nähdä :/. "

en minäkään viitsisi pelleillä phauilla ja suodatuksilla manuaalisesti...

mutta asiaan

en tarkkaan tiedä tuotteiden koodaustasi, mutta allaoleva makro päivittää automaattisesti taulukot ja lisää uuden kun uusi tuote lisätään. Tosta on helppo muunnella tarpeittesi mukaan. Tuotteet on siis sarakkeessa A, josta uudet taulukot tehdään

Datataulukon moduuliin...

rivate Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo virhe
Application.ScreenUpdating = False
Call TeeTaulukot
virhe:
Application.ScreenUpdating = True
End Sub

ja tavalliseen moduuliin...

Sub TeeTaulukot()
Dim Tiedot As Range
Dim solu As Range
Dim Taulukko As Worksheet
Dim AloitusTaulukko As Worksheet
Dim Nimi As String


On Error Resume Next
Application.DisplayAlerts = False
Set AloitusTaulukko = ActiveSheet
AloitusTaulukko.AutoFilterMode = False
Set Tiedot = Range("A1", Range("A65536").End(xlUp))
For Each Taulukko In Worksheets
If Not Taulukko.Name = "Data" Then ' muuta datataulukon nimi sopivaksi
Taulukko.Delete
End If
Next

Worksheets.Add().Name = "HUUHAA"
With Worksheets("HUUHAA")
Tiedot.AdvancedFilter xlFilterCopy, , _
Worksheets("HUUHAA").Range("A1"), True
Set Tiedot = .Range("A1", .Range("A65536").End(xlUp))
End With

With AloitusTaulukko
For Each solu In Tiedot
Nimi = solu
.Range("A1").AutoFilter 1, Nimi
Worksheets.Add().Name = Nimi
.UsedRange.Copy Destination:=ActiveSheet.Range("A1")
ActiveSheet.Cells.Columns.AutoFit
Next solu
End With

With AloitusTaulukko
.AutoFilterMode = False
.Activate
End With

On Error GoTo 0
Worksheets("HUUHAA").Delete
Application.DisplayAlerts = True
End Sub

keep excelling :-)
@Kunde

kunde kirjoitti:

"Toki sillä mainitsemallasi suodatuksella olisi iisiä tehdä suodatus esim. antenneista ja sitten kopsata ko. lista sinne antennit-taulukkoon, mutta kun pahoin pelkään että työnantaja ei sitäkään vaivaa halua nähdä :/. "

en minäkään viitsisi pelleillä phauilla ja suodatuksilla manuaalisesti...

mutta asiaan

en tarkkaan tiedä tuotteiden koodaustasi, mutta allaoleva makro päivittää automaattisesti taulukot ja lisää uuden kun uusi tuote lisätään. Tosta on helppo muunnella tarpeittesi mukaan. Tuotteet on siis sarakkeessa A, josta uudet taulukot tehdään

Datataulukon moduuliin...

rivate Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo virhe
Application.ScreenUpdating = False
Call TeeTaulukot
virhe:
Application.ScreenUpdating = True
End Sub

ja tavalliseen moduuliin...

Sub TeeTaulukot()
Dim Tiedot As Range
Dim solu As Range
Dim Taulukko As Worksheet
Dim AloitusTaulukko As Worksheet
Dim Nimi As String


On Error Resume Next
Application.DisplayAlerts = False
Set AloitusTaulukko = ActiveSheet
AloitusTaulukko.AutoFilterMode = False
Set Tiedot = Range("A1", Range("A65536").End(xlUp))
For Each Taulukko In Worksheets
If Not Taulukko.Name = "Data" Then ' muuta datataulukon nimi sopivaksi
Taulukko.Delete
End If
Next

Worksheets.Add().Name = "HUUHAA"
With Worksheets("HUUHAA")
Tiedot.AdvancedFilter xlFilterCopy, , _
Worksheets("HUUHAA").Range("A1"), True
Set Tiedot = .Range("A1", .Range("A65536").End(xlUp))
End With

With AloitusTaulukko
For Each solu In Tiedot
Nimi = solu
.Range("A1").AutoFilter 1, Nimi
Worksheets.Add().Name = Nimi
.UsedRange.Copy Destination:=ActiveSheet.Range("A1")
ActiveSheet.Cells.Columns.AutoFit
Next solu
End With

With AloitusTaulukko
.AutoFilterMode = False
.Activate
End With

On Error GoTo 0
Worksheets("HUUHAA").Delete
Application.DisplayAlerts = True
End Sub

keep excelling :-)
@Kunde

Lue lisää

Sain itseasiassa homman pelittämään pelkästään makron nauhoituksellakin (tai siltä ainakin vaikuttaa...), mutta tuolle sinun esimerkillesi on kyllä varmasti käyttöä tulevaisuutta ajatellen, joten kiitos siitä :).

Tai ehkä tuota joutuu jo nyt työajalla kokeilemaan ja soveltamaan omaan käyttöön x).