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

timidrikuukka

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

962

Äänestä

    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

      • timidrikuukka

        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

      • timidrikuukka
        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

      • timidrikuukka
        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. 👍

    • timidrikuukka

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

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Nurmossa kuoli 2 Lasta..

      Autokolarissa. Näin kertovat iltapäivälehdet juuri nyt. 22.11. Ja aina ennen Joulua näitä tulee. . .
      Seinäjoki
      133
      7365

    2. Maisa on SALAKUVATTU huumepoliisinsa kanssa!

      https://www.seiska.fi/vain-seiskassa/ensimmainen-yhteiskuva-maisa-torpan-ja-poliisikullan-lahiorakkaus-roihuaa/1525663
      Kotimaiset julkkisjuorut
      165
      4450

    3. Vanhalle ukon rähjälle

      Satutit mua niin paljon kun erottiin. Oletko todella niin itsekäs että kuvittelet että huolisin sut kaiken tapahtuneen
      Ikävä
      55
      3493

    4. Mikko Koivu yrittää pestä mustan valkoiseksi

      Ilmeisesti huomannut, että Helenan tukijoukot kasvaa kasvamistaan. Riistakamera paljasti hiljattain kylmän totuuden Mi
      Kotimaiset julkkisjuorut
      507
      3207

    5. Purra hermostui A-studiossa

      Purra huusi ja tärisi A-studiossa 21.11.-24. Ei kykene asialliseen keskusteluun.
      Perussuomalaiset
      297
      2144

    6. Joel Harkimo seuraa Martina Aitolehden jalanjälkiä!

      Oho, aikamoinen yllätys, että Joel Jolle Harkimo on lähtenyt Iholla-ohjelmaan. Tässähän hän seuraa mm. Martina Aitolehde
      Suomalaiset julkkikset
      36
      1793

    7. Kaksi lasta kuoli kolarissa Seinäjoella. Tutkitaan rikoksena

      Henkilöautossa matkustaneet kaksi lasta ovat kuolleet kolarissa Seinäjoella. Kolmas lapsi on vakasti loukkaantunut ja
      Maailman menoa
      20
      1751

    8. Miten meinasit

      Suhtautua minuun kun taas kohdataan?
      Ikävä
      91
      1583

    9. Miksi pankkitunnuksilla kaikkialle

      Miksi rahaliikenteen palveluiden tunnukset vaaditaan miltei kaikkeen yleiseen asiointiin Suomessa? Kenen etu on se, että
      Maailman menoa
      179
      1505

    10. Ensitreffit Hai rehellisenä - Tämä intiimiyden muoto puuttui suhteesta Annan kanssa: "Meillä ei..."

      Hai ja Anna eivät jatkaneet avioliittoaan Ensitreffit-sarjassa. Olisiko mielestäsi tällä parilla ollut mahdollisuus aito
      Ensitreffit alttarilla
      15
      1446
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt