Yhteys kahden työkirjan välillä

Anonyymi

Miten saisi luotua yhteyden kahden työkirjan välille, niin, että toisessa työkirjassa käytetty muotoilu siirtyy toiselle, jos arvo on sama?

Eli jos työkirjassa 1 on soluissa A1-A5 näin:
osa 101
osa 102
osa 103
osa 104
osa 105

ja näistä A2 "osa 102" on täytetty vihreäksi.

työkirjassa 2 on soluissa B3-B6 näin:
osa 308
osa 102
osa 222
osa 104

Miten tämän työkirjan 2 saisi linkitettyä työkirjaan 1, niin että muotoilu toistuisi, kun arvo on sama, eli työkirjassa 2 solun B4 täyttö olisi myös vihreä, koska työkirjassa 1 solussa A2 on sama arvo ja se on täytetty vihreäksi?

12

972

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Riippuu vähän siitä miten noihin soluihin tuotetaan arvot ja samoin se ensimmäinen vihreä täyttö? Kaavoilla vaiko manuaalisesti?
      Solun sisältö voidaan helposti viitata haettavaksi toisesta työkirjasta. Samoin täyttövärille voi tehdä ehtolausekkeen tietyihin soluihin.

    • Anonyymi

      Excelissä ei taida olla keinoa havaita muotoilun muuttumista.

      • Anonyymi
        kunde kirjoitti:

        https://www.dropbox.com/s/uzq106xr4pv2cof/ScreenRecorderProject283.mp4?dl=0

        Keep EXCELing
        @Kunde

        Ko. sivun modulissa lienee joku seuraavan kaltainen. Tämä toimii oikein, jos tuo Test.xlsx on valmiiksi auki. Jos se on kiinni, tarkoitus olisi että se avataan ja sitten muuttamisen jälkeen talletetaan ja suljetaan. Jostain syystä makro pysähtyy aina tiedoston tallettamisen jälkeen, ikään kuin siinä olisi painettu breikkiä. Se jatkaa ongelmitta painamalla f5 . Askeltamalla tuo kohta ei ilmoita mitään poikkeavaa. En keksinyt syytä.

        Private Sub Worksheet_SelectionChange(ByVal Target As Range)

            nimi = "Test.xlsx"
            Test = "C:\temp\excel\" & nimi
            If Dir(Test) = "" Then Exit Sub
            avattuna = OnAuki(nimi)
            Set tämä = ThisWorkbook

            Application.EnableEvents = False
            On Error GoTo err:
            Application.Undo
            muutettu = ActiveCell.Address
            Application.Undo
            arvo = Range(muutettu).Value
            Range(muutettu).Copy
            Set f = Workbooks.Open(Filename:=Test)

            KäytettyAlue  = "A1:" & f.Sheets("Sheet1").Range("A1").SpecialCells(xlCellTypeLastCell).Address
            For Each solu In f.Sheets("Sheet1").Range(KäytettyAlue )
                If solu.Value = arvo And arvo <> "" Then
                    solu.PasteSpecial Paste:=xlPasteFormats
                    Debug.Print "format"
                End If
            Next solu
            
            tämä.Activate
            Target.Select
            Application.SendKeys ("{ESC}")
            
            Application.EnableEvents = True
            If Not avattuna Then
                f.Save  ' Tämän jälkeen makro pysähtyy
                f.Close
            End If
        Exit Sub

        err:
            Application.EnableEvents = True
            

        End Sub

        Private Function OnAuki(ByVal f As String) As Boolean
            Dim wb As Workbook
            On Error Resume Next
            Set wb = Application.Workbooks.Item(f)
            OnAuki = (Not wb Is Nothing)
        End Function

      • kunde
        Anonyymi kirjoitti:

        Ko. sivun modulissa lienee joku seuraavan kaltainen. Tämä toimii oikein, jos tuo Test.xlsx on valmiiksi auki. Jos se on kiinni, tarkoitus olisi että se avataan ja sitten muuttamisen jälkeen talletetaan ja suljetaan. Jostain syystä makro pysähtyy aina tiedoston tallettamisen jälkeen, ikään kuin siinä olisi painettu breikkiä. Se jatkaa ongelmitta painamalla f5 . Askeltamalla tuo kohta ei ilmoita mitään poikkeavaa. En keksinyt syytä.

        Private Sub Worksheet_SelectionChange(ByVal Target As Range)

            nimi = "Test.xlsx"
            Test = "C:\temp\excel\" & nimi
            If Dir(Test) = "" Then Exit Sub
            avattuna = OnAuki(nimi)
            Set tämä = ThisWorkbook

            Application.EnableEvents = False
            On Error GoTo err:
            Application.Undo
            muutettu = ActiveCell.Address
            Application.Undo
            arvo = Range(muutettu).Value
            Range(muutettu).Copy
            Set f = Workbooks.Open(Filename:=Test)

            KäytettyAlue  = "A1:" & f.Sheets("Sheet1").Range("A1").SpecialCells(xlCellTypeLastCell).Address
            For Each solu In f.Sheets("Sheet1").Range(KäytettyAlue )
                If solu.Value = arvo And arvo <> "" Then
                    solu.PasteSpecial Paste:=xlPasteFormats
                    Debug.Print "format"
                End If
            Next solu
            
            tämä.Activate
            Target.Select
            Application.SendKeys ("{ESC}")
            
            Application.EnableEvents = True
            If Not avattuna Then
                f.Save  ' Tämän jälkeen makro pysähtyy
                f.Close
            End If
        Exit Sub

        err:
            Application.EnableEvents = True
            

        End Sub

        Private Function OnAuki(ByVal f As String) As Boolean
            Dim wb As Workbook
            On Error Resume Next
            Set wb = Application.Workbooks.Item(f)
            OnAuki = (Not wb Is Nothing)
        End Function

        Videollani testi työkirja on suljettuna.
        Melkoista kikkailua tuo koodi...
        Virheen syy...
        https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/code-execution-has-been-interrupted?f1url=?appId=Dev11IDEF1&l=en-US&k=k(vblr6.chm1011317);k(TargetFrameworkMoniker-Office.Version=v16)&rd=true

        Keep EXCEling
        @Kunde

      • Anonyymi
        kunde kirjoitti:

        Videollani testi työkirja on suljettuna.
        Melkoista kikkailua tuo koodi...
        Virheen syy...
        https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/code-execution-has-been-interrupted?f1url=?appId=Dev11IDEF1&l=en-US&k=k(vblr6.chm1011317);k(TargetFrameworkMoniker-Office.Version=v16)&rd=true

        Keep EXCEling
        @Kunde

        Korjaus:

        Application.EnableCancelKey = xlDisabled
        f.Save ' nyt makro pääsee tästä yli pysähtymättä
        Application.EnableCancelKey = xlErrorHandler

        Yhä on mysteeri, miksi Excel toisinaan temppuilee ja tekee aivan omiaan.

      • kunde
        Anonyymi kirjoitti:

        Korjaus:

        Application.EnableCancelKey = xlDisabled
        f.Save ' nyt makro pääsee tästä yli pysähtymättä
        Application.EnableCancelKey = xlErrorHandler

        Yhä on mysteeri, miksi Excel toisinaan temppuilee ja tekee aivan omiaan.

        Kannattaa välttää noita Keypress komentoja koodissa, eivät toimi luotettavasti

      • Anonyymi
      • kunde
        Anonyymi kirjoitti:

        Kannattaa vaihtaa Libre-Officeen niin nää toimiikin, Exelissä kun toimii miten sattuu!

        Turhaa anonyymi mulle naljailet. Koodini toimii loistavasti, kuten videolta voit nähdä.
        Anonyymin koodissa se ongelma oli eikä minun ja hän on koodissaan käyttänyt noita Keypress komentoja, jotka eivät ole luotettavia, eikä niitä olisi kovin suotavaa käyttää.

      • Anonyymi
        kunde kirjoitti:

        Kannattaa välttää noita Keypress komentoja koodissa, eivät toimi luotettavasti

        Kokeilin myös ilman komentoa Application.SendKeys ("{ESC}")
        Se ei auttanut. En tiedä, olisiko toiminut boottaamisen jälkeen.

      • Anonyymi
        Anonyymi kirjoitti:

        Kannattaa vaihtaa Libre-Officeen niin nää toimiikin, Exelissä kun toimii miten sattuu!

        Käyttäisin mielelläni, mutta
        - Makrojen teko Libreen on kertaluokkaa hankalampaa.
        - Kaikkea sitä mitä Excelillä voi, ei ole mahdollista tehdä Librellä.
        - Töissä nyt vaan käytetään MS Officea.

      • Anonyymi
        Anonyymi kirjoitti:

        Kannattaa vaihtaa Libre-Officeen niin nää toimiikin, Exelissä kun toimii miten sattuu!

        Näin se on MS office paistaa toimimattomuudelaan.

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Nainen, tervetuloa

      Tule luokseni eka vaikka viikoks tai pariksi. Saisin helliä, kannustaa ja tukea sua ja kokata lempi herkkujasi. Pääsisit
      Ikävä
      27
      3513

    2. Kela valvoo lasten tilejä.

      Tämä isoveli Kela kyttää jopa lasten yli 200,- euron rahat jotka on melko varmasti lahjaksi saatu. Se vaikuttaa perheen
      Yhteiskunta
      293
      3408

    3. TTK-tähti Saana Akiola paljasti tv-ohjelmassa tapahtuneen ahdistelun

      Olisko pitänyt suunnitella ulostulo paremmin? Nyt lehdet soittelevat kaikki 8 läpi ja kuusi sanoo ettei koskenut häntä.
      Maailman menoa
      26
      2230

    4. Olisit ollut varovaisempi

      Nyt jos minut hylkäät ja et meidän asiasta minulle mitään ilmoita niin ettet edes anteeksi pyydä, niin tiedä että minä e
      Ikävä
      35
      2044

    5. Mitä haluaisit sanoa hänelle

      Nyt tällä hetkellä?
      Ikävä
      133
      1992

    6. Elisa laskuttaa jo sähköpostilaskusta erikseen euron

      Paperilaskuista on otettu lisämaksua jo ajat sitten, mutta nyt Elisa ottaa euron siitä että lähettävät sähköisen laskun
      Maailman menoa
      119
      1741

    7. Vastenmielisyys

      Kuvaa sinua parhaiten
      Ikävä
      44
      1518

    8. Oho! Susanna Laine kohtasi epäonnea lomareissulla Italiassa - Avaa tilannetta: "Vähän sahaavaa..."

      Ou nou! Tsemppiä kuitenkin loppulomaan Italiassa, Susanna Laine ja mahdollinen seuralainen! Lue lisää ja katso kuvat:
      Suomalaiset julkkikset
      7
      1470

    9. Ensitreffit alttarilla Jyrki paljastaa hääyön intiimiasioista kameroiden sammuttua: "Fyysinen..."

      Ooo-la-laa… Ensitreffit alttarilla -sarjassa alkaa hääparien välillä ns. tunteet kuumenemaan. Lue lisää: https://www.s
      Ensitreffit alttarilla
      2
      1323

    10. Väliämme on noin 6 km

      Niin lähellä ja niin kaukana. Sinä olet kotona, minä olen kotona. Olet jo unessa. Mutta kun herään, olet jo töissä ja vä
      Ikävä
      9
      1213
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt