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
274
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
- 13310589
- 525090
Taas ryssittiin oikein kunnolla
r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html432291Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘1052098- 281996
Vanha Suola janottaa Iivarilla
Vanha suola janottaa Siikalatvan kunnanjohtaja Pekka Iivaria. Mies kiertää Kemijärven kyläjuhlia ja kulttuuritapahtumia131631Valtimon Haapajärvellä paatti mäni nurin
Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,411452Tiedän kuka sinä noista olet
Lucky for you, olen rakastunut sinuun joten en reagoi negatiivisesti. Voit kertoa kavereillesi että kyl vaan, rakkautta291124Känniläiset veneessä?
Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v331081Rakastuminenhan on psykoosi
Ei ihme että olen täysin vailla järkeä sen asian suhteen. Eipä olis aikoinaan arvannut, että tossa se tyyppi menee, jonk54997