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

Range is datum geworden... wie helpt ?

Status
Niet open voor verdere reacties.
U

udo1967

Gebruiker
Lid geworden
28 mrt 2005
Berichten
159
In het voorbeeld bestand is Kolom D de Postcode Range.
Dit voorbeeld bestand is maar een fraktie van het totaal
en komt als export bestand uit een programma.

Alleen nu gaat er bij het exporteren in Kolom D wat fout.
Weet dat het bij de bron al fout gaat maar dat wordt
pas over maanden opgelost. Intussen moet ik wel
verder...

Is er een mogelijkheid de fout op te lossen...
(alles opnieuw intikken is monniken werk)

1 juli moet dus 1 - 7 worden.

Wie ?
 

Bijlagen

Hoe haal jij ze je programma binnen?
Is dit ook als d-mmm?
En moet bv
4 mrt ----> 3-4 worden?
30 dec ---> 12-30 ?
 
Misschien kan de code geheel anders met andere formules erin verwerkt (welke mij nog onbekend zijn) maar probeer deze eens:
Code: 
Sub omzetten_data()
Dim c As Range
Dim dag As String
Dim maand As String

Application.ScreenUpdating = False

    For Each c In Range("D2:D25")
        If InStr(c.Value, " ") = Empty Then
            i = InStr(c.Value, "-")
            dag = Left(c.Value, i - 1)
            maand = Right(c.Value, Len(c.Value) - i)

            If Format(dag, "d") < Format(maand, "m") Then
                c.Value = "'" & Format(dag, "d") & " - " & Format(maand, "m")
            Else
                c.Value = "'" & Format(maand, "m") & " - " & Format(dag, "d")
            End If
        End If
    Next
    
Application.ScreenUpdating = True
        
End Sub

Succes.

edit.
precies op het uur gepost.
 
Laatst bewerkt:
Demeter zei:
Hoe haal jij ze je programma binnen?
Is dit ook als d-mmm?
En moet bv
4 mrt ----> 3-4 worden?
30 dec ---> 12-30 ?
Klik om te vergroten...

Om precies te zijn krijg ik de gegevens via mijn baas aangeleverd
en zit niet in persoon achter dat programma. Exporteren naar
Excel format is een vast ingebakken optie en kan alleen via
herprogrammeren opgelost worden.

Inderdaad is de fout dat de Cel d-mmm is ipv tekst.
Don't ask me why...

Is het op te lossen dat het weer leesbaar wordt ?

4 mrt moet 3 - 4 zijn
en
30 dec moet 12 - 30 worden...

Is het een lastig onoplosbaar probleem ?
 
Demeter zei:
Misschien kan de code geheel anders met andere formules erin verwerkt (welke mij nog onbekend zijn) maar probeer deze eens:
Code: 
Sub omzetten_data()
Dim c As Range
Dim dag As String
Dim maand As String
End Sub

Succes.

edit.
precies op het uur gepost.
Klik om te vergroten...

Het werkt prima.... .

Bedankt ! :thumb:
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan