lege cel verwijderen van twee kolommen

[don42]

Beste allemaal,

Wie kan mij helpen met het volgende:
Heb in kolom B cijfers staan in willekeurige volgorde van 1 t/m 96
Dan heb ik in kolom A een 85 namen staan
nu wil ik graag als bv cel A 58 een lege cel is dat deze cel én de cel er naast B58 verwijdert word
In de cellen van kolom B staat altijd een cijfer
Dus de lege cel zoeken en zowel de cel van kolom A en B verwijderen
dan de volgende lege cel zoeken in kolom A

Don

 

[edmoor]

Met het verwijderen van een cel bedoel je dat een cel leeg gemaakt moet worden? Of bedoel je dat de hele rij kan worden verwijderd?
Plaats even een voorbeeld documentje.

 

[don42]

Dat de cellen echt verwijdert worden zodat er dus 85 namen in kolom A staan en 85 cijfers in kolom B naast elkaar

 

[edmoor]

Ok. En het gevraagde voorbeeld documentje?

 

[don42]

bijlage

Bekijk bijlage weken bijhouden roulering2.xlsm
en dan de cellen die ik geel gemaakt heb verwijderen
de vba code wil ik naderhand gebruiken om te sorteren op naam of nummer
het mooiste zou zijn als ik via een button de waarde van cel G en H gekopieeerd kan worden naar kolom L en M
en dan de eventuele lege cellen weer verwijderen

 

[edmoor]

Prima. Wil ik wel naar kijken maar dat lukt vanmiddag niet meer. Vanavond denk ik wel maar het kan zijn dat iemand anders je dan al geholpen heeft.

 

[don42]

alvast bedankt

 

[Leotaxi]

Bij vorige post fout bestand toegevoegd
bij deze de goede

mvg
Leo

 

[don42]

Leo, top
dit is wat ik graag wilde hebben bedankt

zou je mij kort willen uitleggen hoe de code werkt 'achter de regels
ik probeer het te lezen maar kom er niet helemaal uit

Sub Macro1()
'
' Macro1 Macro
'
Dim lastrow, at, x

lastrow = Range("g" & Rows.Count).End(xlUp).Row
x = 3

For at = 3 To lastrow
If Range("g" & at).Value <> "" Then
'Range("L" & x).Resize(1, 2).Value = Range("g" & at, "h" & at).Value
Range("L" & x).Value = Range("g" & at).Value [COLOR="#008000"] 'dit zijn de regels van mij[/COLOR]
Range("m" & x).Value = Range("h" & at).Value [COLOR="#008000"] 'dit zijn de regels van mij[/COLOR] ik snap dat [B]resize[/B] niet 
x = x + 1
End If
Next

End Sub

bvd Don

 

[Leotaxi]

Range("L" & x).Resize(1, 2).Value = Range("g" & at, "h" & at).Value

range "L" & x is de plaats waar de gegevens moeten komen, dus voor eerst gevonden waarde die voldoet wordt dit cel L3
Resize (1,2) staat voor het aantal rijen en kolommen dat we gaan plaatsen dus 1 voor 1 rij en 2 voor kolommen G en H
= Range is de bepaling waar de gegevens gehaald moeten worden.
met resize kan je veel tijd besparen in sommige gevallen.

mvg
Leo

 

[don42]

Hoi Leo,

bedankt voor de mooie uitleg ik zag in die 2 een kolom en kwam er niet uit nu is het duidelijk.
ga de vraag sluiten
top hoe je hier geholpen wordt :thumb: