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

247

Ää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. Mistä puhuitte viimeksi kun näitte

      Kerro yksi aiheista
      Ikävä
      101
      7443

    2. Siekkilässä ajettu ihmisten yli- mitä tapahtui? Länsi-Savo ei ole uutisoinut asiata

      Manneja, vaiko matuja?
      Mikkeli
      80
      5028

    3. Se on hyvästi

      Toivottavasti ei tavata.
      Ikävä
      79
      4859

    4. Olenko saanut sinut koukkuun?

      Hyvä. Rakastan sua.
      Ikävä
      132
      4258

    5. Alavuden sairaala

      Säästääkö Alavuden sairaala sähkössä. Kävin Sunnuntaina vast. otolla. Odotushuone ja käytävä jolla lääkäri otti vastaan
      Ähtäri
      10
      3048

    6. Miksi sä valitsit

      Juuri minut sieltä?
      Ikävä
      52
      2689

    7. Sisäsiittosuus

      Tämän kevään ylioppilaista 90% oli sama sukunimi?
      Suomussalmi
      40
      2586

    8. Kerro nyt rehellisesti fiilikset?

      Rehellinem fiilis
      Suhteet
      50
      2237

    9. Törkeää toimintaa

      Todella törkeitä kaheleita niitä on Ylivieskassakin. https://www.ess.fi/uutissuomalainen/8570818
      Ylivieska
      10
      2211

    10. Suudeltiin unessa viime yönä

      Oltiin jossain rannalla jonkun avolava auton lavalla, jossa oli patja ja peitto. Uni päättyi, kun kömmit viereeni tähtit
      Ikävä
      21
      1840
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt