Vraag & Antwoord

Anders (software)

Exel automatisch verwijderen

12 antwoorden
  • Wie kan mij helpen? In Exel wil ik als er in kolom a op een bepaalde regel een + staat dat de regel automatisch word verwijdert, kompleet met inhoud en opmaak. Deze + kunnen her en der in kolom a staan, dus de ene keer staan er plussen in kolom a bv. de regels 1,55,100,230. De volgende keer staan die weer op andere plaatsen. Ik weet dat je alle + kan sorteren en dan handmatig kan verwijderen. en hier evt een macro van kan maken. Maar in mijn geval verschillen de aantallen + eens. Ik weet niet of dit duide;ijk is maar anders zie ik het wel als er nog vragen zijn. groetjes Brie[/b]
  • Hey, Ik zelf heb hier op dit forum ook een vraag over gesteld. De code die bij mij staat is nog niet optimaal maar werkt wel. Zou je even moeten aanpassen voor jou geval. Zie: [url]http://forum.computertotaal.nl/phpBB/viewtopic.php?t=87908[/url] Groeten, Wouter
  • Ik ga deze formule morgen uitpoberen je hoort (zie't) er nog wel van. gr Brie
  • De volgende code heb ik gekregen maar hij laat nog regels staan die normaal gesproken wel weg hadden moeten zijn, wie kan mij helpen. Range("A1").Select Do Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, Searchdirection:=xlNext, MatchCase:=False).Activate If ActiveCell.Column <> 1 Then Exit Do Rows(ActiveCell.Row).Delete Loop
  • Hallo Brie, De volgende regel moet tussen rows(activecell.row).delete en de loop staan: [code:1:cde2997953]Cells(ActiveCell.Row - 1, 1).Select[/code:1:cde2997953] Nu haalt hij wel alles weg. Zie anders nogmaals bij de link, daar staat de hele code. Groeten Wouter
  • Ik had niet ver genoeg naar beneden gekeken. Bedankt. Ik heb deze formule geprobeerd, maar hij blijft in de loop staan. Dit is de code wat aangepast . Cells(1, 1).Select Do Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate If ActiveCell.Column <> 1 Then Exit Do Rows(ActiveCell.Row).Delete Cells(ActiveCell.Row - 1, 1).Select Loop End Sub :(
  • Het is natuurlijk logisch dat hij door gaat. maar is er een formule dat hij zo i zo stopt na 700 rijen want meer als 700 rijen heb ik nooit kan nauturlijk wel eens verschillen ene keer blijven er 300 over na selectie andere keer blijven er 500 over. Het is voor mij makelijker dat de formule sorteert op een lege cel. Groetjes brie
  • Tjeee, daar heb ik eigenlijk niet zo over nagedacht... Bij mij is namelijk het geval dat er in andere kolommen ook nog het gezochte in voorkwam. Hij ging dus nadat hij kolom 1 (in jouw geval) gehad heeft ging hij automatisch naar kolom 2 bijvoorbeeld. Toen ging hij de loop uit door de regel: [code:1:838ebf99b0]If ActiveCell.Column <> 1 Then Exit Do [/code:1:838ebf99b0] Dus als je wilt dat hij stopt moet je ergens in het werkblad een + neerzetten (maakt niet uit waar als het maar niet in kolom 1 is). Dit is natuurlijk niet zo'n mooie oplossing. Zal even nadenken voor een andere. Groeten, Wouter
  • OK, hier een ideetje: Voeg met behulp van de macro een nieuwe rij in als rij 1 (bovenste rij) Plaats met behulp van de macro een "+" in (bijvoorbeel kolom 2) een kolom, als het maar niet kolom 1 is. Voeg de code toe die je al heb. Na de loop moet de lege regel met alleen een plus weer verwijdert worden. De code hiervoor moet je zelf maar even bedenken. Lijkt me niet al te moeilijk. Kom je er toch niet uit kan je altijd nog voor tips vragen. Als je dit alles heb gemaakt heb je een macro die het volgende doet: Maakt een nieuwe rij 1 die helemaal leeg is met in kolom 2 een "+" De macro gaat zoeken naar "+" en in eerste instantie alleen in kolom 1. Deze regels worden allemaal verwijdert. In kolom 1 bevinden zich geen plussen meer. Macro gaat automatisch verder zoeken in een andere kolom. Komt in de eerste regel een plus tegen. Macro verlaat de loop omdat een andere cel dan een cel in kolom 1 is geselecteerd. "lege" regel 1 wordt verwijdert. Je werkblad is nu weer zoals hij was alleen zijn alle regels verwijdert waarin een "+" zat. En de macro is gestopt! Succes dermee. Groeten, Wouter
  • Ik heb mijn werkblad aangepast dat hij regels met de plussen verwijderd. eingelijk wilde ik dat als er in kolom a in een regel niets staat dat deze verwijdert word maar ik denk dan dat niet mogelijk is dus ik heb het om gedraaid en op jouw advies de code aangepast (liep zelf ook al met dit idee) maar zo zie je twee weten meer dan 1. alles werkt nu perfect Bedankt en mischien heb ik je advies in de toekomst nog eens nodig Groetjes Bryan
  • Als er in kolom a niets staat kan je deze ook laten weghalen hoor. Ik denk dat dat echter niet zal werken met find, maar dat je het anders moet doen. Je zou moeten uitvinden hoeveel totale regels er zijn, Je zou een loop moeten maken die dan kijkt wat er op elke regel de waarde van kolom a is. Indien de cel leeg is regel verwijderen. Ook dit is allemaal niet zo heel moeilijk. In voorgaande vragen kon ik echter niet opmaken dat je de regel ook wilde verwijderen met lege kolommen. Dacht dat het alleen moest als er een plus in stond. Groeten, Wouter
  • ik heb dit anders opgelost. door eerst kolom a te selecteren, de lege cellen te vullen met een - teken en vervolgens op de - tekens met de formule te verwijderen en wal la. ieder geval bedankt voor het mee denken. groetjes Bryan

Beantwoord deze vraag

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.