enter naar rechts plaatsen

Status
Niet open voor verdere reacties.
Je hebt de Enter niet nodig, de gegevens in de cellen C5:C9 wijzigen bij elke wijziging in de combobox.
Zelfs met de pijltjestoets naar onder of boven.

Het blad is hier nog steeds beveiligd en alles werkt hier uitstekend.
 
raar ?

Als ik werk zonder beveiliging werkt alles prima !

als ik beveiliging blad activeer, en wil naam intikken of met pijltjes veranderen krijg ik volgende foutmelding

foutmeldingfactuur.JPG
 
Harry,

Kan het te maken hebben dat het besturingselement nog niet gedeblokkeerd is bij beveiligen blad ?
Zoja, waar vind ik dat, ben aan zoeken maar vind het niet direct

Tom

Update:
besturingselement op false gezet bij locked maar veranderd niets
 
Laatst bewerkt:
Heb je Objecten bewerken aangevinkt bij het beveiligen?
 
Ja
objecten en scenario's bewerken is aangevinkt.
Heb al geprobeerd deze te veranderen, maar foutmelding blijft

besturingselement staat nu wel op locked false, is dit correct ? of terug op true plaatsen ?
 
Werkt dit bestand?
 

Bijlagen

  • factuurbarcode.xlsb
    102,4 KB · Weergaven: 48
Beveiligen maakt meer kapot dan je lief is.;)


@HSV
Code: 
For Each it In ActiveSheet.checkboxes
    it.Value = False
Next

Code: 
For Each it In ActiveSheet.oleobjects
    if typename(it.Object)="CheckBox" then it.Object.Value = False
Next
 
Laatst bewerkt:
@snb,

Beter/duidelijk weer.
Ik heb het wel vaker gebruikt (heb het ook in mijn bestanden ("wiel niet opnieuw uitvinden") maar blijkbaar blijft die niet echt hangen (waarschijnlijk te weinig vragen hierover).

Bedankt voor de opfrissing.
 
harry,

Heb je bestand gedownload, en deze werkt perfect !?
Raar maar waar.

Ik ga daar op voortwerken, dan hoef ik die extra codes niet te gebruiken.
Ga nog wat voort testen :d:d:d

Thx alvast aan beide voor de steun :thumb::thumb:
 
Harry,

In bijlage stand van zaken van factuurbarcode.

Deel 1:

Ik heb een kolom moeten bijvoegen "A", ik heb de code aangepast, waardoor cel F5 & F6 perfect blijven werken, echter de tabbladnaam die normaal de cel F6 moet weergeven werkt niet meer (ik heb wel in thisworkbook ook E6 vervangen door F6) en toch krijg ik een tabbladnaam met een () achter ?

Deel 2:
Ik heb het te kopieren blad "baissxlt" genoemd, reden, onze consulenten werken via de combox, echter wanneer de "klant" niet aanwezig is, dienen ze de gegevens manueel in te vullen, als ze dan pagina toevoegen uitvoeren, zijn de formules "vert.zoeken" verdwenen is de cellen D6; D7; D8; D9
Daarom het idee om steeds het blad "basisxlt" toe te voegen, op steeds de laatste plaats

Thx alvast

Tom
 
@tombeerke
Zou het niet beter zijn alle privicaygevoelige informatie te verwijderen uit je bestanden?
 
Vraag 1:
f <> F
 
Inderdaad is dus hoofdletter gevoelig :eek::eek::eek::eek: weer iets bijgeleerd :thumb::thumb::thumb:

Nu vraag 2 :cool::eek::cool::eek:
 
Geen idee wat de bedoeling is, maar maak gebruik van de blauwe coderegels bij change gebeurtenissen.


Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
[COLOR=#0000ff]Application.EnableEvents = False[/COLOR]
If Target.Address = "$F$6" Then
        If Target.Count = 1 And Target <> "" Then Sh.Name = Target.Value
        End If
[COLOR=#0000ff]Application.EnableEvents = True[/COLOR]
End Sub
 
vraag 2:
code:
Code: 
Sub Bladinvoegen()
'
' Bladinvoegen Macro
'
    ActiveSheet.Select
    ActiveSheet.Unprotect
    ActiveSheet.Copy after:=Sheets(Sheets.Count)
    Range("f6").Value = Range("f6").Value + 1
    Range("f6").NumberFormat = """EH""0"
    Range("c13:f37").ClearContents
    Range("f5").Value = Date
    For Each Shp In ActiveSheet.Shapes
       If Shp.Type = msoFormControl Then
       If Shp.FormControlType = xlCheckBox Then Shp.ControlFormat.Value = False
       End If
     Next Shp
     

     ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False
End Sub

Ik moet ergens activesheet vervangen door sheet("basisxlt") vermoed ik, maar krijg altijd foutmeldingen :shocked::shocked::shocked:

Tom
 
Harry,

Ik wil dat bij PAGINA TOEVOEGEN het tabblad met "basisxlt" wordt toegevoegd, en niet de activesheet.
Reden: in "tabblad "basisxlt" staan formules verticaal zoeken
Als een werkneemster in een factuurblad gegevens overschrijft, zijn die formules weg, als we blad toevoegen vanaf activesheet

Snap je mijn bekommernis ?
 
Mag ik ook even een sanitaire stop maken, of is het aangenomen werk?
Code: 
Sub Bladinvoegen()
'
' Bladinvoegen Macro
'


Application.EnableEvents = False
 With Sheets("basisxlt")
    .Unprotect
    .Copy after:=Sheets(Sheets.Count)
    .Range("f6").Value = .Range("f6").Value + 1
    .Range("f6").NumberFormat = """EH""0"
    .Range("c13:f37").ClearContents
    .Range("f5").Value = Date
    .Protect DrawingObjects:=False, Scenarios:=False
   For Each it In .CheckBoxes
     it.Value = False
   Next
End With
Application.EnableEvents = True
End Sub
 
haha harry, tuurlijk mogen de natuurlijke behoeften :thumb::thumb::thumb::thumb::thumb:

heb code aangepast, maar je gaat het niet geloven, nu verandert de tabbladnaam weer niet meer en geeft telkens basisxlt ()
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan