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

Gegevens wegschrijven dmv lijst.

Status
Niet open voor verdere reacties.
Beste HSV, ;)

Ben ook altijd maar aan het zoeken en ik denk dat ik het misschien gevonden heb.
De bestandjes die ik nodig heb om de code uit te voeren zij niet hetzelfde opgemaakt zoals het moet zijn.
Heb dit ontdekt door een vergelijk te maken met het huidig en een bestandje dat ik vroeger al eens heb opgeslagen thuis.

Morgen nog eens een poging proberen om het te testen op mijn werk.
Daarom dat ik deze morgend de bestandjes al verwijderd heb.

De bestandjes die gisteren verzonden zijn tellen gegevens in kolom A en dit mag niet kolom A moet leeg zijn.
Kolom E en F zijn gewisseld
Kolom G is leeg en moet gevuld zijn.
Kolom J en K zijn gewisseld.

Als je het wil testen, dan moet je het volgende doen:
Kolom A --> leeg
Kolom B --> Roepnaam
Kolom C --> Machine
Kolom D --> Omschrijving
Kolom E --> Werkorder
Kolom F --> Status
Kolom G --> OnderhoudsType
Kolom H --> BeginTijdstipGepland
Kolom I --> EindTijdStipGepland
Kolom J --> CapaciteitsGroepID
Kolom K --> Werkvoorbereider

Groetjes Danny. :thumb:
 
Betse HSV, ;)

Het is zoals ik dacht, de bestandjes waren niet goed gedowload van het intranet op ons werk.

http://www.freewebs.com/scheppie/bestanden/LK-Kranen%2030-08-2012.xlsxZiehier het resultaat dat het moet worden.

1 probleem heb ik wel nog en dat is:
Men kan niet filteren op datum.
In excel 2003 filtert men op tekst en in 2007 kan men filteren op datumfilter.
Graag zou ik willen filtyeren op kleiner dan vandaag.

Is hier nog een oplossing voor ?

Groetjes Danny. :thumb:
 
Helaas is het geen goede Zip-bestand, dus kan het niet openen.

Het zal zoiets worden Danny.
Code: 
.autofilter 1, "<" & date
De één staat voor 'field'.
Misschien moet je
Code: 
clng(date)
gebruiken.
 
Laatst bewerkt:
HSV zei:
Helaas is het geen goede Zip-bestand, dus kan het niet openen.
Klik om te vergroten...

Beste HSV, :thumb:

Eerst opslaan en dan openen --> is geen Zip-bestandje !

Het is niet de bedoeling dit via code te verwerken.

Je hebt volgende stukje code geschreven, maar dit wordt als tekst in het bestandje geplaatst:

Code: 
            For Each cdt In .Columns(9).SpecialCells(2)
                cdt.Value = Split(cdt.Value)
                If cdt Like "##-##-####" Or cdt Like "##-#-####" Or cdt Like "#-#-####" Or cdt Like "#-##-####" Then
                cdt.Value = DateValue(cdt)
                cdt.NumberFormat = "dd-mm-yyyy"
                End If
                Next cdt
               .Range("B2:K" & .Cells.SpecialCells(11).Row).AutoFormat Format:=xlRangeAutoFormatClassic1
               .Cells.Borders(xlInsideHorizontal).LineStyle = xlNone
               .Columns.AutoFit
            End With

Weet niet of je dit kan aanpassen zodat het weggeschreven wordt als datum.
Daarna kan ik via Datumfilters filteren op de gewenste instellingen.

Groetjes Danny. :thumb:
 
Ik had nog een bestandje op mijn Pc.
Het bestandje wat je er neer gezet hebt wil helaas niet werken.

Wat betreft de datum in kolom I, het is een echte datum en geen tekst.
Je kan filteren zo als ik aangaf met 'Clng(date)'.
Net getest, en werkt goed.
 
Beste HSV, ;)

Dat van de data's, zal ik later eens bekijken om op te lossen.

Volgend vraagje:
Bij onderstaande code wil ik graag nog een voorwaarde hebben,de voorwaarden in de code + enkel de loopkraannummers die in het bereik Q2:Q200 staan van Blad1.

Code: 
 With Sheets("Blad17")
  .Range("A2") = "Alg. Contr. van alle onderd. van LK's"
  .Range("B2").Resize(, 10) = Split(sq, "|")
  .Range("A2:K2").Interior.ColorIndex = 37
 End With
 End With
With Sheets("Blad1")
 With .Range("A2:K" & .Cells(Rows.Count, 11).End(xlUp).Row)
       .AutoFilter 3, Criteria1:="*nische controle", Operator:=xlOr, Criteria2:="=*trole van alle onderd*"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad17").Range("A3")
              End With
       .AutoFilter 3, Criteria1:="*trole Sifa"
             With .Offset(1).SpecialCells(xlCellTypeVisible)
                .Copy Sheets("Blad17").Range("C500").End(xlUp).Offset(0, -2)
                Sheets("Blad17").Columns("E:K").HorizontalAlignment = xlCenter
              End With
              .AutoFilter
          
          End With

Zijn er vragen, dan hoor ik het wel.

Groetjes danny. :thumb:
 
Danny,

Het is beter om punt voor punt aan te pakken.
Het is niet gemakkelijk om na maanden de draad weer op te pakken.

Je nieuwe vraag:
Ik heb helemaal geen gegevens staan in kolom Q, en begrijp je voorwaarden eerlijk gezegd ook niet.
 
Beste HSV, ;)

Ik weet het dat het niet gemakkelijk is om de draad terug op te pakken na zoveel maanden.

Ik vind het jammer dat je het vorige bestandje niet kan openen, heb het 5x geprobeerd en het lukt telkens.
Eerst opgeslagen op mijn bureaublad en daarna geopend.

Daarom een ingekorte versie.

Is het mogelijk om in tabblad "A.C. van alle onderdelen LK's" enkel de LK nummers in kolom C te zien krijgen die in kolom AP staan van blad1 ?
Dit door een code te schrijven.
Hetzelfde geldt voor tabblad "A.C. van alle onderdelen takels" enkel de takel nummers in kolom C te zien krijgen die in kolom AQ staan van bald1.

Zoals je ook kan zien als je filtert in kolom H zie je tekstfilter staan ipv datumfilter.
Op tabblad "Herstellingen na controle LK's" in kolom I heb ik deze aangepast naar datum en in de filter is daar te zien datumfilter.

Daarvoor heb ik volgende formule gebruikt:

Code: 
=ALS(EN(H3="";H3="EindTijdstipGepland");"";DATUM(JAAR(H3);MAAND(H3);DAG(H3)))

Heb deze in kolom M geplaatst en daarna speciaal plakken, waarden en OK.

Hopelijk kan je me verder helpen.

Groetjes Danny. :thumb:
 

Bijlagen

Hallo Danny,

Helaas lukt het openen van je vorig bestandje niet.
Ik heb het gedaan zoals je schreef, maar het heeft de goede extensies niet mee (.xml), en dan krijg je alleen maar tekst.
Omdat het bij jou wel werkt komt waarschijnlijk omdat het op jouw Pc staat.

Code: 
Dim sq As Range, sq1 As Range, sq3 As Long, sq4 As Long
 With Sheets("Blad1").UsedRange
  Set sq = .Columns(41).Offset(1)
  Set sq1 = .Columns(42).Offset(1)
 End With
    sq3 = sq.Rows.Count
    sq4 = sq1.Rows.Count
 Sheets("A.C. van alle onderdelen LK's").Cells(3, 3).Resize(sq3) = sq.Value
 Sheets("A.C. van alle onderdelen takels").Cells(3, 3).Resize(sq4) = sq1.Value
 
Beste HSV ;)

Ik denk dat ik het verkeerd geformuleerd heb of jij mij mis begrepen heb :eek:

Wat ik wil is enkel de LK nummers willen zien (kolom C) op tabblad "A.C. van alle onderdelen LK's" die overeenkomen met de nummers in kolom AP op blad 1 staan.
Hetzelfde geldt voor AQ, AR en AS, maar dan voor de volgende tabbladen.

Heb een bestandje geplaatst met begin, het oorspronkelijk en eind, zoals het moet worden.

Hopelijk gegrijpen we elkaar nu ?

Groetjes Danny. :thumb:
 

Bijlagen

Ik heb je bericht een paar keer gelezen, maar kom er niet uit wat de bedoeling is.
In kolom C van de diverse tabbladen moet een LK-nummer komen uit kolom AP die overeenkomen met wat?
 
Beste HSV, ;)

Ik moet enkel de nummers zien die voorkomen in kolom AP van Blad1.

Dus rijen 5, 7, 8, 15, 17, 22, 25 enz met nummers in kolom C komen niet voor in lijst kolom AP op Blad 1, deze moeten verwijderd worden.
5 --> 1026, 7 --> 1032, 8 --> 1033, deze nummers komen niet voor in lijst kolom AP op Blad1.

Hopelijk zit je nu op de juiste trein :D

Groetjes Danny. :thumb:
 
Beste HSV,

Heb geprobeerd het bestandje te open van op mijn werk, en het lukt enkel als je de extensie veranderd in XLSX.
Eerst opslaan, extensie veranderen dan openen.

Groetjes Danny
 
Kijk maar of ik op het goede spoor rijd, en niet ergens een wissel verkeerd heb staan. :d

Code: 
Sub hsv()
Dim ws As Long, cl As Range, c As Range
 Application.ScreenUpdating = False
  For ws = 2 To Sheets.Count
   For Each cl In Sheets(ws).Columns(3).SpecialCells(2).Offset(1)
    Set c = Blad1.Columns(40 + ws).Find(cl, , xlValues, xlWhole)
  If c Is Nothing Then cl.EntireRow.Delete
    Next cl
  Next ws
End Sub
 
Beste HSV, ;)

Je hebt de verkeerde wissel genomen :P

Kolom C van tabblad "A.C. van alle onderdelen LK's" moet men vergelijken met kolom AP van Blad1
Kolom C van tabblad "A.C. van alle onderdelen takels" moet men vergelijken met kolom AQ van Blad1
Kolom C van tabblad "Herstellingen na controle LK's" moet men vergelijken met kolom AR van Blad1
Kolom C van tabblad "Herstellingen na controle takels" moet men vergelijken met kolom AS van Blad1
Waar nummer niet overeenkomt met nummer op Blad1, deze moet verwijderd worden.

Het is in de goede richting.
In het origineel bestand staat tabblad "A.C. van alle onderdelen LK's" op ws 17...

Zie bestandje hoe het er moet uitzien.

Groetjes Danny. :thumb:
 

Bijlagen

Mijn excuses Danny,

Als je rijen verwijderd, moet dat wel van onder naar boven.
Dat was wel een domme fout.

Probeer het nogmaals.
Code: 
Sub hsv()
Dim ws As Long, Lrow As Long, i As Long, c As Range
Application.ScreenUpdating = False
 For ws = 2 To Sheets.Count
   With Sheets(ws)
    Lrow = .Cells(Rows.Count, 3).End(xlUp).Row
 For i = Lrow To 2 Step -1
    Set c = Blad1.Columns(40 + ws).Find(.Cells(i, 3), , xlValues, xlWhole)
 If c Is Nothing Then .Cells(i, 1).EntireRow.Delete
    Next i
End With
  Next ws
End Sub
 
Beste HSV, ;)

Van zodra dat je gepost had, heb ik het mijne verwijderd.
Nu klopt het zoals het moet zijn :thumb: :d :thumb:

Kan je ook eens kijken naar de datums ?
Bij filteren zal je zien dat er geen datumfilter tevoorschijn komt.

Gebruik nu volgende formule om dit goed te krijgen:

Code: 
=ALS(EN(H3="";H3="EindTijdstipGepland");"";DATUM(JAAR(H3);MAAND(H3);DAG(H3)))


Groetjes Danny. :thumb:
 
Zet het eens in een klein bestandje met wat je doet.
Of om welke cellen gaat het.
Hoe komt die data daar tot stand.
 
Beste HSV ;)

Code: 
=ALS(EN(I3="";I3="EindTijdstipGepland");"";DATUM(JAAR(I3);MAAND(I3);DAG(I3)))

Eerst zet ik bovenstaande formule in cel M3, sleep deze dan naar beneden.
Ik kopieër het bereik, dan speciaal plakken in kolom I --> waarden en OK
Het bereik hangt af van hoeveel rijen er ingevuld zijn, min. = 0, max. = 1400

Zie bestandje waar ik de formules heb laten staan in kolom M.

Indien dit in een code kan gegoten worden voor Blad1 tem Blad33, enkel voor kolom I (EindTijdstipGepland)

PS. Gisteren heb je een post verwijderd, daarin stond in de code voor WS = 17
Groetjes Danny. :thumb:
 

Bijlagen

Laatst bewerkt:
Hier op het forum staat een formule verwijzend naar kolom H.
In het bestandje verwijs je met de formule in kolom M naar kolom I, waar je ook een plakken speciaal van de waarden in doet.

Zoals ik het nu bekijk weet ik niet hoe je aan de datum in kolom I komt, want de datum in kolom H komt niet overeen met kolom I.
Helaas kan ik je niet helpen als ik de juiste gegevens niet heb.
Waar moet ik van uit gaan als ik het in een code wil zetten.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan