selectie uit lijst wijzigen

[SUVERMO]

Goede morgen

Hoe kan men het volgende bekomen
Als een blauwe cel reeds een inhoud heeft en er wordt iets anders geselecteerd of de inhoud wordt verwijderd er een melding verschijnt met JA of NEE om de wijziging uit te voeren.

 

[HSV]

Bv.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim nw
If Not Intersect(Target, Range("d11:d17,g11:g17,k11:k17")) Is Nothing Then
   Application.EnableEvents = False
     nw = Target
     Application.Undo
If MsgBox("overschrijven?", vbYesNo) = vbYes Then Target = nw
  Application.EnableEvents = True
 End If
End Sub

 

[AD1957]

Niet precies wat je vraagt, maar misschien het proberen waard.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("D11:D17, G11:G17, K11:K17")) Is Nothing Then
    If Target <> "" Then MsgBox "Je staat op het punt om de inhoud van deze cel te wijzigen.", _
       vbOKOnly + vbCritical
 End If
End Sub

 

[SUVERMO]

beide bedankt voor uw voorstel, heb het even getest
is het mogelijk om
als het nieuw hetzelfde als het bestaande om dan geen melding te geven?

 

[HSV]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim nw
If Not Intersect(Target, Range("d11:d17,g11:g17,k11:k17")) Is Nothing Then
   Application.EnableEvents = False
     nw = Target
     Application.Undo
If Target <> nw Then If MsgBox("overschrijven?", vbYesNo) = vbYes Then Target = nw
   Application.EnableEvents = True
 End If
End Sub

Of:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim nw, old
If Not Intersect(Target, Range("d11:d17,g11:g17,k11:k17")) Is Nothing Then
   Application.EnableEvents = False
     nw = Target
     Application.Undo
     old = Target
If old <> nw Then If MsgBox("overschrijven?", vbYesNo) = vbYes Then Target = nw
   Application.EnableEvents = True
 End If
End Sub

 

[SUVERMO]

Beste HSV,

allereerst nogmaals bedankt voor uw hulp
bijgevoegd een excel waarin ik de 2° code gebruik
heeft u een oplossing voor
1° Als er in een cel van kolom C, D, G of K nog niets staat en er wordt iets ingevuld dan dit overschrijven zonder het verschijnen van de Msgbox
2° Als er in een cel van kolom C, D, G of K al iets staat en er wordt hetzelfde ingevuld dan dit overschrijven zonder het verschijnen van de Msgbox
3° Als er in een cel van kolom C, D, G of K al iets staat dit niet verwijderd kan worden, enkel nog wijzigen
4° In kolom C mogen enkel tekens worden gebruikt die geldig zijn voor een bestandsnaam. Verder moet het onmogelijk zijn er om ♂(alt+11), ♀(alt+12), en ?(alt+63) in te geven.
Als in kolom C de bovenliggende cel leeg is moet die lege cel de geselecteerde cel worden
Er mag in kolom C niet hetzelfde worden ingevuld als in een bovenliggende cel

 

[SUVERMO]

1° en 2° heb ik kunnen oplossen.

 

[SUVERMO]

3° is ook opgelost

Private Sub Worksheet_Change(ByVal Target As Range)
Dim nw, old
If Not Intersect(Target, Range("C11:C17,d11:d17,g11:g17,k11:k17")) Is Nothing Then
   Application.EnableEvents = False
     nw = Target
     Application.Undo
     old = Target
'MsgBox "old= " & old & "nw= " & nw
If old = nw Then Target = nw: ActiveCell.Offset(0, 1).Activate
If old = "" Then Target = nw: old = nw: ActiveCell.Offset(0, 1).Activate
If nw = "" Then Target = old: nw = old: ActiveCell.Offset(0, 1).Activate

If old <> nw Then If MsgBox("overschrijven?", vbYesNo) = vbYes Then Target = nw
   Application.EnableEvents = True
 End If
End Sub

 

[SUVERMO]

Eindelijk een oplossing gevonden en getest.

Maar nu is er een ander probleem.

Hoe kan men bekomen dat er op de ENTER-TOEST moet gedrukt worden als men iets wil ingeven in Dieren_Bib!C11:C19 of Dieren_Bib!I11:I19
Nu is het zo dat als er iets getypt wordt in één van deze cellen en men klik op een andere cel ipv de ENTER-TOEST te gebruiken dan verschijnt het getypte ook in de aangeklikte cel.

 

[edmoor]

Zie:
https://www.helpmij.nl/forum/showth...-enter-toets?p=6299911&viewfull=1#post6299911