• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Cellen wissen

Status
Niet open voor verdere reacties.
Hoi, de code die je nu stuurd werkt niet op het wissen van P. Ik had deze formule en die werkte ok.


Code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("O3:O5000")) Is Nothing Then
     For Each c In [O3:O5000]
      If c > 0 Then
        c.Offset(, 1).ClearContents
       c.Offset(, 2) = c.Offset(, 2).Value
      End If
     Next
  End If
  
Application.EnableEvents = False
   For Each c In [Q3:Q5000]
     If c = "X" Then c.Offset(, -3) = c
        Next
If Not Intersect(Target, [P3:P5000]) Is Nothing Then
           If InStr("Xx", LCase(Target)) > 0 Then Target.Offset(, -12).ClearContents
If Not Intersect(Target, Range("O3:O5000")) Is Nothing Then
     For Each c In [O3:O5000]
      If c > 0 Then
        c.Offset(, -11).ClearContents
       c.Offset(, -1) = c.Offset(, 2).Value
      End If
     Next
  End If
  End If
 Application.EnableEvents = True
End Sub

Over kolom R zal ik zo antwoord geven.

Greetz
 
Op het wissen van kolom P ?
Als je een 'X' plaatst in kolom P, wordt in kolom D toch de formule gewist?
 
Klopt, bij het invullen van P wordt D gewist. Maar als men later in kolom O een datum invuld moet P wel worden gewist. Het werkt in de formule die ik plaatste.

Greetz
 
Er weer in gezet (excuses).
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

If Not Intersect(Cells(Target.Row, 3), Target) Is Nothing Then
  If Target.Value > 0 Then
     With Target
     .Offset(, 1).FormulaR1C1 = "=IF(OR(RC[11]>0,RC[12]>0),"""",IF(RC[-1]>0,""X"",""""))"
     .Offset(, 14).FormulaR1C1 = "=IF(RC[-14]="""","""",IF(OR(AND(WEEKDAY(RC[-14],2)=5,RC[-14]<=Today()-5)),""X"" ,IF(AND(WEEKDAy(Rc[-14],2)<5,RC[-14]+3<=Today()),""X"","""")))"
     .Offset(, 2).Formula = "=Isoweek(RC[-2])"
     End With
    End If
 End If
   For Each c In Range("Q3:Q" & Cells(Rows.Count, 3).End(xlUp).Row)
     If c = "X" Then c.Offset(, -3) = c
       Next
If Not Intersect(Target, Range("P3:P" & Cells(Rows.Count, 3).End(xlUp).Row)) Is Nothing Then
           If InStr("Xx", LCase(Target)) > 0 Then Target.Offset(, -12).ClearContents
         End If
If Not Intersect(Target, Cells(Target.Row, 15)) Is Nothing Then
    If Target.Value > 0 Then
      With Target
        .Offset(, -11).ClearContents
        .Offset(, -1) = .Offset(, 2).Value
        .Offset(, 1).ClearContents
        End With
      End If
     End If
  Application.EnableEvents = True
End Sub
 
Sorry, maar nu wordt de formule uit Q niet gewist als ik P invul. Er is toch iets niet goed in deze formule. De formule die ik plaatste werkte alles ok.

Ik had al een formule gemaakt voor kolom M, misschien dat het daarom niet werkt. De formule is
=ALS(OF(C3="";O3="");"";ALS(O3-C3<3;"n";""))
Maar deze formule wil ik in R hebben en dan met een kopie, X naar kolom M.

Greetz
 
Laatst bewerkt:
Werkt perfect bij mij.

Kolom Q zou ook niet gewist worden volgens jouw beschrijving in je vorige postings, en is ook nooit gewist door vorige code.
Je brengt er wel verwarring mee, of het ligt aan mij (kan ook).
Ik heb de formule in kolom R gezet, is geen probleem voor de code.

Test het eens.
 

Bijlagen

Misschien doordat ik wat in de formule had bijgezet, hier werkt de formule die ik geplaatst heb wel. Ik weet niet waarom dat bij jou niet werkt. Heb je misschien meerdere bestanden geopend in Excel? Probeer is alleen het bestandje te openen en dan de formule erin die ik geplaatst heb. Ben benieuwd.

Greetz
 
Hoi, helaas werkt het bestandje niet.

De code die ik heb geplaatst zou moeten werken bij jou. Ik heb wel wat aagepast in de formule, zodat de X uit P verwijderd werd. Vreemd dat het bij jou niet lukt. Hier wordt de formule uit Q en D gewist door het invullen van O.

Greetz
 
De formule wordt inderdaad gewist zie ik, en plaatst er een 'X' voor terug.
Komt hierdoor;
Code:
c.Offset(, 2) = c.Offset(, 2).Value
Mijn excuses.

Upload je eigen bestandje eens, en beschrijf eens wat er aan schort.
Begrijp niet waarom het laatst bestandje van mij niet werkt.

Werkt het niet of voldoet het niet.
 
Hoi, ik heb het nogmaals getest en er een code toegevoegd. Met deze code wordt de formule wel gewist uit kolom Q. Dit is dus de beddoeling. Ik heb in het bestandje vermeld wat er nu nog niet goed werkt.

Code:
If Not Intersect(Target, Range("O3:O5000")) Is Nothing Then
     For Each c In [O3:O5000]
      If c > 0 Then
        c.Offset(, 1).ClearContents
       c.Offset(, 2) = c.Offset(, 2).Value
      End If
     Next
  End If

Greetz

Bekijk bijlage Voorbeeld excel2.xls
 
Laatst bewerkt:
Je schrijft in je bestandje:
Als door de formule in kolom R een X wordt geplaatst, dan een kopie van de X in kolom M plaatsen.
In kolom R staat een formule die geen 'X' creëert (zie qoute)
Code:
=ALS(OF(C3="";O3="");"";ALS(O3-C3<3;"n";""))

Hoe moet dit dan worden?
 
Hoi, foutje. Dit is de juiste.

Code:
=ALS(OF(C3="";O3="");"";ALS(O3-C3<3;"X";""))

Greetz
 
Kijk eens hoe ver we zijn JF.
 

Bijlagen

Hoi, het werkt! Helemaal ok!!! Bedankt!. Nu nog ff de formule over zetten in ander excel bestand. Nog een tip hoe ik dit het beste kan doen?

Greetz
 
Laatst bewerkt:
Nou, dan moet het zo goed komen.
 

Bijlagen

Harry nog 70 postings te gaan :p :p , in 1 van de andere topics zijn we aan 105 gekomen toen het via formules ging . :thumb:

Niet te hopen Daniël,

Wat heb ik toch een ijzeren geduld he. :P
 
Hoi, ik heb nog een vraagje. Hoe pas ik deze formule aan in kolom R?

Code:
=ALS(OF(C3="";O3="");"";ALS(O3-C3<3;"X";""))

Het probleem is dat wanneer 3 dagen in het weekend vallen het niet werkt.

Mi-Di-Wo =ok
Di-Wo-Do =ok
Wo-Do-Vr =ok
Do-Vr-Wkd. is -2 dagen weekend. Op maandag P invullen werkt nu niet.
V-Wkd-Ma-Di. is -2 dagen weekend. Op maandag en dinsdag P invullen werkt niet.

Greetz
 
Laatst bewerkt:
Hoi,

Ik begrijp wat je bedoeld, maar ik weet de te volgen handelingen niet helaas.
Je begint in kolom C; vult een datum in; en dan verder??
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan