Miten saisi kopioitua automaattisesti solua A1, solussa B1 olevan luvun verran uuteen taulukkoon.
Esim. A1 on luku 100 ja B1 on luku 3. Toiseen taulukkoon pitäisi saada soluihin A1=100, A2=100 ja A3=100.
Kopioi solua A1 solussa B1 olevan määrän verran
7
255
Vastaukset
- Kundepuu
Taul1 solussa A1 siirrettävä luku ja B1 määrä siirretään Taul2 alkaen A1.
Muuta nimet ja solualueet sopivaksi
Sub koe()
With Worksheets("Taul2")
.Range("A:A") = ""
.Range("A1:A" & Worksheets("Taul1").Range("B1")) = Worksheets("Taul1").Range("A1")
End With
Keep EXCELing
@Kunde - MaKeKo79
KIITOS PALJON Kunde.
Miten tämän saman saisi vielä toimimaan niin että Taul1 monella rivillä A1:A10 siirrettävät ja B1:B10 määrät, Kaikki siirtyisi Taul2 A1:A allekkain. - Kundepuu
Sub koe2()
Dim Solu As Range
Dim i As Long
i = 1
With Worksheets("Taul2")
.Range("A:A") = ""
For Each Solu In Worksheets("Taul1").Range("A1:A10")
.Range("A" & i).Resize(Solu.Offset(0, 1)) = Solu
i = i Solu.Offset(0, 1)
Next
End With
keep EXCELing
@Kunde - MaKeKo79
Näyttäisi toimivan hienosti.
KIITOS TAAS KUNDE!!- MaKeKo79
Hei.
saisikohan tämän vielä toimimaan niin että jos määrissä B1:B10 on jossain rivillä tyhjä solu niin osaisi hypätä sen yli, nyt makro ei toimi jos on tyhjiä soluja. Sub koe2()
Dim Solu As Range
Dim i As Long
i = 1
With Worksheets("Taul2")
.Range("A:A") = ""
For Each Solu In Worksheets("Taul1").Range("A1:A10")
If Not Solu.Offset(0, 1) = "" Then
.Range("A" & i).Resize(Solu.Offset(0, 1)) = Solu
i = i Solu.Offset(0, 1)
End If
Next
End With
End Sub
keep EXCELing
@Kunde
- MaKeKo79
Kiitos! nyt toimii täydellisesti.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Ikävöin sinua kokoyön!
En halua odottaa, että voisin näyttää sinulle kuinka paljon rakastan sinua. Toivon, että uskot, että olen varsin hullun453141Kova karman laki
Karman lain kautta pahantekijä tehdessään pahaa toteuttaa koston ja rangaistuksen sille jolle pahaa on tehty. Tämä tarko5081917Päivieni piristys, missä olet?
Toit iloa ja valoa mun elämään ☀️ Nyt mennyt kohta viikko ettei ole nähty. Kaipaan nähdä sua silti ja pelkään vaikka tei171900Näen jatkuvasti Sompasaunalla alastomia miehiä ja naisia
jotka menevät siihen viereiseen rantaan myös uimaan alasti. Sompasaunat on siis Mustikkamaalla Helsingissä, ja kuljen si781690- 181502
Jos sinä olisit pyrkimässä elämääni takaisin
Arvelisin sen johtuvan siitä, että olisit taas polttanut jonkun sillan takanasi. Ei taida löytyä enää kyliltä naista, jo431388- 261322
Millainen kaivattusi luonne on?
Millaisia luonteenpiirteitä arvostat kaivatussa? Oletteko samanlaisia luonteeltanne?901319Helena ja Mikko Koivun ero jatkuu edelleen ja loppua ei näy.
Voi eikä, miksi menee noin vaikeaksi avioero ja sopua ei tää ex- pari vaan saa.1161157UPM suunnittelee paperintuotannon lopettamista LPR:ssa
Ilta-Sanomissa oli uutinen. Metsäyhtiö UPM suunnittelee paperintuotannon lopettamista Kaukaan-tehtaalla Lappeenrannassa1101123