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. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      126
      1720

    2. Miltä ne katseet tuntui?

      😇
      Ikävä
      105
      1205

    3. 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
      138
      1081

    4. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      49
      979

    5. Miten pääsee ujon naisen pään sisään?

      Siis tosi tosi tosi ujon...
      Ikävä
      128
      887

    6. Keitä oli kunnanjohtajan erottajat?

      Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni
      Ilmajoki
      51
      880

    7. Atte Harjanne usuttaa eläkeläisvihaan

      Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v
      Maailman menoa
      240
      858

    8. Helsingin Mäntymäki muuttui Kultajuhlan jälkeen kaatopaikaksi.

      Mitä se kertoo jääkiokosta ja lätkäfaneista? Saikkua huomenna huusi fani yöllä?
      Maailman menoa
      70
      745

    9. Pridekulkue kiellettävä?

      Näin täällä suoraan vaaditaan. Perusteina mitä mielikuvituksellisimmat tarinat. No, miksi ihmeessä kukaan ei ole samalla
      Luterilaisuus
      178
      729

    10. Mä oon tyytyväinen, että ei ole enää tunteita.

      Samalla tajusin, että sun kohdalla tykkäsin enemmän niistä tunteista kuin sinusta persoonana. Halusin väkisin nähdä sinu
      Ikävä
      55
      719
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt