Rekisteröidy

Ilmoitukset

Ladataan…

    Näytä kaikki

    Rivitietojen kopioinnin makro

    Minulla on olemassa seuraava makro:
    Sub Makro1()
    Worksheets("Taul1").Activate
    Set kohde = Worksheets("Taul2")
    For Each solu In Range("P1:P" & Range("P65536").End(xlUp).Row)
    If solu.Value = "x" Then
    solu.EntireRow.Copy kohde.Range("A65536").End(xlUp).Offset(1)
    End If
    Next
    End Sub

    Tarvitsisin kuitenkin sellaisen, joka kopioi niiden rivien tiedot, joiden perässä on "x" siten, että taul1 B-sarakkeen solun sisältö kopioituisi Taul2 A-sarakeeseen riviltä 15 alkaen ja vastaavasti Taul1 A-sarakkeen Taul2:n B-sarakeeseen. Koko riviä ei tarvitsisi kopioida eikä MUOTOILUJAKAAN eli vain ARVO tarvittaisiin.

    En osaa tehdä itse tätä, joten suuret kiitokset auttajille!!!
    1275
    Äänestä

    Muut lukivat myös

    Vastaukset 1

    Vanhimmat

    Sub Makro2()
    Worksheets("Taul1").Activate
    Set kohde = Worksheets("Taul2")
    Dim tiedotA As Object
    Dim tiedotB As Object
    Application.ScreenUpdating = False
    For Each solu In Range("P1:P" & Range("P65536").End(xlUp).Row)
    If solu.Value = "x" Then
    If tiedotA Is Nothing Then
    Set tiedotA = Intersect(solu.EntireRow, Columns("A"))
    Else
    Set tiedotA = Union(tiedotA, Intersect(solu.EntireRow, Columns("A")))
    End If
    If tiedotB Is Nothing Then
    Set tiedotB = Intersect(solu.EntireRow, Columns("B"))
    Else
    Set tiedotB = Union(tiedotB, Intersect(solu.EntireRow, Columns("B")))
    End If

    End If
    Next

    tiedotA.Copy: kohde.Range("B15").PasteSpecial Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    tiedotB.Copy: kohde.Range("A15").PasteSpecial Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.ScreenUpdating = True
    End Sub

    Äänestä

    Odottaa vastausta

    Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.

    Luetuimmat keskustelut

    Kommentoi aloitusta

    kiirus kirjoitti:

    Minulla on olemassa seuraava makro:
    Sub Makro1()
    Worksheets("Taul1").Activate
    Set kohde = Worksheets("Taul2")
    For Each solu In Range("P1:P" & Range("P65536").End(xlUp).Row)
    If solu.Value = "x" Then
    solu.EntireRow.Copy kohde.Range("A65536").End(xlUp).Offset(1)
    End If
    Next
    End Sub

    Tarvitsisin kuitenkin sellaisen, joka kopioi niiden rivien tiedot, joiden perässä on "x" siten, että taul1 B-sarakkeen solun sisältö kopioituisi Taul2 A-sarakeeseen riviltä 15 alkaen ja vastaavasti Taul1 A-sarakkeen Taul2:n B-sarakeeseen. Koko riviä ei tarvitsisi kopioida eikä MUOTOILUJAKAAN eli vain ARVO tarvittaisiin.

    En osaa tehdä itse tätä, joten suuret kiitokset auttajille!!!

    Anonyymi
    5000

    Ilmoita asiaton sisältö

    • Sisältää materiaalia, joka on loukkaavaa, herjaavaa, rasistista, uhkailevaa tai ahdistelevaa.

    • Materiaali sisältää nimiä, yhteystietoja tai muita henkilökohtaisia tietoja. Julkisuuden henkilöistä, julkisissa viroissa toimivista ihmisistä sekä yritysten vastuuhenkilöistä saa keskustella työhön liittyen. Myös yksityiselämään liittyvistä asioista voi keskustella siltä osin, kuin niistä on julkisesti kerrottu.

    • Sisältää lapsille haitallista tai heiltä kiellettyä materiaalia. Seksuaalinen sisältö on sallittua aiheeseen tarkoitetuilla palstoilla, joiden ikäraja on 18 vuotta.

    • Lainvastaista sisältöä voi olla mm. yksityiselämää loukkaavan tiedon levitys, kiihottaminen kansanryhmää vastaan, laiton uhkaaminen, alaikäisiin liittyvä seksuaalinen sisältö/grooming, petokset, identiteettivarkaudet, kunnianloukkaukset ja tekijänoikeusrikkomukset.

    • Sisältö ei liity palstan tai keskusteluketjun aiheeseen.

    • Viesti ei ole suomea tai ruotsia (pl. International Forums), se sisältää mainontaa, se sisältää tekijänoikeuksin suojattua materiaalia, se on massapostitus tai jokin muu syy.

    Jaa keskustelu