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

290

Ää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. Vihamielisyys naisia kohtaan on jo yllättävän suuri ongelma

      Esiintyy laajemmassa mittakaavassa, mitä vain tällä palstalla. Mistä tuo ilmiö nyt oikein johtuu, ja saa alkuvoimansa?
      Sinkut
      568
      2633

    2. Odotan sitä hetkeä

      kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh
      Ikävä
      67
      1426

    3. Olen melko vakuuttunut

      etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok
      Ikävä
      83
      1350

    4. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      98
      1347

    5. Leijonat Maailmanmestareita!

      Ihanaa Leijonat, ihanaa!!!
      Maailman menoa
      138
      1236

    6. Minkälaisessa asennossa

      Haluaisit kaivattusi kanssa olla?
      Ikävä
      106
      1139

    7. Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!

      https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro
      Maailman menoa
      134
      1004

    8. Sinä siellä lähistöllä

      Tahtoisin tutustua paremmin 💫
      Ikävä
      48
      920

    9. Miltä ne katseet tuntui?

      😇
      Ikävä
      76
      886

    10. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      47
      861
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt