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?
4
261
Vastaukset
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
- 1581941
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1311754Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1021527Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet171223- 711218
- 681181
- 220978
- 70805
- 45740
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv194723