Als een bepaalde cell NIET leeg is dan moet er een handeling uitgevoerd worden

[sjaakovic]

Heeft iemand een formule voor het volgende:

Als cell C1360 een waarde heeft, dan moet het volgende worden uitgevoerd:

Range("B1338:O1363").Select
Selection.ClearContents

Is C1360 leeg dan moet die het overslaan.

Bijvoorbaad dank

 

[wampier]

if cells(1360,3).value then ...

of

if cells(1360,3).value <> "" then

 

[Wigi]

If Range("C1360").Value <> "" Then Range("B1338:O1363").ClearContents

 

[sjaakovic]

Bedankt dit was inderdaad de oplossing!

Nu heb ik het volgende probleem indien de waarde van C1230 niet leeg is dan moet die het volgende stuk niet uit voeren, maar als die leeg is moet die het wel uitvoeren:

Range("B7:O32").Select
Selection.Copy
Range("B206").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("B39:O64").Select
Selection.Copy
Range("B238").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[sjaakovic]

If Range("C1360").Value <> "" Then Range("B1338:O1363").ClearContents

Dit was deels het antwoord, het is namelijk zo dat de waarde van C1360 uit een andere sheet komt, ( de tabel schuift steeds naar beneden, zodat er een geschiedenis opgebouwd wordt, waarmee een grafiek met history op gemaakt) Echter is het ook mogelijk dat de waarde van C1360, 0 is, maar 0 herkent die niet als een value dus dan wordt de voorwaarde alsnog niet uitgevoerd, maar dit moet wel het geval zijn, heeft iemand hier een oplossing voor.

Bij voorbaad dank.