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
276
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
Mieleni harhailee sinussa
Uskon että tykkäät minusta. On vain yksi elämä. Silti jään paikoilleni ja odotan että jokin muuttuu. Menin palasiksi, ei205233Jännitän sinua J mies
Ei tästä tulee mitään. Tuskin kaikki olis mennyt näin moneen solmuun, jos olis tarkoitettu meidät yhteen.1271605- 1011470
Kuinka kauan kesti että ihastuit
Kaivattuusi? Jos lasketaan siitä hetkestä alkaen kun näit hänet ensi kerran. Oliko jokin tilanne tai tapahtuma, joka voi701419Orpo suunnittelee palestiinalaislasten Suomeen siirtoa
"Sairaalahoitoa tarvitsevien lasten ottaminen Suomeen on lisäksi selvityksessä, Orpo sanoo. – Jos meillä on mahdolli3361349- 491338
Olen käyttäytynyt sinua kohtaan väärin toistuvasti
Puolustuksekseni täytyy sanoa, että ei ole ollut tahallista vaan seurausta harhaisista luuloista ja ajatuksista. Esimerk761282Tunneälyä testaamaan!
Testi pitää sisällään viisi osa-aluetta. Itse sain täydet tuosta ensimmäisestä eli 25/25. Kokonaispistemäärä oli 100/12541065- 86955
Saanko mies tulla sun kainaloon nukkumaan?
En saa unta kun mietin sua❤️ Saako tulla sun viereen ja käpertyä sun kainaloon?50948