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
317
Vastaukset 7
- 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
Riikka Purra on mukana Suomen huutokauppakeisari -sarjassa
Suomen huutokauppakeisari on tavallisten suomalaisten ohjelma. Sarjan suosiosta kertoo se, että nyt alkaa jo 19. kausi t1601519Kuuleppas
ensimmäiset naissuhteet toimii miehelle eräänlaisena oppikouluna, mutta hän ei välttämättä itse ymmärrä oppineensa mitää2551083Mulla ei ole Suomessa enää mitään
4 vuotta joutuu asumaan henkisessä vankilassa. Sitten voi muuttaa takaisin ulkomaille.183732- 43701
Provider miehistä..
Tietyt miehet puhuvat ilkeästi naisista, jotka haluavat elää miehen tuloilla. Eikö? Mutta miksi tietyt miehet siitä pah209664Sinulle nainen
En ehkä koskaan osannut sanoa tätä oikein. Minun vaikeuteni luottaa liittyi ennen kaikkea menettämisen pelkoon. Siihen63645- 40566
Ethän voinut nainen tietää, että rikot rikotun
Omaa elämää taas mietin aamuyön tunteina. En vieläkään löytänyt muistin sokkeloista ainuttakaan onnen hetkeä. Kaipuu on66526Hei rakkaani.
Kohtaaminen lähestyy. Miten teemme sen? Kumpi ottaa yhteyttä vai törmäämmekö jossain sattumalta? Tuleva vaimosi45525- 39524
- 32481
Tulisitpa käymään joskus vielä
Olisi niin kiva nähdä pitkästä aikaa. Oletko vielä joskus tulossa?... Niin monet muutoksen tuulet puhaltavat, olisi lohd23469Yt:t kunnassa päättyi
Oliko nämä tarpeelliset ja ratkeaako taloushuolet näiden avulla? Lehdessä ilmoitettujen lukujen perusteella lisää on tul53467- 38460
Lämpimiä katseita aikoinaan vaihdettiin, siihen se sitten jäi
Sinulla uudet tuulet ja välttelet kohtaamistamme.26450Martsusta tuli leuhka
Ja ylimielinen. Hän ei nosta persettäkään ilmaseksi . Luulempa et nämä ei tee hyvää hyvinvointivalmennuksille.... Nannal160449- 6433
- 69431
Kiulu myynnissä!
Kiulu hakee taas uutta yrittäjää. https://www.yritysporssi.fi/etela-pohjanmaa-lansi-suomi-finland/myytavat/yritykset/ma22395- 19394