Haluaisiko joku auttaa Visual Bacic:n Makron kanssa, loppui osaaminen!

Alla olevan esimerkin Makro1, kopioi TAULUN A solut B1:B10 TAULUN B:n D1-sarakkeen soluihin B1:B10
Jos lisään TAULUUN A rivejä (B1 ja B10 väliin) esim 5 kpl pitäisi sama makro saada kopioimaan TAULUN A:n rivit B1:B15 TAULUUN B:n D1 solusta alkaen! Ei viitsisi aina muutella jos rivimäärä muuttuu!
Eli Range ("B1:B10").Select jälkimäisen arvon B10 pitäisi muuttua automaattisesti arvoon B15, jos TAULUN A:n rivimäärä kasvaa. RIVI komennoilla saan kyllä selville mm alueen lopun (B15), mutten saa sitä Range ("B1:B10").Select komentoon muutettua minun taidolla!
Etukäteen kiittäen Timo


Sub Makro1()
'
' Makro1 Makro
'
Sheets("Taulu_A").Select
Range ("B1:B10").Select
Selection.Copy

Sheets("Taulu_B").Select
Range ("D1").Select
ActiveSheet.Paste

End Sub

7

1149

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Lisää rivi joka tutkii sarakkeen B viimeisen tietoa sisältävän rivinumeron ja sitten valitse kopioita alue tilanteen mukaisesti:

      Sub Makro1()
      '
      ' Makro1 Makro
      '
      Sheets("Taulu_A").Select
      LastRow = Range("B1").CurrentRegion.Rows.Count
      Range("B1:B" & LastRow).Select
      Selection.Copy

      Sheets("Taulu_B").Select
      Range("D1").Select
      ActiveSheet.Paste

      End Sub

      • Pitää sen verran ottaa takaisin, toimii kyllä jos lisättyihin riveihin täyttää tietoa, mutta jos jäävät tyhjäksi kuten minun oikeassa taulukossa tapahtuu, ei kopioidu kuin siihen asti kuin tietoja on.

        Pitäisi löytää sarakkeen viimeinen tietorivi vaikka välissä on tyhjiä soluja, koska tarve olisi tyhjentää makrolla taulunkon sarake esim riviltä 30 taulukon loppuun! (rivejä poistetaan ja lisätää, eikä kaikille tule aina tietoa)
        Jaksatko vielä avitella?

        Timo


      • Anonyymi
        timidrikuukka kirjoitti:

        Pitää sen verran ottaa takaisin, toimii kyllä jos lisättyihin riveihin täyttää tietoa, mutta jos jäävät tyhjäksi kuten minun oikeassa taulukossa tapahtuu, ei kopioidu kuin siihen asti kuin tietoja on.

        Pitäisi löytää sarakkeen viimeinen tietorivi vaikka välissä on tyhjiä soluja, koska tarve olisi tyhjentää makrolla taulunkon sarake esim riviltä 30 taulukon loppuun! (rivejä poistetaan ja lisätää, eikä kaikille tule aina tietoa)
        Jaksatko vielä avitella?

        Timo

        Sub Makro1()
        '
        ' Makro1 Makro
        '
        Dim Alue As Range
        Dim ViimeinenRivi As Integer
        Dim Lkm As Integer

        Sheets("Taulu_A").Select
        Set Alue = Range("B:B")
        ViimeinenRivi = 0
        Lkm = WorksheetFunction.CountA(Alue)
        Range("B1").Select

        Do Until Lkm = 0

        If ActiveCell.Value <> "" Then
        Lkm = Lkm - 1
        End If

        ViimeinenRivi = ViimeinenRivi 1
        ActiveCell.Offset(1, 0).Select
        Loop

        If ViimeinenRivi > 0 Then
        Range("B1:B" & ViimeinenRivi).Select
        Selection.Copy
        Sheets("Taulu_B").Select
        Range("D1").Select
        ActiveSheet.Paste
        End If

        End Sub


      • Anonyymi kirjoitti:

        Sub Makro1()
        '
        ' Makro1 Makro
        '
        Dim Alue As Range
        Dim ViimeinenRivi As Integer
        Dim Lkm As Integer

        Sheets("Taulu_A").Select
        Set Alue = Range("B:B")
        ViimeinenRivi = 0
        Lkm = WorksheetFunction.CountA(Alue)
        Range("B1").Select

        Do Until Lkm = 0

        If ActiveCell.Value <> "" Then
        Lkm = Lkm - 1
        End If

        ViimeinenRivi = ViimeinenRivi 1
        ActiveCell.Offset(1, 0).Select
        Loop

        If ViimeinenRivi > 0 Then
        Range("B1:B" & ViimeinenRivi).Select
        Selection.Copy
        Sheets("Taulu_B").Select
        Range("D1").Select
        ActiveSheet.Paste
        End If

        End Sub

        Kiitoksia uudelleen!
        Näyttää että osaat homman, joten uskon että toimii tämäkin.

        Ehdin jo ratkaista tyhjennysongelmani aiemmin lähettämälläsi ohjeella niin, että merkkasin yhteen sarakkeeseen jokaisen rivin kohdalle 1 ja sitä saraketta apuna käyttäen sain valittua tyhjennettävän alueen oikean kokoisena, pitää vain huolehtia 1 löytyminen sarakkeen jokaiselta riviltä.

        Kun eläkekiireiltäni ehdin kirjoittelen makrot uudelleen tämän mukaan, niin kaikki hoituu paljon vaivattomammin.

        Hyvää kevään jatkoa!

        Timo


      • Anonyymi kirjoitti:

        Sub Makro1()
        '
        ' Makro1 Makro
        '
        Dim Alue As Range
        Dim ViimeinenRivi As Integer
        Dim Lkm As Integer

        Sheets("Taulu_A").Select
        Set Alue = Range("B:B")
        ViimeinenRivi = 0
        Lkm = WorksheetFunction.CountA(Alue)
        Range("B1").Select

        Do Until Lkm = 0

        If ActiveCell.Value <> "" Then
        Lkm = Lkm - 1
        End If

        ViimeinenRivi = ViimeinenRivi 1
        ActiveCell.Offset(1, 0).Select
        Loop

        If ViimeinenRivi > 0 Then
        Range("B1:B" & ViimeinenRivi).Select
        Selection.Copy
        Sheets("Taulu_B").Select
        Range("D1").Select
        ActiveSheet.Paste
        End If

        End Sub

        Piti testata heti, 10 toimii kuin unelma!


      • Anonyymi
        timidrikuukka kirjoitti:

        Piti testata heti, 10 toimii kuin unelma!

        Hyvä homma! Päivä päivältä valoisampaa kevättä kaikille VBA-makroilijoille ja muillekin!

        On aina mukava huomata, kun esim. Exceliä käytetään muuhunkin kuin yleisimpiin laskutoimituksiin. 👍


    • Niin se on, kysyvä ei tieltä eksy. Hienosti toimii, kiitoksia oikein paljon

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Sanna Marin kysyi hämmästyneenä: Onko Suomessa jäänmurtajia?

      Nettilehden toimittaja kysyi Sanna Marinilta suoraan, että sovittiinko nuo jäänmurtajien kaupat jo 2019, jolloin Marin k
      Maailman menoa
      71
      3879
    2. Voiko normaali ihminen ryhtyä vasemmistolaiseksi?

      Tätä jäin pohdiskelemaan.
      Maailman menoa
      101
      3495
    3. SDP haluaa 40 000 nettomaahanmuuttajaa

      SDP:n Suunnanmuutos-vaihtoehtobudjetissa, käy ilmi, että demarit itse asiassa vaativat räjähdysmäistä ”työperäisen” maah
      Maailman menoa
      78
      3328
    4. Mikä tuota vasemmistolaisista jankkaavaa vaivaa?

      Pahasti on ihon alle, siis korvien väliin, päässeet kummittelemaan. Ei ole terveen ihmisen merkki jankata yhdestä asia
      Maailman menoa
      36
      2638
    5. Mitä ajattelit kun näit

      kaivattusi ensimmäisen kerran? xd
      Ikävä
      118
      1553
    6. Nyt meni lopulliset lämmöt.

      Alan käyttäytymään yhtä kylmästi miehiä kohtaan kuin mua kohtaan on käyttäydytty ja vain käytetty viimeiset pari vuotta
      Sinkut
      36
      1506
    7. Meitä ei tule

      Koska periaatteemme ovat rakkautta vahvempia. Tämä on siis koettelemus, jonka tarkoitus on vahvistaa meitä yksilöinä 😌
      Ikävä
      22
      1114
    8. Onko erityinen paikka jossa haluaisit nyt olla

      Onko joku spesiaali lempipaikka missä mieluiten olisit?
      Ikävä
      42
      1100
    9. Sulla on avaimet ja keinot

      Jos haluat jatkaa tutustumista. Itse olen niin jäässä etten pysty tekemään enää mitään. Pidempi keppi johon on helpompi
      Ikävä
      18
      1076
    10. Itseään kannattaa tarkastella realistisesti ja

      miettiä mihin ne rahkeet oikeesti riittää. Tyhmempikin ymmärtää että varakas ylemmän tason mies ei kelpuuta sellaista ku
      Ikävä
      118
      1016
    Aihe