cellen aansluiten.

[helmus]

Ik heb in kollom A in bijna iedere cel een getal staan.
Is het ook mogelijk om met een druk op de knop de cellen die een getal bevatten op elkaar te laten aansluiten, zodat er in de kolom geen lege cellen meer voorkomen.

 

[jzeedijk]

Hoi Helmus,

Ik kan het antwoord op de vraag van FLBos vrijwel kopieren.

Meest simpele manier met een knop:
Knop maken:
Beeld-> Werkbalken -> Formulieren aanklikken
Uit de werkbalk Formulieren de knop (Grijs vierkantje) aanklikken en ergens in het werkblad een Knop maken (naar de positie gaan, linker muisknop ingedrukt houden en schuiven)
Nadat de knop gemaakt is wordt gevraagd om een macro toe te wijzen, kies voor nieuw en zet er de onderstaande macro in

Sub Knop1_BijKlikken()
For i = 2 To 9999:' 2 is de eerste rijnummer die vergeleken moet worden, 9999 de laatste.
If Cells(i, 1) ="" Then Rows(i).Delete:'Cells(i,1) komt overeen met Kolom A (kolomnummer 1) en Rij i, vergelijkbaar met excel-functie Adres(Rij,Kolom)
Next i
End Sub

Jeroen

 

[Jan van Asseldonk]

3 opties zonder macro:
1. Sorteer kolom A, afhankelijk van je keuze komen de lege cellen bovenaan of onderaan staan. Mogelijk niet toepasbaar voor je omdat de volgorde van waarden verandert.

2. Markeer het gebied en kies data, filter, autofilter.
Kies met autofilter voor lege cellen.
Markeer de lege cellen, druk op F5 (of Ctrl+G of bewerken, ga naar), kies speciaal en markeer alleen zichtbare cellen. (als je dit niet doet verdwijnen ook alle rijen met waarden tussen de lege cellen in!)
Klik rechts en kies voor verwijderen , hele rij.
Voordeel van deze methode is dat je snel kunt zien of er in andere kolommen nog waarden staan.

3. Snelste methode. Markeer het gebied, druk op F5, markeer lege waarden, klik rechts en kies voor verwijderen , hele rij.