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

291

Ää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. Persujen vaalilupaus oli euron bensa

      Nyt puhutaan jo kolmen euron bensasta. Kyseessä on Suomen historian törkein vaalipetos.
      Maailman menoa
      92
      2137

    2. Vain vasemmistohallitus saa minut menemään töihin

      Änkyräkapitalistien sortaessa kansaa en laita rikkaakaan ristiin. Elän mielummin Kelan tuilla, ja jos niitä leikataan, n
      Maailman menoa
      42
      2105

    3. Maataloustuet perittävä korkojen kera takaisin

      Yrittäjiltä jotka ovat myyneet tuotantoaan ulkomaille. Veronmaksajan kustantama tuki on tarkoitettu elintarvikkeiden hi
      Maataloustuki
      50
      1845

    4. Topi osti Askon

      Hieno mies. Pelastaa työpaikkoja. Kiitokset myös emännälleen, joka pitää isännän virkeänä. https://www.is.fi/taloussan
      Maailman menoa
      75
      1370

    5. Mitä kirjainta kaipaat?

      Pitkästä aikaa tämmöistä. Onko kirjain muuttunut edellisestä. ☺️
      Ikävä
      86
      1261

    6. Kastaa ja upottaa on eri sanat

      Kastaa ja upottaa on eri sanat ja niillä on eri merkitys. Eikä Jeesusta haudattu upottamalla maahan kaivettuun kuoppaan
      Kaste
      219
      1141

    7. Uskomatonta touhua!

      Ei olis uskonut että kateus yrittäjää kohtaan menee noin pitkälle. TTP:ssa irrotettu sähköjohto jäätelöaltaasta. Kaikki
      Haapavesi
      31
      1070

    8. Oliko se oikeasti epäselvää

      sinulle että olin ihastunut sinuun? (Ymmärrän että siitä on aikaa, eikä voi olettaa että kaikkea muistaisi tai että men
      Ikävä
      56
      1013

    9. Miten hän sinua katsoi?

      😊😊😊😊😊😊
      Ikävä
      67
      946

    10. Miksi eduskuntatalon portaille sytyttään tänään 8 645 kynttilää?

      Oikeus elämään ry järjestää lauantaina 21.3.2026 tapahtuman, jossa Eduskuntatalon portaille sytytetään 8 645 kynttilää.
      Luterilaisuus
      284
      906
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt