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

269

Ää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. Tiedätkö, että haluaisin panna

      Sinua. Onko sinulla samanlaiset ajatukset ja tunteet?
      Ikävä
      182
      4300

    2. Hyväksytty kaivattusi

      Vartaloa vai et? Rehellinen vastaus
      Ikävä
      34
      1584

    3. Minulta loppuu aika

      Halusin olla täydellinen. Nyt näyttää siltä että viimeinen kiristys jää puolitiehen, sillä h-hetki on jo ihan kohta käsi
      Ikävä
      40
      1500

    4. Syvälliset keskustelut

      Olisivat tärkeintä ensisijaisesti hänen kanssaan Tulisi sellainen hetki, mutta kaikki meni pieleen
      Ikävä
      25
      1484

    5. Olisipa sitä henkisesti eheämpi ja rohkeampi

      mikään maallinen mammona ei itseäni kiinnosta, eikä sen menetys kiinnostus. Mutta kun kohtaa jonkun sykäyttävän ihmisen,
      Ikävä
      20
      1375

    6. Mitä ajattelet

      Kun näet kaivattuasi?
      Ikävä
      112
      1306

    7. Moi, nainen

      Tunnustan, olen heikkona sun hymyyn, ja sekään ei auta yhtään, että sulla on täydellinen nenä. Joten ensi kerralla, kun
      Ikävä
      30
      1190

    8. Kyllähän tämä vähän kirpaisee

      Mutta oman sisäisen rauhan vuoksi jätän sinut nyt historiaan. Todennäköisesti olet jo sinäkin mennyt eteenpäin. Olipah
      Ikävä
      38
      1187

    9. Nyt on pakko tunnustaa

      AA että on ikävä sinua!!
      Ikävä
      19
      1149

    10. Sulla on uskomaton luonne

      Saat minut hetkessä iloiseksi, tai sanotaan nyt niin, että ajatus sinusta saa sydämeni hyppimään riemusta. En vain saa s
      Ikävä
      44
      1038
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt