Taulukko toistaminen?

Ignorantti

Tässä itsellä taito loppui eikä tunnu mikään auttavan..

Eli tarvitsisin kaavan joka toistaisi taul 2 tietyissä soluissa olevat tekstit ja summat.. taul 1 määritettyjen kertojen lkm mukaan..

kertojen lkm on taul1 kohdassa B18

taul1 pitäisi saada A18 kohdasta kopioitua lukumäärän mukaan taul2:seen välille D20-D44
samalla menetelmällä C18 kohdasta I20-I44
Samaa toistaen E18 kohdasta välille J20-J44

Eli vielä tarkentaakseni.. B18 on käyntien lukumäärä ja vain tätä muuttamalla muuttuisivat taulukko 2 tiedot.. Olisin todella kiitollinen jos joku pystyisi avustamaan tässä :)

4

281

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      vaihda taulukon nimi sopivaksi nyt "Sheet2"
      taulukon moduuliin...

      Private Sub Worksheet_Change(ByVal Target As Range)

      If Not Application.Intersect(Target, Range("B18")) Is Nothing Then
      Täytä
      End If
      End Sub

      moduuliin...

      Sub Täytä()
      On Error Resume Next
      Application.ScreenUpdating = False
      Range("Sheet2!D20:D44 ") = ""
      Range("Sheet2!I20:I44 ") = ""
      Range("Sheet2!J20:J44 ") = ""
      Range("A18").Copy
      Sheets("Sheet2").Range("D20").PasteSpecial Paste:=xlPasteValues
      Range("C18").Copy
      Sheets("Sheet2").Range("I20").PasteSpecial Paste:=xlPasteValues
      Range("E18").Copy
      Sheets("Sheet2").Range("J20").PasteSpecial Paste:=xlPasteValues

      Sheets("Sheet2").Range("D20").AutoFill Destination:=Range("Sheet2!D20:D" & 19 Range("B18")), Type:=xlFillDefault
      Sheets("Sheet2").Range("I20").AutoFill Destination:=Range("Sheet2!I20:I" & 19 Range("B18")), Type:=xlFillDefault
      Sheets("Sheet2").Range("J20").AutoFill Destination:=Range("Sheet2!J20:J" & 19 Range("B18")), Type:=xlFillDefault
      Application.ScreenUpdating = True
      End Sub

      • ignorantti

        Olen nyt laittanut kyseisen koodin sheet 1 codeen vaihdoin nimet heti koska halusin nähdä toimiiko..
        Tuli sellainen ongelma että kyseinen kopiointi tapahtuu vain yhden kerran ei jokaiselle riville (siis alaspäin) Mikäköhän toiminnassani mättää?

      • kunde
        ignorantti kirjoitti:

        Olen nyt laittanut kyseisen koodin sheet 1 codeen vaihdoin nimet heti koska halusin nähdä toimiiko..
        Tuli sellainen ongelma että kyseinen kopiointi tapahtuu vain yhden kerran ei jokaiselle riville (siis alaspäin) Mikäköhän toiminnassani mättää?

        viestissäni lukee erikseen moduulien paikat
        taulukon moduuliin...
        ja moduuliin...
        eli alla oleva tavalliseen moduuliin, EI taulukon moduuliin ja taatusti pelittäää

        moduuliin...

        Sub Täytä()
        On Error Resume Next
        Application.ScreenUpdating = False
        Range("Sheet2!D20:D44 ") = ""
        Range("Sheet2!I20:I44 ") = ""
        Range("Sheet2!J20:J44 ") = ""
        Range("A18").Copy
        Sheets("Sheet2").Range("D20").PasteSpecial Paste:=xlPasteValues
        Range("C18").Copy
        Sheets("Sheet2").Range("I20").PasteSpecial Paste:=xlPasteValues
        Range("E18").Copy
        Sheets("Sheet2").Range("J20").PasteSpecial Paste:=xlPasteValues

        Sheets("Sheet2").Range("D20").AutoFill Destination:=Range("Sheet2!D20:D" & 19 Range("B18")), Type:=xlFillDefault
        Sheets("Sheet2").Range("I20").AutoFill Destination:=Range("Sheet2!I20:I" & 19 Range("B18")), Type:=xlFillDefault
        Sheets("Sheet2").Range("J20").AutoFill Destination:=Range("Sheet2!J20:J" & 19 Range("B18")), Type:=xlFillDefault
        Application.ScreenUpdating = True
        End Sub

      • ignorantti
        kunde kirjoitti:

        viestissäni lukee erikseen moduulien paikat
        taulukon moduuliin...
        ja moduuliin...
        eli alla oleva tavalliseen moduuliin, EI taulukon moduuliin ja taatusti pelittäää

        moduuliin...

        Sub Täytä()
        On Error Resume Next
        Application.ScreenUpdating = False
        Range("Sheet2!D20:D44 ") = ""
        Range("Sheet2!I20:I44 ") = ""
        Range("Sheet2!J20:J44 ") = ""
        Range("A18").Copy
        Sheets("Sheet2").Range("D20").PasteSpecial Paste:=xlPasteValues
        Range("C18").Copy
        Sheets("Sheet2").Range("I20").PasteSpecial Paste:=xlPasteValues
        Range("E18").Copy
        Sheets("Sheet2").Range("J20").PasteSpecial Paste:=xlPasteValues

        Sheets("Sheet2").Range("D20").AutoFill Destination:=Range("Sheet2!D20:D" & 19 Range("B18")), Type:=xlFillDefault
        Sheets("Sheet2").Range("I20").AutoFill Destination:=Range("Sheet2!I20:I" & 19 Range("B18")), Type:=xlFillDefault
        Sheets("Sheet2").Range("J20").AutoFill Destination:=Range("Sheet2!J20:J" & 19 Range("B18")), Type:=xlFillDefault
        Application.ScreenUpdating = True
        End Sub

        Kiitoksia todella paljon!!
        Nyt loppui monen päivän taistelu :D Tosiaan koskaan ole näitä moduuli hommia värkkäillyt niin todella paljon häiritsi tuo moduuliin.. ja sehän se sekottikin :)

        Kiitos ja kumarrus kundelle :)

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Vuonna 2026 jää entistä vähemmän rahaa käteen palkansaajille

      Työttömyysvakuutusmaksu nousee 0,3 prosenttia. Työeläkemaksu nousee 7,15 prosentista 7,3 prosenttiin. Työmarkkinajärjest
      Maailman menoa
      121
      7266

    2. Suomen kansa puhunut: Purra huonoimpia ministereitä

      Kouluarvosanalla 6–, eli samaa tasoa mitä Purran oikeakin koulutodistus. Epäpätevyys on tullut huomattua Suomen talouden
      Maailman menoa
      496
      5408

    3. Mitä aiot tehdä uudenvuoden aattona

      Mitä olet suunnitellut tekeväsi uudenvuoden aattona ja aiotko ensi vuonna tehdä jotain muutoksia tai uudenvuoden lupauks
      Sinkut
      151
      3335

    4. Joulun ruokajonoissa entistä enemmän avuntarvitsijoita - Mitä ajatuksia tämä herättää?

      Räppärit Mikael Gabriel, VilleGalle ja Jare Brand jakoivat ruokaa ja pehmeitäkin paketteja vähävaraisille jouluaattoa ed
      Maailman menoa
      216
      2641

    5. Marin sitä, Marin tätä, yhyy yhyy, persut jaksaa vollottaa

      On nuo persut kyllä surkeaa porukkaa. Edelleen itkevät jonkun Marinin perään, vaikka itse ovat tuhonneet Suomen kansan t
      Maailman menoa
      49
      2350

    6. Varsinainen vetonaula tämä Pyhäjärven keskustelupalsta

      Lisää kummasti muuttohaluja, kun lukee tätä foorumia. Tosin väärään suuntaan. Marraskuuhun mennessä tämä vähäinenkin vä
      Pyhäjärvi
      68
      1288

    7. Pituuden mittaaminen

      Ihmisen pituuden mittaaminen ja puolikkaat senttimetrit. Kuuluuko ne puolikkaatkin sentit tai millit teistä ilmoittaa m
      Sinkut
      43
      1282

    8. En tiedä enää

      Pitäiskö mun koittaa vältellä sua vai mitä? Oon välillä ollut hieman mustasukkainen, myönnän. En ymmärrä miksi en saa su
      Ikävä
      77
      1252

    9. Muistattekos kuinka persujen Salainen Akentti kävi Putinin leirillä

      Hakemassa jamesbondimaista vakoiluoppia paikan päällä Venäjällä? Siitä ei edes Suomea suojeleva viranomainen saanut puhu
      Maailman menoa
      11
      1169

    10. Mitäköhän vuosi

      2026 tuo tullessaan?
      Ikävä
      111
      1143
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt