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

1026

Ää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. Janne Ahonen E R O A A

      Taas 2 lasta jää vaille ehjää perhettä!
      Kotimaiset julkkisjuorut
      155
      2725

    2. En kai koskaan saa sinua

      Koska et usko että riitäisit minulle. Olet aina pitänyt itseäsi liian risana ja heikkona. Katkot korkeutesi, ja poraat k
      Ikävä
      154
      1689

    3. Terveystalon lääkärit ylilaskuttaneet

      Tämän pörriäiset osaavat, laskuttamisen. Terveystalo myöntää asian. https://www.hs.fi/suomi/art-2000011134269.html "K
      Maailman menoa
      146
      1674

    4. Saran ökytyyli käänsi katseita.

      On nyt kyllä Sara kasvoistaan, kuvan perusteella todellakin pyöristynyt ainakin kuvan perusteella.
      Kotimaiset julkkisjuorut
      150
      1411

    5. Nyt on aika laittaa parit selkoon.

      Onko pareja täällä. Laita kirjaimet kuka tykkää kenestäkin ?
      Ikävä
      68
      1370

    6. Työttömille lusmuille luvassa lisää keppiä

      Hallitus aikoo kiristää velvoitteiden laiminlyönnistä seuraavia työttömyysturvan karensseja ensi vuodesta alkaen. Hall
      Maailman menoa
      309
      1241

    7. The Summit Suomi: Maxie avaa hyytävästä tilanteesta kuvauksissa: "Veri roiskui ja tajusi, että..."

      Oletko seurannut The Summit Suomea? Tykkäätkö vai et tai mitä mieltä ylipäätään olet sarjasta? Moni katsoja on kaikonnut
      Tv-sarjat
      17
      1206

    8. Ootko huomannut miten

      pursuat joka puolelta. Sille joka luulee itsestään liikoja 🫵🙋🏻‍♂️
      Ikävä
      156
      996

    9. Miksi ihmeessä?

      Erika Vikman diskattiin, ei osallistu Euroviisuihin – tilalle Gettomasa ja paluun tekevä Cheek
      Ateismi
      24
      960

    10. Tiedän kaiken sinusta ja kaikesta

      Tiedän miten kärsit. Tiedän millanen oikeesti oot. Tiedän miksi valehtelit, tiedän miksi satutit mua. Tiedän mitä tapaht
      Ikävä
      58
      911
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt