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

Voorwaardelijk op gemaakte cellen blijven niet rood

Status
Niet open voor verdere reacties.
@AD1957,

Thanks, dat was 'm.

Ik heb het goed werkende blad in de bijlage terug naar het origineel gekopieerd en voila, het gebeurde wat ik wilde.

In die hoek had ik het met mijn kennis nooit gezocht.

Iedereen, met name ook VenA, hartelijk dank voor het meedenken en reacties.

Frans
 
Op verzoek de 2 topics samengevoegd
 
Hallo,

De macro KolomN_Goed, werkt goed.
De juiste rijen in kolom N worden van "1" en "0" voorzien.
De rijen met "0" worden verwijderd.

In macro KolomN_FOUT gaat het niet goed.
Ook hier is het de bedoeling dat de juiste rijen van "1" en "0" worden voorzien.
Alleen hier moeten de rijen met "1" worden verwijderd zodat de rijen met "0" overblijven.

Echter niet alle rijen met "1" worden verwijderd.
de bovenste rij met "1" in kolom N wordt niet verwijderd.

Zie macro KolomN_FOUT in de bijlage.

Frans
 

Bijlagen

  • CSV (1) (1).xlsb
    42,3 KB · Weergaven: 19
Code: 
Sub KolomN_FOUT()
Sheets("CSV").Cells.Clear
Sheets("Blad1").Cells(1).CurrentRegion.Copy Sheets("CSV").Range("A2")
With Sheets("CSV").Cells(2).CurrentRegion.Resize(, 14)
  .Columns(14).FormulaR1C1 = "=IF(COUNTIFS(C[-13],RC[-13],C[-1],RC[-1])>1,1,0)"
  .Columns(14).Value = .Columns(14).Value
  .AutoFilter 14, "1"
  .EntireRow.Delete
End With
Range("A1").Select
End Sub
 
Laatst bewerkt:
Silvester-ponte,

Uw code werkt ook, als mede met de 2 onderstaande codes.

Echter het probleem is bij alle 3, denk ik, het woord DELETE.
Na uitvoering macro is in Formules/Namen beheer de verwijzing naar kolom A en M verwijderd.

Frans

Code: 
.AutoFilter 14, "1"
      .Offset(0).EntireRow.Delete
   .AutoFilter
       End With
    Selection.AutoFilter ''Anders blijft filter in 1e rij aanwezig

Code: 
Dim i As Long
With ActiveWorkbook.Sheets("CSV")
    For i = 5000 To 1 Step -1
        If .Cells(i, "N") = "1" Then
            .Cells(i, "N").EntireRow.Delete
        End If
    Next i
End With
 
Laatst bewerkt:
deze?
Code: 
Sub KolomN_FOUT()
Sheets("CSV").Cells.Clear
Sheets("Blad1").Cells(1).CurrentRegion.Copy Sheets("CSV").Range("A1")
With Sheets("CSV").Cells(2, 1).Offset(1).CurrentRegion.Resize(, 14)
  .Columns(14).FormulaR1C1 = "=IF(COUNTIFS(C[-13],RC[-13],C[-1],RC[-1])>1,1,0)"
  .Columns(14).Value = .Columns(14).Value
  .Offset(-1).AutoFilter 14, "1"
  .EntireRow.Delete
  .AutoFilter
End With
Range("A1").Select
End Sub
het resultaat staat een regeltje lager.
 
Laatst bewerkt:
Silvester-ponte,

Geeft foutmelding 1004
en de regel:

Code: 
.Offset(-1).AutoFilter 14, "1"
wordt geel gearceerd.

Frans
 
A1 moet A2 zijn
Code: 
Sub KolomN_FOUT()
Sheets("CSV").Cells.Clear
Sheets("Blad1").Cells(1).CurrentRegion.Copy Sheets("CSV").Range("A[B][I][U][COLOR="#FF0000"]2[/COLOR][/U][/I][/B]")
With Sheets("CSV").Cells(2, 1).Offset(1).CurrentRegion.Resize(, 14)
  .Columns(14).FormulaR1C1 = "=IF(COUNTIFS(C[-13],RC[-13],C[-1],RC[-1])>1,1,0)"
  .Columns(14).Value = .Columns(14).Value
  .Offset(-1).AutoFilter 14, "1"
  .EntireRow.Delete
  .AutoFilter
End With
Range("A1").Select
End Sub
 
Silverter-ponte,

Bedankt, ik kan weer vooruit.

Iemand enig idee waarom in macro kolomN_goed wel alle "nullen" worden verwijderd, hier behoren de "enen" over te blijven.
in KolomN_fout er niet alle "enen" worden verwijderd, hier behoren de "nullen" over te blijven.

Er blijft nl. 1 rij met in kolom N een "1" achter.

Frans
 
Hallo,

Macro werkt goed.

Echter bij het het inladen van een nieuw CSV bestand of het kopieren van blad RESCSV naar blad CSV
komen er de nodige regels in namen beheer te staan.
Dat worden er op een gegeven moment zoveel dat Excel traag wordt met opstarten.
Als ik alle regels, op de laatste 2 na, handmatig verwijder dan werkt Excel weer snel.

Is het mogelijk om met een macro alle regels die met Externe.... beginnen te verwijderen?

zie bijgevoegd printscreen

Frans
 

Bijlagen

  • Schermopname (2).png
    Schermopname (2).png
    180,3 KB · Weergaven: 27
Altijd mooi die plaatjes. Plaats het document met de code erin.
 
Plaats het csv bestand in de map C:\Test
Open het excel bestandCSV(2.xlsb en activeer macro1
Kies in map test het 09122020.csv bestand.

iedere keer als de macro wordt gestart verschijnt er een regel Externe...... in Namenbeheer.

Zou deze al deze regels gaarne verwijderen middels een code ingevoegd in bv macro1

Frans
 

Bijlagen

  • CSV (2).xlsb
    40,2 KB · Weergaven: 14
  • 09122020.csv
    170 KB · Weergaven: 14
Door dit toe te voegen
Code: 
'
' toegevoegde namen verwijderen
'
For weg = ActiveWorkbook.Names.Count To 1 Step -1
    testnaam = ActiveWorkbook.Names(weg).Name
    If InStr(1, testnaam, "Extern", vbTextCompare) Then ActiveWorkbook.Names(weg).Delete
Next weg
'
' alle bereiknamen waar "Extern" in voorkomt zijn verwijderd
'
'

zie bijlage
 

Bijlagen

  • CSV (2-HS).xlsb
    39,1 KB · Weergaven: 15
Haije,

Thanks, werkt uitstekend.:thumb:

Frans
 
Laatst bewerkt:
Hallo,

Toch nog een #naam? probleem

Macro INGEPLAND met tabel INGEPLAND werkt goed. In kolom N komt "1" of "0" te staan.

Macro AFGENOMEN met tabel AFGENOMEN heeft 2 kolommen minder.
Echter in kolom L komt nu #NAAM? te staan, ipv "1" of "0"

Wat ik kan ontdekken is dat dat kolom K niet wordt geselecteerd.
Alleen cel A1 en kolom A en cel K1.
Zie de kleuren als je de cursor in de formule balk zet.

Wat die ik verkeerd en kan ik er voor zorgen dat kolom K ook wordt geselecteerd?

Frans
 

Bijlagen

  • CSV (1).xlsb
    34,4 KB · Weergaven: 25
Als ik in tabel AFGENOMEN 2 kolommen invoeg en de code van INGEPLAND gebruik werkt het wel goed.
Waarom dan niet in een tabel met minder kolommen?

Niemand die de oorzaak weet of wat tips heeft?

Frans
 
in jou macro AFGENOMEN staat deze regel:
Code: 
    .Columns(12).FormulaR1C1 = "=L(COUNTIFS(Kolom_A,RC[-11],Kolom_K,RC[-1])>1)"
wijzig dat eens in:
Code: 
    .Columns(12).FormulaR1C1 = "=[COLOR="#FF0000"]N[/COLOR](COUNTIFS(Kolom_A,RC[-11],Kolom_K,RC[-1])>1)"
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan