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?
Yhteys kahden työkirjan välillä
12
1090
Vastaukset
- 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
@KundeKo. 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 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 FunctionVideollani 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
@KundeKorjaus:
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. 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 kirjoitti:
https://www.dropbox.com/s/uzq106xr4pv2cof/ScreenRecorderProject283.mp4?dl=0
Keep EXCELing
@KundeKannattaa vaihtaa Libre-Officeen niin nää toimiikin, Exelissä kun toimii miten sattuu!
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ä.
Luetuimmat keskustelut
SDP jo 100 % suositumpi kuin persut
Kertoo Hesarin uusin kannatuskysely. Demareiden kannatus on miltei tuplat verrattuna persuihinl. Suomen kansa ei selväst25714424Valtavasti suomalaisia asunnottomina, mutta ei yhtään somalia
tai muuta kehitysmaalaista. Mites tässä näin kävi? Tiedän hyvin, että esim. somaleita lentää ulos mm. Hekan asunnoista,1493916PS ylivoimainen nousija myös HS:n gallupissa, SDP laskee taas
https://www.verkkouutiset.fi/a/hs-gallup-sdpn-suosio-laskee-ps-nousussa/#0a7d2507 Ylivoimainen viime kuukausien nousija1293765Kovia syytöksiä Stefan Thermaninsta.
Jättänyt taas maksamatta kohuliikemies, hupparit ja muita ostamiaan tavaroita. On soiteltu liikkeestä ja Stefan iskenyt1681611En minä kyllä enää odota sinua
Olet siellä sen harmaan kanssa. Niin, annoit minun nähdä lämpimät tunteesi siitä huolimatta. Se merkitsi kyllä paljon. O351599Totuuspuolueen johtaja Jaana "prinsessa Leia" Kavonius on vangittu
Kavonius määrättiin jo keväällä 2024 poissaolevana vangittavaksi todennäköisin syin epäiltynä 13 vainoamisesta ja 24 kun3921577Jos joku luulee että kaikki käy
Sanon vain tämän. Minun kanssani ei neuvotella. Minun kanssani eletään tasavertaisesti. Jos se on liikaa, niin ovi rinn491306Ei ole rohkeutta tulla jututtamaan
Voidaan me nähdä ja tervehtiä, sitäkin harvoin, mutta iso kynnys on edes mennä lähelle ja kysyä kuulumisia. Ymmärrät var81091Sakin hivutus - ilmiö
Miten tuollainen tuollainen ilmiö kuin ”sakin hivutus” syntyy? Mitä syitä ilmiön syntymiseen tarvitaan? Onko sakissa jok47977Joka kolmas työtön on työkyvytön
Viime vuonna työnhakuvelvoitteen ulkopuolella oli noin kolmannes työttömistä työnhakijoista. Huhheijaa, mihin suomalais92915