Solun transponointi sarakkeeseen

JariM

2007-11-13 11:24:54

Hei,

Tiedoston Taul1 sisältää X riviä tietoa, jokaisella rivillä tietoa on soluissa A:K. Tiedot pitäisi kopioda samaisen tiedoston välilehteen Taul2 sarakkeeseen B niin että yhden rivin tiedot ovat soluissa B1:B11, toisen rivin tiedot soluissa B12:B23, kolmannen rivin tiedot soluissa B24:B35 ja niin edelleen.

Onnistuuko makrolla tuo jotenkin?

2026

Äänestä

Vastaukset

meillä
2007-11-13 12:05:52
>...makrolla tuo jotenkin?

En tiedä Excelistä mutta OpenOfficen Calcilla tuo hoituu ihan functiolla TRANSPOSE.

http://www.openofficetips.com/blog/archives/2004/10/array_formulas.html
- JariM
  2007-11-13 12:10:17
  Tuo ei skulaa ja sama transponointi onnistuu kyllä Excelissäkin, mutta ongelmaksi tässä muodostuu se, että makron pitäisi transponoida tiedot yhteen sarakkeeseen. Antamassasi esimerkissähän on aivan normaali transponointi, jolloin tiedot kopioituvat kolmelta riviltä kolmeen sarakkeeseen. Tarvitsisin siis jonkin VBA-koodin millä vaikka 250 rivistä saataisiin tiedot kopioitua yhdelle sarakkeelle.
- niin.
  2007-11-13 12:23:47
  JariM kirjoitti:
  Tuo ei skulaa ja sama transponointi onnistuu kyllä Excelissäkin, mutta ongelmaksi tässä muodostuu se, että makron pitäisi transponoida tiedot yhteen sarakkeeseen. Antamassasi esimerkissähän on aivan normaali transponointi, jolloin tiedot kopioituvat kolmelta riviltä kolmeen sarakkeeseen. Tarvitsisin siis jonkin VBA-koodin millä vaikka 250 rivistä saataisiin tiedot kopioitua yhdelle sarakkeelle.
  Sorry, luin kysymyksesi hätäisesti. :(
rpo
2007-11-13 18:07:23
saat yhdistettyä tietosi yhteen sarakkeeseen.

Sub YhdistäTiedot()
Dim tArr As Variant
Dim i As Integer
Dim Kohderivi As Integer

tArr = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K")

Sheets("Taul1").Select
Kohderivi = 1

For i = 0 To 10
If i > 0 Then Kohderivi = 2
Range(tArr(i) & "1:" & tArr(i) & Range(tArr(i) & "65536").End(xlUp).Row).Copy _
Destination:=Worksheets("Taul2").Cells(Rows.Count, "B").End(xlUp)(Kohderivi)
Next i
End Sub
- JariM
  2007-11-13 19:25:08
  Tuo on jo niin lähellä, mutta silti niin kaukana. Tuo laittoi Taul2 soluun B1 lähtien Taul1:n kaikki sarakkeen A tiedot allekkain, sitten sarakkeen B tiedot allekkain jne.
  
  Jos Taul1:ssä on jokaisella rivillä Tulos, Sukunimi, Etunimi, Osoite jne. niin ne pitäisi saada siis allekkain niin että ensiksi on ensimmäisen rivin Tulos, Sukunimi, Etunimi, Osoite... ja ja vasta sitten toisen Tulos, Sukunimi, Etunimi jne.
- kunde
  2007-11-13 20:12:46
  JariM kirjoitti:
  Tuo on jo niin lähellä, mutta silti niin kaukana. Tuo laittoi Taul2 soluun B1 lähtien Taul1:n kaikki sarakkeen A tiedot allekkain, sitten sarakkeen B tiedot allekkain jne.
  
  Jos Taul1:ssä on jokaisella rivillä Tulos, Sukunimi, Etunimi, Osoite jne. niin ne pitäisi saada siis allekkain niin että ensiksi on ensimmäisen rivin Tulos, Sukunimi, Etunimi, Osoite... ja ja vasta sitten toisen Tulos, Sukunimi, Etunimi jne.
  Sub Transponoi()
  Dim vika As Integer
  Dim solu As Range
  Worksheets("Taul2").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  For Each solu In Range("Taul1!A1:A" & vika)
  solu.Resize(1, 11).Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Next
  Application.CutCopyMode = False
  End Sub
  
  keep Exceling ;-)
  @Kunde
- JariM
  2007-11-13 20:20:49
  kunde kirjoitti:
  Sub Transponoi()
  Dim vika As Integer
  Dim solu As Range
  Worksheets("Taul2").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  For Each solu In Range("Taul1!A1:A" & vika)
  solu.Resize(1, 11).Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Next
  Application.CutCopyMode = False
  End Sub
  
  keep Exceling ;-)
  @Kunde
  Aivan mahtavaa, kiitoksia =)
- JariM
  2007-11-14 11:10:37
  kunde kirjoitti:
  Sub Transponoi()
  Dim vika As Integer
  Dim solu As Range
  Worksheets("Taul2").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  For Each solu In Range("Taul1!A1:A" & vika)
  solu.Resize(1, 11).Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Next
  Application.CutCopyMode = False
  End Sub
  
  keep Exceling ;-)
  @Kunde
  Hei,
  
  vielä pitäisi pikkaisen virittäää makroa edellisen pohjalta. Tiedoston Taul1:ssä sarakkeessa A on siis Tulos ja tuloksen kanssa samalla rivillä henkilön tiedot. Mitenkä saan alla olevan makron pohjalta tiedot eriteltyä kolmeen eri välilehteen niin että
  - Taul2:n sarakkeeseen B siirtyvät allekkain niiden rivien tiedot joissa tuloksena (Taul1:n sarake A) on Ympyrä
  - Taul3:n sarakkeeseen B ne, joissa tuloksena on Kolmio ja
  - Taul4:n sarakkeeseen B ne rivit joissa tuloksena on Neliö
  
  Alla on nimimerkin kunde tekemä makro:
  Sub Transponoi()
  Dim vika As Integer
  Dim solu As Range
  Worksheets("Taul2").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  For Each solu In Range("Taul1!A1:A" & vika)
  solu.Resize(1, 11).Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Next
  Application.CutCopyMode = False
  End Sub
- kunde
  2007-11-14 13:46:42
  JariM kirjoitti:
  Hei,
  
  vielä pitäisi pikkaisen virittäää makroa edellisen pohjalta. Tiedoston Taul1:ssä sarakkeessa A on siis Tulos ja tuloksen kanssa samalla rivillä henkilön tiedot. Mitenkä saan alla olevan makron pohjalta tiedot eriteltyä kolmeen eri välilehteen niin että
  - Taul2:n sarakkeeseen B siirtyvät allekkain niiden rivien tiedot joissa tuloksena (Taul1:n sarake A) on Ympyrä
  - Taul3:n sarakkeeseen B ne, joissa tuloksena on Kolmio ja
  - Taul4:n sarakkeeseen B ne rivit joissa tuloksena on Neliö
  
  Alla on nimimerkin kunde tekemä makro:
  Sub Transponoi()
  Dim vika As Integer
  Dim solu As Range
  Worksheets("Taul2").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  For Each solu In Range("Taul1!A1:A" & vika)
  solu.Resize(1, 11).Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Next
  Application.CutCopyMode = False
  End Sub
  Sub Transponoi()
  Dim vika As Integer
  Dim solu As Range
  Worksheets("Taul2").Range("B:B") = ""
  Worksheets("Taul3").Range("B:B") = ""
  Worksheets("Taul4").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  For Each solu In Range("Taul1!A1:A" & vika)
  solu.Offset(0, 1).Resize(1, 11).Copy
  Select Case LCase(solu)
  Case "ympyrä"
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Case "neliö"
  Range("Taul3!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Case "kolmio"
  Range("Taul4!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Case Else
  End Select
  Next
  Application.CutCopyMode = False
  End Sub
- macroista_tietämätön
  2011-01-26 15:38:50
  kunde kirjoitti:
  Sub Transponoi()
  Dim vika As Integer
  Dim solu As Range
  Worksheets("Taul2").Range("B:B") = ""
  Worksheets("Taul3").Range("B:B") = ""
  Worksheets("Taul4").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  For Each solu In Range("Taul1!A1:A" & vika)
  solu.Offset(0, 1).Resize(1, 11).Copy
  Select Case LCase(solu)
  Case "ympyrä"
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Case "neliö"
  Range("Taul3!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Case "kolmio"
  Range("Taul4!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Case Else
  End Select
  Next
  Application.CutCopyMode = False
  End Sub
  Terve!
  
  Sellaista olisin kysellyt, että mitenkäs jos haluaisi tuosta viestiketjun alussa olevasta esimerkistä
  ottaa tuohon transponointiin vaikka vain A ja C sarakkeet. Eli tuo alla oleva makro toimii muuten mutta, pitäisi saada otettua vain osa sarakkeista mukaan?
  
  Alla on nimimerkin kunde tekemä makro:
  Sub Transponoi()
  Dim vika As Integer
  Dim solu As Range
  Worksheets("Taul2").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  For Each solu In Range("Taul1!A1:A" & vika)
  solu.Resize(1, 11).Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Next
  Application.CutCopyMode = False
  End Sub
- kunde
  2011-01-27 03:28:06
  macroista_tietämätön kirjoitti:
  Terve!
  
  Sellaista olisin kysellyt, että mitenkäs jos haluaisi tuosta viestiketjun alussa olevasta esimerkistä
  ottaa tuohon transponointiin vaikka vain A ja C sarakkeet. Eli tuo alla oleva makro toimii muuten mutta, pitäisi saada otettua vain osa sarakkeista mukaan?
  
  Alla on nimimerkin kunde tekemä makro:
  Sub Transponoi()
  Dim vika As Integer
  Dim solu As Range
  Worksheets("Taul2").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  For Each solu In Range("Taul1!A1:A" & vika)
  solu.Resize(1, 11).Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Next
  Application.CutCopyMode = False
  End Sub
  Sub Transponoi()
  Dim vika As Integer
  Dim solu As Range
  
  Worksheets("Taul2").Range("B:B") = ""
  
  'a- sarake
  vika = Range("Taul1!A65536").End(xlUp).Row
  For Each solu In Range("Taul1!A1:A" & vika)
  solu.Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Next
  
  'c sarake
  vika = Range("Taul1!C65536").End(xlUp).Row
  For Each solu In Range("Taul1!C1:C" & vika)
  solu.Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Next
  
  Application.CutCopyMode = False
  End Sub
  
  Keep EXCELling
  @Kunde
- macroista_tietämätön
  2011-01-27 07:06:28
  kunde kirjoitti:
  Sub Transponoi()
  Dim vika As Integer
  Dim solu As Range
  
  Worksheets("Taul2").Range("B:B") = ""
  
  'a- sarake
  vika = Range("Taul1!A65536").End(xlUp).Row
  For Each solu In Range("Taul1!A1:A" & vika)
  solu.Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Next
  
  'c sarake
  vika = Range("Taul1!C65536").End(xlUp).Row
  For Each solu In Range("Taul1!C1:C" & vika)
  solu.Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Next
  
  Application.CutCopyMode = False
  End Sub
  
  Keep EXCELling
  @Kunde
  Tuo edellinen kunde:n tekemä makro laittoi sarakkeen A tiedot ensin Taul2 sarakkeeseen B
  ja siihen perään sarakkeen c tiedot.
  
  Tarkoitin, että Taul2 sarakkeeseen B tulisi ensin Taul1 solun A1 tieto, sitten solun C1, sitten
  A2, sitten C2.
  
  kiitoksia kaikista neuvoista.
- kunde
  2011-01-27 08:54:10
  macroista_tietämätön kirjoitti:
  Tuo edellinen kunde:n tekemä makro laittoi sarakkeen A tiedot ensin Taul2 sarakkeeseen B
  ja siihen perään sarakkeen c tiedot.
  
  Tarkoitin, että Taul2 sarakkeeseen B tulisi ensin Taul1 solun A1 tieto, sitten solun C1, sitten
  A2, sitten C2.
  
  kiitoksia kaikista neuvoista.
  Sub Transponoi()
  Dim vika As Integer
  Dim solu As Range
  Worksheets("Taul2").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  For Each solu In Range("Taul1!A1:C" & vika)
  solu.Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Next
  Application.CutCopyMode = False
  End Sub
- macroista_tietämätön
  2011-01-27 09:53:16
  kunde kirjoitti:
  Sub Transponoi()
  Dim vika As Integer
  Dim solu As Range
  Worksheets("Taul2").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  For Each solu In Range("Taul1!A1:C" & vika)
  solu.Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Next
  Application.CutCopyMode = False
  End Sub
  kunde,
  
  tuo edellinen makro toimii muuten, mutta siihen tulee se b sarake mukaan,
  vaikka se pitäisi jättää pois. Eli ainoastaan a ja c pitäisi tulla
- kunde
  2011-01-28 02:47:39
  macroista_tietämätön kirjoitti:
  kunde,
  
  tuo edellinen makro toimii muuten, mutta siihen tulee se b sarake mukaan,
  vaikka se pitäisi jättää pois. Eli ainoastaan a ja c pitäisi tulla
  Sub Transponoi()
  Dim vika As Long
  Dim vika2 As Long
  Dim solu As Range
  Worksheets("Taul2").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  vika2 = Range("Taul1!C65536").End(xlUp).Row
  If vika < vika2 Then
  vika = vika2
  End If
  For Each solu In Range("A1:A" & vika)
  solu.Copy Range("Taul2!B65536").End(xlUp).Offset(1, 0)
  solu.Offset(0, 2).Copy Range("Taul2!B65536").End(xlUp).Offset(1, 0)
  Next
  Application.CutCopyMode = False
  End Sub
- macroista_tietämätön
  2011-01-31 09:40:04
  kunde kirjoitti:
  Sub Transponoi()
  Dim vika As Long
  Dim vika2 As Long
  Dim solu As Range
  Worksheets("Taul2").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  vika2 = Range("Taul1!C65536").End(xlUp).Row
  If vika < vika2 Then
  vika = vika2
  End If
  For Each solu In Range("A1:A" & vika)
  solu.Copy Range("Taul2!B65536").End(xlUp).Offset(1, 0)
  solu.Offset(0, 2).Copy Range("Taul2!B65536").End(xlUp).Offset(1, 0)
  Next
  Application.CutCopyMode = False
  End Sub
  Hei,
  
  pientä viilausta vielä. Edellinen koodi itsessään toimii, mutta osassa kopioitavista soluista on kaavoja jolloin makro kopio koko kaavan ja liitettäessä muuttaa tietysti indeksöintiä. Olisiko makroa mahdollista muokata niin, että se kopioisi ainoastaan solussa olevan lopputuloksen eikä kaavaa.
- kunde
  2011-01-31 16:57:36
  macroista_tietämätön kirjoitti:
  Hei,
  
  pientä viilausta vielä. Edellinen koodi itsessään toimii, mutta osassa kopioitavista soluista on kaavoja jolloin makro kopio koko kaavan ja liitettäessä muuttaa tietysti indeksöintiä. Olisiko makroa mahdollista muokata niin, että se kopioisi ainoastaan solussa olevan lopputuloksen eikä kaavaa.
  Sub Transponoi()
  Dim vika As Long
  Dim vika2 As Long
  Dim solu As Range
  On Error Resume Next
  Application.ScreenUpdating = False
  Worksheets("Taul2").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  vika2 = Range("Taul1!C65536").End(xlUp).Row
  If vika < vika2 Then
  vika = vika2
  End If
  For Each solu In Range("A1:A" & vika)
  solu.Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
  solu.Offset(0, 2).Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
  Next
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
  End Sub
- macroista_tietämätön
  2011-02-01 10:11:07
  kunde kirjoitti:
  Sub Transponoi()
  Dim vika As Long
  Dim vika2 As Long
  Dim solu As Range
  On Error Resume Next
  Application.ScreenUpdating = False
  Worksheets("Taul2").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  vika2 = Range("Taul1!C65536").End(xlUp).Row
  If vika < vika2 Then
  vika = vika2
  End If
  For Each solu In Range("A1:A" & vika)
  solu.Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
  solu.Offset(0, 2).Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
  Next
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
  End Sub
  kiitoksia kundelle erittäin paljon vastauksista, nyt toimii täydellisesti!
- macroista_tietämätön
  2011-02-01 16:18:23
  macroista_tietämätön kirjoitti:
  kiitoksia kundelle erittäin paljon vastauksista, nyt toimii täydellisesti!
  Iloitsin sitten liian aikaisin täydellisestä toiminnasta, C sarakkeen arvot hiukan muuttuivat. Osassa C sarakkeen soluissa kaavan lopputulokseksi tulee #N/A, nämä solut pitäisi jättää kopiomatta, mutta kohteena olevaan B sarakkeeseen ei saisi tulla tyhjää solua.
  
  Esimerkkinä: A1=1, C1=5 B1=1
  A2=2, C2=#N/A B2=5
  A3=3, C3=7 B3=2
  B4=3
  B5=7
- kunde
  2011-02-02 02:27:19
  macroista_tietämätön kirjoitti:
  Iloitsin sitten liian aikaisin täydellisestä toiminnasta, C sarakkeen arvot hiukan muuttuivat. Osassa C sarakkeen soluissa kaavan lopputulokseksi tulee #N/A, nämä solut pitäisi jättää kopiomatta, mutta kohteena olevaan B sarakkeeseen ei saisi tulla tyhjää solua.
  
  Esimerkkinä: A1=1, C1=5 B1=1
  A2=2, C2=#N/A B2=5
  A3=3, C3=7 B3=2
  B4=3
  B5=7
  Sub Transponoi()
  Dim vika As Long
  Dim vika2 As Long
  Dim solu As Range
  On Error Resume Next
  Application.ScreenUpdating = False
  Worksheets("Taul2").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  vika2 = Range("Taul1!C65536").End(xlUp).Row
  If vika < vika2 Then
  vika = vika2
  End If
  For Each solu In Range("A1:A" & vika)
  solu.Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
  If Not solu.Offset(0, 2).Text = "#N/A" Then
  solu.Offset(0, 2).Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
  End If
  Next
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
  End Sub
  
  Keep EXCELling
  @Kunde
- macroista_tietämätön
  2011-02-02 10:24:33
  kunde kirjoitti:
  Sub Transponoi()
  Dim vika As Long
  Dim vika2 As Long
  Dim solu As Range
  On Error Resume Next
  Application.ScreenUpdating = False
  Worksheets("Taul2").Range("B:B") = ""
  vika = Range("Taul1!A65536").End(xlUp).Row
  vika2 = Range("Taul1!C65536").End(xlUp).Row
  If vika < vika2 Then
  vika = vika2
  End If
  For Each solu In Range("A1:A" & vika)
  solu.Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
  If Not solu.Offset(0, 2).Text = "#N/A" Then
  solu.Offset(0, 2).Copy
  Range("Taul2!B65536").End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
  End If
  Next
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
  End Sub
  
  Keep EXCELling
  @Kunde
  Toimii! kiitoksia jälleen kerran.

Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

Takaisin ylös

Luetuimmat keskustelut

Orpo hiiri kadoksissa, Marin jo kommentoi
Kuinka on valtiojohto hukassa, kun vihollinen Grönlantia valloittaa? Putinisti Purra myös hiljaa kuin kusi sukassa.
19.01.2026 19:53Maailman menoa
117
6319
Lopeta jo pelleily, tiedän kyllä mitä yrität mies
Et tule siinä onnistumaan. Tiedät kyllä, että tämä on just sulle. Sä et tule multa samaan minkäänlaista responssia, kosk
19.01.2026 11:19Ikävä
379
6125
Nuori lapualainen nainen tapettu Tampereella?
Työmatkalainen havahtui erikoiseen näkyyn hotellin käytävällä Tampereella – tämä kaikki epäillystä hotellisurmasta tie
19.01.2026 15:15Lapua
69
5850
Tampereen "empatiatalu" - "Harvoin näkee mitään näin kajahtanutta"
sanoo kokoomuslainen. Tampereen kaupunginvaltuuston maanantain kokouksessa käsiteltävä Tampereen uusi hyvinvointisuunni
19.01.2026 11:10Maailman menoa
344
3952
Lidl teki sen mistä puhuin jo vuosikymmen sitten
Eli asiakkaat saavat nyt "skannata" ostoksensa keräilyvaiheessa omalla älypuhelimellaan, jolloin ei tarvitse mitään eril
19.01.2026 09:10Maailman menoa
145
2355
Ukraina, unohtui korona - Grönlanti, unohtu Ukraina
Vinot silmät, unohtui Suomen valtiontalouden turmeleminen.
20.01.2026 19:20Maailman menoa
4
2335
Orpo pihalla kuin lumiukko
Onneksi pääministerimme ei ole ulkopolitiikassa päättäjiemme kärki. Hänellä on täysin lapsellisia luuloja Trumpin ja USA
19.01.2026 08:34Kansallinen Kokoomus
117
1393
Onko täällä helmessä tapahtunut vakava rikos?
Onko kuullut kukaan mitään.
19.01.2026 14:01Haapavesi
12
1221
Miten kauan sulla menisi
Jos tulisit mun luo tänne nyt kahvinkeittoon?
20.01.2026 14:30Ikävä
182
1052
Miksi me oikein
Rakastuttiin?
20.01.2026 09:46Ikävä
59
877

Solun transponointi sarakkeeseen

Vastaukset

JariM kirjoitti:

JariM kirjoitti:

kunde kirjoitti:

kunde kirjoitti:

JariM kirjoitti:

kunde kirjoitti:

macroista_tietämätön kirjoitti:

kunde kirjoitti:

macroista_tietämätön kirjoitti:

kunde kirjoitti:

macroista_tietämätön kirjoitti:

kunde kirjoitti:

macroista_tietämätön kirjoitti:

kunde kirjoitti:

macroista_tietämätön kirjoitti:

macroista_tietämätön kirjoitti:

kunde kirjoitti:

Luetuimmat keskustelut

Orpo hiiri kadoksissa, Marin jo kommentoi

Lopeta jo pelleily, tiedän kyllä mitä yrität mies

Nuori lapualainen nainen tapettu Tampereella?

Tampereen "empatiatalu" - "Harvoin näkee mitään näin kajahtanutta"

Lidl teki sen mistä puhuin jo vuosikymmen sitten

Ukraina, unohtui korona - Grönlanti, unohtu Ukraina

Orpo pihalla kuin lumiukko

Onko täällä helmessä tapahtunut vakava rikos?

Miten kauan sulla menisi

Miksi me oikein

Suomalainen menestysresepti -järkytys: 100 000 rikottua munaa meni hukkaan

Moni nainen miettii, Vappu Pimiä uskalsi - Tämä yksityiskohta hiuksissa tekee aivan uuden ilmeen!

Oi, mikä ihana uutinen! Sara Sieppi avoimena - Vauva on tainnut tulla tässä isäänsä!

Suomen kolmanneksi rikkain mies sanoo että työelämä tehty liian mukavuudenhaluiseksi?

Karhu-ryhmä on toiminut jo yli 50 vuotta - Mitä tiedät salamyhkäisestä erikoisjoukosta?

Mitä mieltä miehestä

Ilouutinen: Beck-elokuvat tv:ssä tiistaina ja torstaina!

Ylipainoiset naiset ovat kokeneet kiusallisen ilmiön deittaillessa

Orpo pihalla kuin lumiukko

Komiat-yhtye on suomalaisten tanssilavojen suosikki - Nyt UMK:ssa!