Wat aan macro aanpassen (wijzigingen van tabbladen bij houden)

[Roncancio]

Dus als er wijzigingen in werkbladen 1, 2 of 3 plaatsvinden vanaf rij 34 dan dient deze niet in het overzicht te worden meegenomen?

Met vriendelijke groet,


Roncancio

 

[davylenders123]

Roncancio

Jawel als ze vanaf rij 34 een naam ingeven zou deze wel in de logfile moeten komen.

Vanaf rij 34 worden eigenlijk de namen van die verlof hebben of ziek zijn ingevuld.
En als daar een naam wordt ingevuld gaat hij zoeken naar die naam in de rijen 2 tem 33 en vind hij die verwijderd hij die uit de rijen 2 tem 33

De code die nu in het bestand staat van this workbook zou moeten verwerkt worden met u code zodat er een logfile wordt aangemaakt maar ook de namen worden verwijderd die vanaf rij 34 worden ingegeven.En dat je enkel het bestand kan opslaan door de knoppen die erin staan of door op de knop opslaan in het lint te klikken.

Ik heb mijn code al eens geplakt in u code op verschillende plaatsen maar krijg steeds een foutmelding.

 

[davylenders123]

Roncancio

Weet jij mischien nog raad ?
Geraak er maar niet uit

 

[Roncancio]

Ik heb je code in het bestand verwerkt.
Hopelijk is het zoals je het voor ogen hebt.

Ik reageer nogal laat omdat ik het de afgelopen tijd zeer druk heb.

Met vriendelijke groet,


Roncancio

 

[davylenders123]

Roncancio

Bedankt om toch nog even naar mijn bestandje te kijken en de oplossing te zoeken.:thumb::thumb:

Dit is hem bijna zoals ik het zou willen voor dit bestandje :thumb:

Maar nog 2 klein zaakjes doen in dit bestand niet wat het zou moeten doen.

Dit bestand zou NIET mogen vragen of het moet worden opgeslagen.
Het mag ook NIET automatisch worden opgeslagen als er wijzigingen zijn.

Dit bestand wordt eigenlijk altijd opgeslagen door de knoppen maandag tem zondag te gebruiken.
Dit is zo omdat het origineel nooit gewijzigd mag worden en elke keer bij het open de originele versie moet worden weer geven.
Daarom mag hij niet automatisch opslaan en ook niet vragen om op te slaan.
Mag enkel opslaan dat het wordt gedaan met de butons maandag tem zondag en opslaan als uit de takbalk.

En u bestandje in de logfile veranderd u gebruikers naam in mijn gebruikers naam als ik een wijzigin doe.
Hier zou u naam eigenlijk moeten blijven staan.

Hoppelijk vind je nog even tijd om hier even naar te kijken nog.

 

[Roncancio]

Volgens mij klopt het zo beter.

Met vriendelijke groet,


Roncancio

 

[davylenders123]

Roncancio

Sorry voor de late reactie.
Het werkt niet
Als ik het bestandje open dan krijg ik onmiddelijk een foutmelding.
Als ik op foutopsporing klik gaat hij naar het rode gedeelte in de code.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
[COLOR="red"]If ActiveSheet.Name <> "Logfile" And Target.Count = 1 Then[/COLOR]
    sWsh = ActiveSheet.Name
    sBer = ActiveCell.Address
    If ActiveCell.HasFormula Then
        sOWrd = ActiveCell.Formula
    Else
        sOWrd = ActiveCell.Value
        sNWrd = ""
    End If
End If
End Sub

 

[Roncancio]

Roncancio

Sorry voor de late reactie.
Het werkt niet
Als ik het bestandje open dan krijg ik onmiddelijk een foutmelding.
Als ik op foutopsporing klik gaat hij naar het rode gedeelte in de code.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
[COLOR="red"]If ActiveSheet.Name <> "Logfile" And Target.Count = 1 Then[/COLOR]
    sWsh = ActiveSheet.Name
    sBer = ActiveCell.Address
    If ActiveCell.HasFormula Then
        sOWrd = ActiveCell.Formula
    Else
        sOWrd = ActiveCell.Value
        sNWrd = ""
    End If
End If
End Sub

Hm.
Dat heeft het altijd gedaan...
Ook als ik mijn bestand open, krijg ik geen foutmelding.
Wat gebeurt er als je

And Target.Count = 1

uit de regel verwijdert en het bestand opslaat en opnieuw opent?
Wellicht moeten kijken naar een vorige versie, alhoewel ik in die betreffende code niets heb veranderd.

Met vriendelijke groet,


Roncancio

 

[davylenders123]

Heb de code aangepast opgeslagen gesloten en terug geopend.
Nu krijg ik de foutmelding niet onmiddelijk na het openen maar wanneer ik ergens in een bepaald cel klik.

Ik werk wel met excel 2003 .

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
[COLOR="red"]If ActiveSheet.Name <> "Logfile" Then[/COLOR]
    sWsh = ActiveSheet.Name
    sBer = ActiveCell.Address
    If ActiveCell.HasFormula Then
        sOWrd = ActiveCell.Formula
    Else
        sOWrd = ActiveCell.Value
        sNWrd = ""
    End If
End If
End Sub

 

[davylenders123]

Heb juist excel 2007 op mijn thuis pc geinstaleerd en het werkt dan wel.
Heb 2003 terug verwijderd en opnieuw geinstaleerd en het probleem blijft.

Heb het op het netwerk van het werk geprobeerd waar ook 2003 op draait en daar is het probleem ook.
Ik kan daar geen versie 2007 opzetten omdat dit in ons moederbedrijf in duitsland moet gebeuren en zij zijn hier niet voor te vinden.
Dus 2007 instaleren is geen optie.