• 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.

dagtotalen lukken niet

Status
Niet open voor verdere reacties.
@JVeer:

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:
Yep, na de suggestie van popipipo zag ik t ook
 
kuin047 zei:
Ben nu twee dagen bezig om de administratie opnieuw in te voeren, maar het is gelukt.
Klik om te vergroten...

dat maakt mij heel nieuwsgierig, wat moest je allemaal opnieuw invoeren? Je hebt de gegevens toch al digitaal?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan