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

243

Äänestä

    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.

      • kunde

        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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa

      En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod
      Ikävä
      22
      5434

    2. Huomenta ihana

      Kauniskasvoinen ihanuus 😘 saan sut vielä
      Ikävä
      27
      4705

    3. Hei rakas...

      Miten on työpäivä sujunut? Rakastan sinua 💗
      Ikävä
      28
      2691

    4. Edelleen sitä on vaikea uskoa

      Että olisit oikeasti rakastunut muhun
      Ikävä
      34
      2334

    5. Toiveikas vai toivoton

      torstai? Ajatuksia?
      Ikävä
      37
      2058

    6. Vitsi mihin menit. Heti takasin.

      Mä näin sut tuu takasin! Oli kiire, niin en ehtiny sin perään!
      Ikävä
      15
      2008

    7. En ole koskaan kokenut

      Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka
      Ikävä
      19
      1637

    8. Mukavaa päivää

      Mun rakkauden kohteelle ❤️ toivottavasti olet onnellinen
      Ikävä
      12
      1581

    9. Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...

      Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons
      Suomalaiset julkkikset
      24
      1390

    10. Ei tämä etene ikinä

      Kun kumpikaan ei enää ota yhteyttä. Mä en ainakaan uskalla.
      Ikävä
      18
      1386
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt