Als er niet aan voorwaarde wordt voldaan cellen leeg maken

Status
Niet open voor verdere reacties.
P

Peter2016

Gebruiker
Lid geworden
4 sep 2015
Berichten
89
Als er in kolom A niet aan de voorwaarde "Urenfacturatie" of "Huidige Status" of "data" of als de cel leeg is, dan waardes in de kolommen A t/m S leeg maken.
Dus in het bestand moeten cellen van regel 25,26,27,28,42 leeg worden gemaakt t/m kolom S

Alvast weer bedankt voor jullie hulp.

Gr. Peter
 

Bijlagen

  • als niet aan voorwaarde wordt voldaan regel leeg maken.xlsx
    27,9 KB · Weergaven: 57
33 en 36 niet?
 
scherp Harry, die ook niet, had 'm aangepast maar niet opgeslagen toegevoegd.
 
Even in een testbestandje plaatsen.
Code: 
Sub hsv()
Dim sv, i As Long, j As Long
With Sheets("analyse Voorstel")
 sv = .UsedRange
  For i = 1 To UBound(sv)
   If InStr("|Huidige Status|Urenfacturatie|Urenfacturatie Kawasaki|data||", "|" & sv(i, 1) & "|") = 0 Then
     For j = 1 To 19
       sv(i, j) = ""
     Next j
   End If
  Next i
 .Cells(1).Resize(UBound(sv), UBound(sv, 2)) = sv
 End With
End Sub
 
hallo Harry,

Hier worden we weer blij van.
In A1 van mijn file staat de Waarde "Urenfacturatie met een variabele costcenter".
als deze waarde ook gelijk is, dan niets doen, anders cellen leegmaken.
Deze vervangt eigenlijk de tekst "Urenfacturatie" & "Urenfacturatie Kawasaki"

In mijn beleving zou de regel van jou er ongeveer zo uit moeten zien (maar dat zal het niet zijn, denk ik?):

If InStr("|Huidige Status|"A1"|data||", "|" & sv(i, 1) & "|") = 0 Then
 
Hallo Peter,

Is dit de volledige tekst die er staat.. "Urenfacturatie met een variabele costcenter".
Of bedoel je echt variabel....."Urenfacturatie vorige week" of bv "Urenfacturatie vorige maand".
 
Hallo Harry,

Sorry voor de late reactie, maar was 2 dagen onderweg.

D.m.v. Inputbox wordt er een locatie ingevoerd.

Op "A1" komt er tekst Urenfacturatie plus de naam die met de inputbox is ingevoerd.
Dus als de waarde in kolom "A" gelijk is aan "A1", dan niets doen, anders de waarde van de cellen tm kolom S

Ik hoop dat je me snapt.

Gr Peter
 
Code: 
If InStr("|Huidige Status|Urenfacturatie|Urenfacturatie Kawasaki|data||"[COLOR=#0000ff] & .Range("a1") & "|"[/COLOR], "|" & sv(i, 1) & "|") = 0 Then
 
Harry, een variant op jouw code:

Nu in kolom "AG" (ipv "A"), zelfde voorwaarde, alleen niet cellen 1 t/m 19 naar rechts leegmaken, maar alleen de cel in kolom AG?

Alvast weer bedankt.;)
 
Dit bedoel je Peter?
Code: 
Sub hsv_twee()
Dim sv, i As Long
With Sheets("analyse Voorstel")
 sv = .UsedRange
  For i = 1 To UBound(sv)
     If InStr("|Huidige Status|Urenfacturatie|Urenfacturatie Kawasaki|data||" & .Range("a1") & "|", "|" & sv(i, 33) & "|") = 0 Then sv(i, 33) = ""
  Next i
 .Cells(1).Resize(UBound(sv), UBound(sv, 2)) = sv
 End With
End Sub
 
Hallo Harry,

Het werkt wel, alleen ben ik mijn aantalarg formule op kolom A dan kwijt.

Zou het anders met een IF /Then code kunnen:
Als Cellen in bereik AG2:AG199 niet bevatten: waarde gelijk aan Cel AG1 of "Huidige status" of "data"
dan cel leeg maken.

zie bijlage

Groet Peter
 

Bijlagen

  • IF Then kolom AG.xlsx
    45,3 KB · Weergaven: 40
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan