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

276

Ää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. Mieleni harhailee sinussa

      Uskon että tykkäät minusta. On vain yksi elämä. Silti jään paikoilleni ja odotan että jokin muuttuu. Menin palasiksi, ei
      Tunteet
      20
      5353

    2. Taposta murhaksi

      Mitä tästä tapauksesta tiedetään?
      Kajaani
      50
      1391

    3. Grilli lopettaa?

      Pitääkö huhu paikkaansa että grilli lopettaa lähiaikoina?
      Suomussalmi
      11
      817

    4. Olet nuorempi nainen aivan ihana

      Tykkään susta ihan valtavasti ❤️❤️
      Ikävä
      47
      789

    5. Missä olitte kun oli teidän tähän saakka kaunein yhteinen hetki?

      Me olimme rannalla erään kiven päällä❤️
      Ikävä
      58
      788

    6. Pitääkö luovuttaa?

      Sano nyt edes jotain 👾
      Ikävä
      46
      772

    7. Mitä teet nainen

      Jos saat tietää että mies on elänyt yksinäistä ja rauhallista elämää sinua kaivaten, ei ole ollut muiden naisten kanssa,
      Ikävä
      52
      767

    8. Mitä vastaisit

      Jos kysyisin, että lähdettäisiinkö lenkille yhdessä? Vain sinä ja minä, kaksin? Miehelle
      Ikävä
      49
      756

    9. Joko Martinalla uusi aviomies hakusessa

      Onko jo Raya sovellukseen laitettu uusi vetoomus vetämään... ja mistähän maasta mahtaa olla seuraava sulhasehdokas. Suom
      Kotimaiset julkkisjuorut
      132
      745

    10. Onko oikein? Kaikki naiset "jäivät rannalle" Maajussille morsian -pääsarjasta - He ovat mukana!

      JES, Maajussille morsian starttaa ja tiedossa on tuttuun tyyliin kaksi eri ohjelmaa: Maajussille morsian ja Maajussille
      Maajussille morsian
      8
      734
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt