Oude data laten overschrijven met nieuwe data

[HSV]

Voeg de rode regel weer toe.

[COLOR=#ff0000].Columns(1).NumberFormat = "@"[/COLOR]
 .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(sv), 15) = sv
 .Cells(1).CurrentRegion.Sort Range("f1"), , , , , , , 1
 .Cells(1).CurrentRegion.RemoveDuplicates 1, xlYes

 

[cowann]

Hoi Harry,

Er gebeurt hetzelfde, ik heb de bestanden even toegevoegd in de bijlage.

 

[HSV]

Geen idee wat er fout gaat bij jou.

Sub hsv()
Dim sv
 With Application.FileDialog(msoFileDialogOpen)
    .InitialFileName = "C:\Users\aewg\Documents\POTATO PROJECT"
    .FilterIndex = 6
    .AllowMultiSelect = 0
  If .Show Then
   Workbooks.OpenText .SelectedItems(1)
    With ActiveWorkbook
        .Sheets(1).Columns(1).TextToColumns , 1, , , , , , , True, ","
          sv = .Sheets(1).Cells(1).CurrentRegion.Offset(1)
          .Close 0
            With Sheets("BRON")
            .Columns(1).NumberFormat = "@"
                .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(sv), 15) = sv
                .Cells(1).CurrentRegion.Sort Range("f1"), , , , , , , 1
                .Cells(1).CurrentRegion.RemoveDuplicates 1, xlYes
            End With
     End With
   End If
 End With
End Sub

 

[cowann]

Hoi Harry,

Helaas is het nog steeds niet opgelost, nu kan ik een csv. bestand inlezen alleen kan excel de ID code niet herkennen. Ik heb het probleem bijgevoegd in de bijlage. Dit is hopelijk het laatste probleem.

 

[HSV]

Dit stond al zo toen ik het bestand van het forum plukte.

Selecteer een cel met die 9,99E+14 en druk sneltoets F2 en daarna Enter.
Doe dit voor elke cel.

Sla het bestand op en voer de code uit om de .csv binnen te halen.
Nu zou toch alles gewoon moeten werken (tenminste bij mij wel).
Succes.

 

[cowann]

Hoi Harry,

Ik heb een schermafbeelding van alle stappen die ik doe gemaakt, wil jij kijken of ik een fout maak?

 

[HSV]

Zijn het 15 cijferige getallen?

Zo ja, zet de opmaak op getal zonder decimalen.

With Sheets("blad1")
              .Columns(1).NumberFormat = [COLOR=#ff0000]"#"[/COLOR]
              .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(sv), 15) = sv

 

[cowann]

Hoi Harry,

Bedankt, nu staan de volledige eid nummers er in. Probleem is nu dat de data niet meer ingelezen wordt. De data uit het eerste csv. bestand blijft staan en wordt niet vervangen door de oude data.

 

[cowann]

Hoi Harry,

Het probleem zit in de scanned date, als ik een macro toevoeg die de kolom f leeg haalt en dan een nieuw csv. bestand inlees dan lukt het wel. Het nadeel daarvan is dat ik niet meer kan zien van alle overige niet overschreven data wanneer deze data is ingelezen omdat ik de gehele kolom leeg haal.

 

[HSV]

Voeg de rode 2 eens toe.

.Cells(1).CurrentRegion.Sort Range("f1"), [SIZE=3][COLOR=#ff0000]2[/COLOR][/SIZE], , , , , , 1

 

[cowann]

1000 maal dank Harry!! :d

 

[HSV]

Graag gedaan.

 

[cowann]

Hoi Harry,

Ik wil dit bestand graag ombouwen naar 14 rijen, de scanned data vak gaat naar kolom E.
En de gegevens veranderen.

Waar in de code moet ik de aanpassingen doen?

 

[HSV]

Geen idee wat je bedoelt met 14 rijen.

Graag uitduiden in een Excel bestand.

 

[VenA]

Als je het verschil tussen rijen en kolommen niet eens weet dan lijkt mij VBA een stapje te ver. Je bent dol op plaatjes maar deze sluiten nooit aan bij de geplaatste bestanden. Bedenk eerst wat het moet worden of huur iemand in die het voor je maakt. Al eens met <F8> door de code gelopen om te zien wat er zoal gebeurt. Vast niet.

 

[HSV]

Ben je weer met je kwantiteit-preken bezig @VenA ?

 

[VenA]

Nee eigenlijk niet. In tegenstelling tot de TS begrijp ik jouw code wel maar begrijp ik de gebrekkige vraagstelling niet. Maar modder maar lekker door tot jullie eruit gekomen zijn.

 

[HSV]

Als je de vragen niet begrijpt kun je ook wachten op de reactie van mijn vraag i.p.v. nutteloze en denigrerende opmerkingen te plaatsen.