jantoedeledoki
Gebruiker
- Lid geworden
- 22 dec 2010
- Berichten
- 36
Hallo
Bovenstaande code is een klein stukje uit een vrij complex bestand, waarin een Userform zichtbaar is wat geactiveerd is door
Alles werkt prima (het kopieeren van sheet 1), totdat ik het stukje blauwe code toevoeg.
Het kopieeren van sheet 1 werkt nog prima, alleen is het Userform verdwenen en verschijnt pas weer als ik een willekeurig ander worksheet selecteer.
Ik ben al dagen aan het proberen, maar krijg het niet voor elkaar om zonder fysiek ingrijpen het Userform weer zichtbaar te krijgen.
Het doel is om de tekst in A6 en H6 alleen in Sheet 1 te kunnen aanpassen. Deze wordt ingevoerd met TextBox10 en TextBox11 (met Linked Cell) op Sheet 1.
TextBox10 en 11 gebruik ik om gebruik te kunnen maken van Got_Focus en Lost_Focus.
Code:
Dim sheetnr As Byte
sheetnr = Sheets.Count - 3
Set p_wbBook = ActiveWorkbook
Set p_wsSheet = p_wbBook.ActiveSheet
With p_wsSheet
.Unprotect Password:="xxxxxxxx"
Sheets("1").Copy Before:=Sheets("Extra")
ActiveSheet.Name = sheetnr + 1
mergedrangeA6.Locked = False
mergedrangeH6.Locked = False
[COLOR="#0000FF"]ActiveSheet.OLEObjects("TextBox10").Delete[/COLOR]
ActiveSheet.Range("H6").Value = "='1'!H6"
ActiveSheet.Range("A6").Value = "='1'!A6"
Call Module3.HeleItem1Wissen
End With
ActiveSheet.Range("A21").Select
End Sub
Bovenstaande code is een klein stukje uit een vrij complex bestand, waarin een Userform zichtbaar is wat geactiveerd is door
Code:
UserForm10.Show vbModeless
UserForm10.Left = 520
UserForm10.Top = 30
Alles werkt prima (het kopieeren van sheet 1), totdat ik het stukje blauwe code toevoeg.
Het kopieeren van sheet 1 werkt nog prima, alleen is het Userform verdwenen en verschijnt pas weer als ik een willekeurig ander worksheet selecteer.
Ik ben al dagen aan het proberen, maar krijg het niet voor elkaar om zonder fysiek ingrijpen het Userform weer zichtbaar te krijgen.
Het doel is om de tekst in A6 en H6 alleen in Sheet 1 te kunnen aanpassen. Deze wordt ingevoerd met TextBox10 en TextBox11 (met Linked Cell) op Sheet 1.
TextBox10 en 11 gebruik ik om gebruik te kunnen maken van Got_Focus en Lost_Focus.