Niet kopieren tussen sheets

Ron001 · 22 feb 2018

Allen

In file in bijlage staat rechts vanboven een knop wit/origineel zodat alle lege cellen in een range wit worden (beter overzicht).
Moet gezegd worden; met veel dank aan VenA!

De mensen die met deze file werken zijn er zeer tevreden over, alleen heb ik gemerkt dat deze "functie" dikwijls niet meer werkt...
Daar ben ik nu (denk) ook achter gekomen waarom...
Als bv werknemer A, 2 weken ziek is en men vult in sheets a overal "ziek" in, geen probleem...
Het probleem stelt zich wanneer men ziek van sheet a naar sheet b gaat kopiëren, dat dan opmaak wegvalt...

Zou dit de reden kunnen zijn? Is er dan ook een code dat men niet meer kan kopiëren tussen sheets? Of hoe vang ik dit best op?

Alvast bedankt!

VenA · 22 feb 2018

Dan moeten ze plakken speciaal waarden gebruiken.

Ron001 · 23 feb 2018

@ VenA

Dus dat is zo goed als zeker het probleem dan?

Dan moeten ze plakken speciaal waarden gebruiken.

Mensen en...

Ik zou dit moeten kunnen borgen, anders zie ik dit niet goed komen...
Kan dit met een stukje code?

mvg

VenA · 23 feb 2018

Dat kan. Haal alle samengevoegde cellen uit jouw bestand anders blijf je een versnipperde VO krijgen. Zorg er ook voor dat de helpers niet steeds jouw bestanden moet opschonen en de kolommen en rijen weer zichtbaar moeten maken. Wat is overigens het doel van het hele bestand? Kan je niet beter via een Userform werken en alles in 1 tabel vastleggen?

Dus het is niet mensen en.... maar diegene die een niet doordacht iets aanreikt aan de mensen en......

Ron001 · 26 feb 2018

@ VenA

Zorg er ook voor dat de helpers niet steeds jouw bestanden moet opschonen en de kolommen en rijen weer zichtbaar moeten maken

Wat bedoel je hier mee?

Dus het is niet mensen en.... maar diegene die een niet doordacht iets aanreikt aan de mensen en......

Klopt! :-(
Maar ben uit het niets begonnen en probeer stilletjes iets uit te bouwen, voorlopig zo tot iedereen ermee werkende is. Probeer zo ook te weten te komen wat nuttig/niet nuttig is.
Dan probeer ik op de achtergrond terwijl we dit al gebruiken iets in een Userform te maken...

Eerst stappen en dan lopen....

Dus is er voorlopig als tussenstap iets waardoor ik het kopiëren tussen sheets kan vermijden/dat men automatisch "plakken speciaal" gebruikt?

Alvast bedankt!

HSV · 26 feb 2018

In Thisworkbook-module.

edit: eerste code weggehaald.

Of:

Code:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
With Application
  If .CutCopyMode Then
    .EnableEvents = False
    .Goto Sh.Cells(1)
    .CutCopyMode = 0
    .EnableEvents = True
   End If
End With
End Sub

Ron001 · 26 feb 2018

@ HSV

Bedankt, dit is wat ik zoek!

Ter info;

Bovenste code werkt niet...
Onderste code werkt en als ik probeer te kopiëren naar andere sheet springt hij één keer automatisch terug naar de sheet waarvan gekopieerd wordt!
Top!

Bedankt!

Mvg

HSV · 26 feb 2018

Ik heb de eerste code dan maar verwijderd.

Ron001 · 26 feb 2018

@ HSV

De file zou steeds in de originele mode moeten openen, dus bij afsluiten file "opslaan als origineel" of kan ik beter iets toevoegen dat men niet kan opslaan in "wit" mode?
De "wit" mode is gewoon voor de gebruikers die dit handig vinden (ik niet)...Maar als men deze kan saven gaat het een kakafonie worden...
De ene sheet in "wit" modus, de andere "origineel",...

mvg

HSV · 26 feb 2018

Kan je ook doen in het Workbooks_open event.

Ron001 · 26 feb 2018

Kan je voorzetje geven aub?

HSV · 26 feb 2018

Bij deze.

Code:

Private Sub Workbook_Open()
For Each sh In Sheets
  On Error Resume Next
   cl = sh.Range("ac1").Validation.Type
  On Error GoTo 0
  If cl = 3 Then
     sh.Range("ac1") = "Wit"
     sh.Range("E16:AB75").FormatConditions(1).Modify 1, 3, "="""""
  End If
 Next sh
End Sub

Ron001 · 26 feb 2018

@ HSV

Dat was al een serieuze voorzet

Doelpunt!

Code:

Private Sub Workbook_Open()
For Each Sh In Sheets
  On Error Resume Next
   cl = Sh.Range("ac1").Validation.Type
  On Error GoTo 0
  If cl = 3 Then
     Sh.Range("ac1") = "Origineel"
     Sh.Range("E16:AB75").FormatConditions(1).Modify 1, 3, "=""@#|"""
  End If
 Next Sh
End Sub

HSV · 26 feb 2018

Verwijder die coderegels met de aanpassing in de Vw opmaak.
Je krijgt er honderden zo niet duizenden aangemaakt.

Zet 1 regel Vw-opmaak.

Formule: =$AC$1="Wit"
De kleur op wit en het bereik = "=$E$16:$AB$76"

Ron001 · 27 feb 2018

@ HSV

Nu ben ik ff niet meer mee...

Deze code werkte perfect in mijn testfile

Code:

Private Sub Workbook_Open()
For Each Sh In Sheets
  On Error Resume Next
   cl = Sh.Range("ac1").Validation.Type
  On Error GoTo 0
  If cl = 3 Then
     Sh.Range("ac1") = "Origineel"
     Sh.Range("E16:AB75").FormatConditions(1).Modify 1, 3, "=""@#|"""
  End If
 Next Sh
End Sub

Maar in mijn "echte" file krijg ik hier problemen mee.
Na wat testen denk ik dat dit komt omdat er hier ongeveer al 20 weken in staan, waar alleen de laatste 4 gevuld zijn met de VO opmaak (heb in de testfile ook een extra leeg tabblad aangemaakt en kreeg ook dan daar de foutmelding.)
Kan ik zegge toepassen waar mogelijk? Want als iemand toch nog ergens onwetend iets aan de opmaak aanpast en deze niet meer zal werken, ga ik deze melding terug op scherm krijgen denk ik...

Wat is het verschil met de laatste code die je gegeven hebt?

Code:

Private Sub Workbook_Open()
For Each Sh In Sheets
  On Error Resume Next
   cl = Sh.Range("ac1").Validation.Type
  On Error GoTo 0
  If cl = 3 Then
     Sh.Range("ac1") = "Origineel"
  End If
 Next Sh
End Sub

Alvast bedankt voor de moeite (en geduld)!

HSV · 27 feb 2018

Waarom moet de Vw opmaak steeds aangepast worden.
Ik heb geen idee in je bestand.

Plaats dan dat bestand, en vertel wanneer de cellen wit of gekleurd moeten blijven.

De simpelste manier heb ik al beschreven.
Vw-opmaakregel voor het bereik E16:AB75.
Formule=: =$AC$1="Wit"

Is AC1 wit dan zijn alle cellen wit anders je kleuren.

Ron001 · 27 feb 2018

@ HSV

Waarom moet de Vw opmaak steeds aangepast worden.
Ik heb geen idee in je bestand.

Omdat ikzelf liefst met de originele versie werk en twee andere mensen met de lege cellen "wit".
File zit bij in #1
Dus voorlopig zou men dit handmatig moeten kunnen, dat lukt ook, maar hij moet steeds openen in "originele" toestand.
Omdat de volgende stap is; als de twee andere gebruikers aanmelden deze automatisch voor hun "wit" kleurt door Environ("Username").

Dus openen nu steeds in origineel en in de toekomst gebruikersafhankelijk...

Maar kan er in de tot nu toe werkende code iets bij dat hij deze enkel moet uitvoeren als de VO aanwezig is in het tabblad (lees #15 ivm foutmelding)

Bedankt!

HSV · 27 feb 2018

Wat mankeert eraan als we het zo doen?

Ron001 · 27 feb 2018

@ HSV

Krijg foutmelding in bijlage..

Reden1 op niet elk tabblad VO aanwezig?
Reden2 in "echte" file zit op workbook en sommige sheets paswoord?

Heb al van alles geprobeerd....:-(

HSV · 27 feb 2018

Je hebt het bestand van mij niet getest, maar de codes overgenomen.
Wat mankeert er aan mijn geplaatste bestand is de vraag.

Niet kopieren tussen sheets

Gebruiker

Bijlagen

Inventaris

Gebruiker

Inventaris

Gebruiker

Inventaris

Gebruiker

Inventaris

Gebruiker

Inventaris

Gebruiker

Inventaris

Gebruiker

Inventaris

Bijlagen

Gebruiker

Inventaris

Gebruiker

Inventaris

Bijlagen

Gebruiker

Bijlagen

Inventaris

Wij waarderen jouw privacy