Yhteys kahden työkirjan välillä

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

Keep EXCELing
@Kunde

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

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

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.

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

kunde kirjoitti:

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

Keep EXCELing
@Kunde

Kannattaa 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ää.

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 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 kirjoitti:

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

Näin se on MS office paistaa toimimattomuudelaan.