Lege rijen verwijderen en toevoegen van rijen

[boswottels]

Ik ben nu bezig met een excel sheet voor project administratie. Nu ben ik bijna klaar, alleen zit ik nog met een paar kleine dingetjes.

Kolom A in het werkblad Personeel wil ik gesorteerd hebben op Project nr. en dat de lege rijden verwijderd worden( waar dus geen project in staat in Kolom A ).

In werkblad Projecten, wil ik dan men een project kan toevoegen. En dat deze dan ook wordt toegevoegd in werkblad Personeel, Kolom A.
Bijvoorbeeld;

Er komt een nieuw project, onder categorie X, deze wordt toegevoegd in projecten onder project X nr. X.1. Dan wil ik die ook bij Het overzicht(personeel) hebben staan.


Ik heb dit geprobeerd, alleen ik krijg dan steeds witten regels.

Bedankt,
Michiel

 

[Superzeeuw]

Michiel,

Een duidelijke uitleg zou wonderen doen, gezien de hoeveelheid die gekeken hebben en geen reacties.
Je geeft aan dat je het eea werkend zou hebben maar in je progje ontbreekt elke vorm van code.

Hint.
Om hiervoor code te gaan schrijven lijkt mij niet zo zinvol.
Een paar klikken met de muis en je bent klaar.

 

[boswottels]

IK heb nu er wat verder aan gewerkt. Ik loop nu echter nog tegen enkele dingen aan;

• Ik wil de onderste rij niet in de sortering meenemen
  
• Als k oplopend of aflopend sorteer krijg ik deze niet ongedaan met mijn button show all( ik zou niet weten hoe ik dit moet oplossen)
  

Maar ik kom hier maar niet uit.

Alvast bedankt!

 

[Jack Nouws]

Hallo,

Probeer eens met deze code

Sub MyShowAll()
  Sheets("Personeel").[A4:AC49].Sort [AC4], xlDescending
End Sub

met vr gr
Jack

 

[boswottels]

Ik denk dat mijn vraag niet goed begrepen wordt.

Ik wil dit niet automatisch gesorteerd hebben, maar ik wil het dmv auto sort gedaan hebben. En deze sortering wil ik ongedaan kunnen maken met de button show-all.

 

[Hoornvan]

boswottels,

Ik wil dit niet automatisch gesorteerd hebben, maar ik wil het dmv auto sort gedaan hebben. En deze sortering wil ik ongedaan kunnen maken met de button show-all.

Ik dacht dat je sorteren niet ongedaan kunt maken.

Kun je dit niet met Filteren doen en naderhand het Filter uitschakelen?

 

[Warme bakkertje]

Sub tst1()
Sheets("Personeel").ShowAllData
End Sub

Met deze worden alle records terug getoond en blijft het autofilter actief

Sub tst()
Sheets("Personeel").AutoFilterMode = False
End Sub

Met deze worden alle records terug getoond en wordt het autofilter uitgeschakeld

 

[boswottels]

Sub tst1()
Sheets("Personeel").ShowAllData
End Sub

Deze code werkt niet bij mij. Ik gebruik office 2003 NL versie.

1004code

 

[Warme bakkertje]

Op jouw voorbeeldbestand uit Post #3 werkt dit nochtans perfect

 

[boswottels]

Ik heb mijn .xls toegevoegd als bijlage. Ik zou graag willen weten wat ik fout doe.

gr.

 

[Hoornvan]

boswottels,

Ik denk dat je de verkeerde macro had toe gewezen, nu werkt het wel.

 

[boswottels]

Bij jouw bestand krijg ik ook nog een fout.
fout 1004 tijdens uitvoering
methode showalldata van klasse worksheet mislukt

 

[Hoornvan]

Bij jouw bestand krijg ik ook nog een fout.
fout 1004 tijdens uitvoering
methode showalldata van klasse worksheet mislukt

Zou het kunnenzijn, dat je een oudere versie gebruikt?
Ik gebruk Excel 2007

 

[boswottels]

Sub tst1()
Sheets("Personeel").ShowAllData
End Sub

Deze code werkt niet bij mij. Ik gebruik office 2003 NL versie.

1004code

Zoals ik al heb gezegt heb ik office 2003 NL.

Raar dat in 2007 anders is

 

[Hoornvan]

Heb je trouwens de volgende invoegtoepassingen aan gevinkt staan?
Analysis Toolpak en Analysis Toolpak - VBA

Je weet maar nooit.

 

[boswottels]

Jep staan beide aan.

 

[boswottels]

Zou iemand mij kunnen helpen met mijn vraag incl met office 2003?

bvd!

 

[Warme bakkertje]

Met jouw voorbeeldbestandje uit Post#10 en mijn XL2002 SP3 werkt dit perfect
Welke verwijzingen heb je aangevinkt in VBA ? Is de bladnaam correct ?

 

[trucker10]

Mijn inziens werkt dit ook in excel 2007 en ook getest in 2010 , als ik de vraag goed interpreteer

 

[boswottels]

Ik heb even print screens toegevoegd

Deze (50) moeten vast blijven staan onderaan alle andere rijen.