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
265
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
SDP jo 100 % suositumpi kuin persut
Kertoo Hesarin uusin kannatuskysely. Demareiden kannatus on miltei tuplat verrattuna persuihinl. Suomen kansa ei selväst21214165Ikävä sinua mies
Vuosia kuluu, mutta tunteet ei ole hävinnyt. Tasoittuneet toki, kun ei olla nähty. Järki palannut päähän kuitenkin. Se i555797Mikä tämä henkilö mahtaa touhuta Parkanossa
Kamalaa https://www.ylasatakunta.fi/teksti/pirkanmaan-karajaoikeus-vangitsi-koiran-tappamisesta-epaillyn-6.68.127794.b58694983Orpo: Velkajarrua vastustavaa puoluetta vaikea ajatella hallitukseen
No Minja Koskelan kommunistipuolue jäi ulos tuosta. Kaikki eduskuntapuolueet vasemmistoliittoa lukuun ottamatta sopivat2863902PS ylivoimainen nousija myös HS:n gallupissa, SDP laskee taas
https://www.verkkouutiset.fi/a/hs-gallup-sdpn-suosio-laskee-ps-nousussa/#0a7d2507 Ylivoimainen viime kuukausien nousija1203634Valtavasti suomalaisia asunnottomina, mutta ei yhtään somalia
tai muuta kehitysmaalaista. Mites tässä näin kävi? Tiedän hyvin, että esim. somaleita lentää ulos mm. Hekan asunnoista,1373617Hienoa! Eduskunta luopui käteisen käytöstä
Nyt tuo sama muutos pitää saada myös muuhun yhteiskuntaan. Käteistähän ei tarvitse tänä päivänä enää kuin rikolliset.852140Maajussi-Ville herättää kysymyksiä - Etsiikö oikeasti rakkautta vai mainostaako oliiviöljyä?
Mitä mieltä olet: etsiikö Ville rakkautta vai mainostaako oliiviöljyään? Maajussille morsian -ohjelmassa yksi maajusseis171487Kovia syytöksiä Stefan Thermaninsta.
Jättänyt taas maksamatta kohuliikemies, hupparit ja muita ostamiaan tavaroita. On soiteltu liikkeestä ja Stefan iskenyt1581281Totuuspuolueen johtaja Jaana "prinsessa Leia" Kavonius on vangittu
Kavonius määrättiin jo keväällä 2024 poissaolevana vangittavaksi todennäköisin syin epäiltynä 13 vainoamisesta ja 24 kun3011203