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ä :)
Taulukko toistaminen?
Ignorantti
4
294
Vastaukset 4
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ää? 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 SubKiitoksia 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ä.
Luetuimmat keskustelut
Viesti sinulle
Tiedät että tunteet ja ajatukset ja meillä on vahva yhteys mistä molemmat tiedetään. Odotan sinua ☀️481042Mikä on totta mikä ei?
Onko juoru vai ei että nimeltä mainitsematon henkilö on tehnyt naiselle/naisille jotain joka on väärin?17979- 82841
Mitä sinulle on tapahtunut lapsena
Kun olet noin sairas päästäsi? Pikkupojalle ( Miehen kehossa)80759Haluan purkaa vielä tuntemuksia
Tykkään sinusta kovin paljon❤️ olen surullinen tilanteestasi ja siitä mitä me olemme yhdessä joutuneet kokemaan. Tämä ei21737- 59631
Tunteiden käsittely kertoo ihmisestä.
Kun puhutaan "tavallisesta" ihmisestä, joka on suht tasapainoinen eläjä, niin puhutaan oikeastaan taitavasta tunteiden k204627- 102604
Persujen Puhoksen retki
Perussuomalaiset olivat tehneet turistibussimatkan Puhokseen. Tosin raukat olivat niin peloissaan, etteivät uskaltaneet188572- 92550
Jopa poliisi nauraa paskaista pelkuripersuille
Puhoksessa jäi "isänmaantoivot" bussiin vapisemaan :-D https://www.is.fi/politiikka/art-2000012319632.html260481Pilkettä sunnuntain silmässä
😉 Jos tästä ketjusta löytyisi yksi ihminen, joka saisi sut hymyilemään tänään… Millainen hän olisi? Ei tarvitse kerto73461Just saying
Mies joka antaa naiselle turvallisen olon, on seksikäs. Ei kieroja kikkoja ja haluaa olla vain sen yhden naisen mies.85448- 37419
Aika on tuonut järkeä
Sä et tiedä musta kaikkea. Jos tietäisit, ymmärtäisit, miksi me ei sovita yhteen. Öljy ja vesi. En mä ole valehdellut,42403- 5378
- 28377
Persut eivät uskaltaneet tulla ulos
Bussiin jäivät https://www.iltalehti.fi/politiikka/a/d7f9fc57-dca0-40b8-9cb1-156e5872dba9142376- 43372
- 29348