Hei, Mul on edelleen ongelma taulukkoni kans. En osaa vaik kuinka yritän. Olisko joku ystävällinen ja avulias ja auttas vielä ku näköjää en vaan tajuu. Edelleen tää sama ongelma:
1 |Anna |123 | Cecilia|625
2 |Bertta |234 |Anna |428
3 |Anssi |342 |Anu |253
4 |Cecilia |356 |Jaana |112
ja haluaisin et Taul1:lle tulostuis aina nimen perään ensin monesko eli 1,2,3 jne ja sit luku ja sit seuraavalle kolumnille taas seuraava monesko ja sitluku....jne.
Eli pitäisi näyttää Taul1 jotakuinkin sitten tältä:
Anna | 1 | 123 | 2 |428
Anssi | 3 | 342 | |
Bertta | 2 | 234 | |
Anu | | | 3 |253
Cecilia | 4 | 356 | 1 |625
Jaana | | | 4 |112
.. jne
Mikäs kieli kyseessä?
Hei, exceli taulukkoo yritän saada toimii. ja tällasta visual basic koodia yrittelen, kun täält jo kerra sain apuja, mut en osaa jatkaa tai siis saada tällast toimii niin et se looppais isompaa aineistoo läpi.
Sub Button1_Click() Dim areaT1, areaT2, cellT1, cellT2 Sheets("Sheet2").Activate areaT2 = "B1:B" & CStr(Cells.SpecialCells(xlCellTypeLastCell).Row) Sheets("Sheet1").Activate areaT1 = "A1:A" & CStr(Cells.SpecialCells(xlCellTypeLastCell).Row) For Each cellT1 In Sheets("Sheet1").Range(areaT1) For Each cellT2 In Sheets("Sheet2").Range(areaT2) If cellT1.Value = cellT2.Value Then Cells(cellT1.Row, 3).Value = Sheets("Sheet2").Cells(cellT2.Row, 1).Value End If Next Next Application.ScreenUpdating = True Dim areaT3, areaT4, cellT3, cellT4 Sheets("Sheet2").Activate areaT4 = "B1:B" & CStr(Cells.SpecialCells(xlCellTypeLastCell).Row) Sheets("Sheet1").Activate areaT3 = "A1:A" & CStr(Cells.SpecialCells(xlCellTypeLastCell).Row) For Each cellT3 In Sheets("Sheet1").Range(areaT3) For Each cellT4 In Sheets("Sheet2").Range(areaT4) If cellT3.Value = cellT4.Value Then Cells(cellT3.Row, 4).Value = Sheets("Sheet2").Cells(cellT4.Row, 3).Value End If Next Next
Logiikka on aika omituinen. Mikä on tuon järjestelyn tarkoitus eli mihin pyrit taulukon uudelleen järjestelyllä.
Homman nimi on tällanen: Mul on Taul1 jossa nimiä listattuna (satoja) ja sit toisella worksheetillä taulukko jossa on aina 4 nimeä joiden perässä lukuarvo. Haluaisin, että excel kävis sadan nimen listan läpi ja etsisi aina ne tietyt 4 ja sijoittas sen monesko kyseinen nimi on eli(1,2,3,4)ja niitten perässä olevan luvun aina oikealle kohdalle siihen sadan listaan. Käsityönä aina noitten 4 etsiminen on järjettömän työläst. Vähä ehkä vaikee selkone juttu, mut toivottavast selvens.
Aihe on jo aika vanha, joten et voi enää vastata siihen.