Kopioi solua A1 solussa B1 olevan määrän verran

MaKeKo79

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.

7

252

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      85
      1798
    2. Perusmuotoiset TV-lähetykset loppu

      Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia
      Apua aloittelijalle
      123
      1220
    3. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      62
      1080
    4. No ei sun asunto eikä mikään

      muukaan sussa ole erikoista. 🤣 köyhä 🤣
      Ikävä
      62
      956
    5. Hyvin. Ikävää nainen,

      Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan
      Ikävä
      74
      866
    6. Uskomaton tekninen vaaliliitto poimii rusinoita pullasta

      Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli
      Pyhäjärvi
      81
      817
    7. Katsoin mies itseäni rehellisesti peiliin

      Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.
      Ikävä
      47
      817
    8. Linnasuolla poliisi operaatio

      Kamalaa menoa taas meidän ihanassa kaupungissa. https://www.uutisvuoksi.fi/paikalliset/8646060
      Imatra
      29
      816
    9. Mitä mietit Honey?

      Kulta nainen ❤️❤️
      Ikävä
      57
      810
    10. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      118
      782
    Aihe