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

Sorteren

Status
Niet open voor verdere reacties.
B

Bertus78

Gebruiker
Lid geworden
17 aug 2017
Berichten
209
beste lezer,

Wat gaat er hier fout.
Hij loopt steeds vast op
Code: 
Columns("A:ZZ").Select

Code: 
Sheets("lijst").Select
Columns("A:b").Select
Selection.Sort _
Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
Range("A65536").End(xlUp).Offset(1, 0).Select

Bedoeling is om lege rijen te verwijderen door te sorteren in kolom A.

Alvast bedankt voor je reactie !!!

#beginner
 
Hij geeft een foutmelding op Columns("A:ZZ").Select

Maar naar mijn idee is dat niet fout.
 
Laat ik het anders zeggen, misschien is dat beter met wat ik wil.

Ik heb dit
Code: 
With Sheets("B2")
 gev = Application.Match(Sheets("Vervolg").Range("D4"), .Columns(1), 0)
  If Not IsError(gev) Then .Rows(gev).Cut Sheets("Opgeslagen").Cells(Rows.Count, 1).End(xlUp).Offset(1)
 End With

Maar ik wil de betreffende rij selecteren en wissen en alles wat er onderstaat gaat dan 1 rij omhoog.
Dus op mijn lijst heb ik geen lege rijen.
Hoe kan ik dit zo aanpassen dat hij dat uitvoert?
 
Het is voor iedereen makkelijker als je een bestandje bijvoegt waarin we de macro kunnen proberen/aanpassen.
 
Geen idee of je de gegevens met opmaak van de rij nog wilt verplaatsen.

Code: 
With Sheets("B2")
 gev = Application.Match(Sheets("Vervolg").Range("D4"), .Columns(1), 0)
  If Not IsError(gev) Then 
   .Rows(gev).copy Sheets("Opgeslagen").Cells(Rows.Count, 1).End(xlUp).Offset(1)
   .rows(gev).delete
 end if
End With
 
Alleen o.b.v. de eerste vraag. Columns moet je m.i. vervangen door Range.

Maar alle selectstatements tussendoor zijn echt niet nodig. Hier een voorbeeldje zoals ik het zou doen:
Code: 
Sub sort_testje()
    Sheet1.Range("A:ZZ").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
 
Super bedankt allemaal,

Ik kan hiermee gaan spelen.

TOPPIE

:thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan