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
MaKeKo79
7
226
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
- 712741
Sä et pääse yli, mä en pääse yli
Jäädäänkö kuinka pitkäksi aikaa kärvistelemään omissa kuplissa näihin tunteisiin vai aletaanko puskemaan jo tätä läpi. V1472150Hei sinä nainen
Haluan olla rehellinen – olet hämmentänyt minua todella paljon. En ota sinusta mitään selvää, ja ehkä juuri siksi huomaa752030Kelan perkeleellinen käytäntö
Kun äiti joutuu hakemaan Kelalta tukia vähien tulojen tähden, niin aina otetaan huomioon lapsen tilillä olevat rahat. Ei2521674- 691433
Mitäs te venäjän puolustajat tekisitte, jos venäjä todella hyökkäisi tänne?
Tää on se mielenkiintoinen kysymys. Tehän olette lähinnä vasemmistolaisia, eikä armeijaa ole käyty, eikä rintamalle mi2991374- 771305
Ellen Jokikunnas ja Jari Rask napauttavat - Tällaisten ihmisten ei kannata muuttaa Italiaan: "Ei..."
Ellen Jokikunnas ja Jari Rask toteuttivat oman unelmansa Italiassa. He ostivat kakkoskodin Italian Pugliasta. Lue lisää381196Miksi kaikki jauhaa KAJ:sta
Se bastulauluhan on todella huono, vanhanaikainen ja oikea junttilaulu. Oikein ällöttää, kun idiootit hehkuttaa sitä ps1251115- 751017