snb
Verenigingslid
- Lid geworden
- 12 jun 2008
- Berichten
- 19.725
@JVeer:
ipv
In totaal:
ipv
Code:
Sub j()
For Each cell In Range("B1:G50")
If InStr(cell, "€") Then cell.Value = Left(cell, Len(cell) - 2) * 1
Next
End Sub
Code:
Sub M_snb()
Sheet1.UsedRange.Replace Chr(160) & "€", ""
End Sub
In totaal:
Code:
Sub M_snb()
With Sheet1.UsedRange
.Offset(, 1).NumberFormat = "general"
.Replace Chr(160) & "€", ""
For Each it In .SpecialCells(2, 2)
it.Value = --it.Value
Next
End With
End Sub
Laatst bewerkt: