IF ERROR formule

[vrouw]

Ik wil graag dat door onderstaande formule de cel "leeg" blijft als er ook niks in D8 op sheet 1 staat.
Nu komt er een 0 (nul) te staan maar moet dus leeg/blank zijn.

=IF(ISERROR(Sheet1!D8);"";(Sheet1!D8))

 

[AlexCEL]

Zo?

=IF(ISERROR(Sheet1!D8);"";Sheet1!D8&"")

of misschien:

=IFERROR(Sheet1!D8&"","")

 

[vrouw]

Super! daar was ik naar op zoek.

Echter doordat er nu formules in de (lege) cellen staat gaat het tellen met onderstaande niet meer goed.
Is dat te verhelpen?

    Range("A10").Activate
ActiveCell.CurrentRegion.Select
ActiveCell.Offset(ActiveSheet.UsedRange.Rows.Count, 0).Activate
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 

[AlexCEL]

Tja, het is een beetje vals spelen. Met de formule maak je van de 0 een tekst.

Deze kan ook, hier blijft een getal wel een getal. Misschien dat de VBA-code dan wel goed gaat, daar ben ik niet zo in thuis verder.

=IFERROR(1/(1/Sheet1!D8),"")

 

[HSV]

Waarschijnlijk doet dit....

 cells(rows.count,1).end(xlup).offset(1).pastespecial xlPasteValues

...hetzelfde als.

Range("A10").Activate
ActiveCell.CurrentRegion.Select
ActiveCell.Offset(ActiveSheet.UsedRange.Rows.Count, 0).Activate
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 

[emields]

Ooit zal je toch eens moeten leren een voorbeeldbestand te plaatsen zonder dat er telkens moet om gevraagd woeden.
Nu moet er telkens geschat worden war er zou kunnen staan als dat er niet staat en dat op de plaats komt van....

 

[vrouw]

Ik kom er toch niet uit en op verzoek hierbij een voorbeeld bestandje.

ik heb nu onderstaande code in de macro staan:

Cells(Rows.Count, 1).End(xlUp).Offset(1).Range("B1,C1") = "=NOW()"

je ziet dat hij dan ook de regels met de formule`s mee telt.

Wat ik graag wil is dat als de cel in Sheet2 de cel in kolom A is gevuld is dan alleen de macro daarop van toepassing is.

 

[VenA]

Zo?

Cells(1).Offset(Columns(1).SpecialCells(-4123, 1).Count, 1).Resize(, 2) = "=NOW()"

 

[emields]

Wat ik graag wil is dat als de cel in Sheet2 de cel in kolom A is gevuld is dan alleen de macro daarop van toepassing is.

Waar is de cel?

 

[E v R]

voortbordurend op de suggestie van VenA:

Columns(1).SpecialCells(xlCellTypeFormulas, 1).Offset(, 1).Resize(, 2) = "=now()"