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

246

Ää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. Toiselle puolikkaalleni

      Sinulla ei taida olla kaikki nyt ihan hyvin? Minua itketti eilen kauheasti, sinunko itkuja itkin? Kyllä kaikki selviää j
      Ikävä
      42
      2214

    2. Pysy kaukana musta

      Ja kaikista mun läheisistä. Oon tosissani.
      Ikävä
      24
      1740

    3. Katu täyttyy askelista...

      Hyvää sunnuntaita ja hyvää jatkoa jos näin...Vettä sataa, mutta hyvä vaan, ainakin kasveille.
      Ikävä
      27
      1425

    4. Kuvaile kaivattusi

      ulkonäköä. 💡
      Ikävä
      108
      1247

    5. Näin susta unta

      Teit siinä temppuja ja kurkit huomaanko. Niinkuin sun tarttis sitä epäillä. Öitä tuimalle!
      Ikävä
      15
      1219

    6. Mitä hämminkiä Halkokarilla?

      Poliiseja ja ambulansseja pyörii, laukauksia kuultu.
      Kokkola
      18
      1035

    7. Tiedätkö nainen sen tunteen

      Kun toinen tulee jossain vastaan. Naama leviää hymyyn kuin hangonkeksi. Mulla on susta semmonen,tunne.
      Ikävä
      71
      944

    8. Kauniit ihmiset ei ole sinkkuja, se on karu fakta

      Ihmisessä on lähes poikkeuksetta aina jotain vikaa jos hän pysyy sinkkuna pitkään. Sori kun sanon tän näin suoraan, mut
      Ikävä
      107
      864

    9. Kristinusko - epätoivoinen yritys pelastaa ihmiset jumalalta

      Ei ole mitään sellaista, mitä pitää "pelastua". Lukuun ottamatta tietysti ”jumalan” (sen ei jumalan, joka väittää oleva
      Hindulaisuus
      333
      853

    10. Mikset päästä irti ja hae apua

      Mt ongelmiisi. En vaan voi ikinä enää luottaa sinuun, pelkään sinua ja toivon löytäväni jonkun muun. Rahaa sulla on saad
      Ikävä
      74
      846
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt