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

1089

    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. Kalajoen hukkuneet pojat olivat tummaihoisia

      Jälleen kerran, hukkuneet tai heikon uimataidon vuoksi vaaraan joutuneet olivat muita kuin suomalaisia. Turha viisastell
      Maailman menoa
      315
      6817
    2. Kysymys muille miehille

      Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss
      Ikävä
      69
      3906
    3. Sinä eräs, pyydän......

      AUTA mua ole kiltti. Ei mun takia vaan.... Miten saan sut kiinni?
      Ikävä
      207
      3106
    4. Kohta katson sun kuvaasi

      ja päästän ajatukseni liitämään. Jo kuvasi näkeminen rauhoittaa, ja pistää hyrräämään vähän muutakin. Ihanan kaunista sa
      Ikävä
      24
      2807
    5. Nimikirjaimet

      Kuka kaipaa ketä 🥰
      Ikävä
      74
      1932
    6. Ahneus iski Fazeriin, suklaalevy kutistuu 180 grammaan

      Kun mikään ei riitä. Shrinkflaatio. Mitä isot (Marabou) edellä, sitä pienet (Fazer) perässä. Pienikin voi siis olla a
      Maailman menoa
      210
      1682
    7. VOI TÄTÄ ILON

      JA ONNEN PÄIVÄÄ 😂
      Tuusniemi
      146
      1682
    8. Minkä asian haluaisit muuttaa kaivatussasi?

      Mikä kaivattusi luonteessa tai ulkonäössä ärsyttää sua?
      Ikävä
      120
      1528
    9. Jos kaivattusi on perääntynyt lähestyessäsi

      jossain tilanteessa, ymmärrätkö miksi hän saattoi tehdä sen?
      Ikävä
      163
      1521
    10. Mies, ajattelemmekohan toisiamme juuri nyt?

      Olet mielessäni, vanhempi mies
      Ikävä
      89
      1408
    Aihe