Rijen verwijderen

[Harolda]

wat gaat er hier fout!?

Sub Rijenverwijderen()
Dim MyRow
Dim MyRij

Range("d1").Select

Do Until MyRow = 290
MyRow = MyRow + 1
If ActiveCell = "V" Then
MyRij = ActiveCell.Row
Rows("MyRij").Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop

End Sub

 

[Wigi]

Handel eens eerst eerdere topics af van jou, aub.

http://www.helpmij.nl/forum/showthread.php?t=286721

 

[Harolda]

Eerdere vraag

Die is opgelost!! Mijn excuses hiervoor!

 

[Wigi]

Zet ook code tags rond je code. Dan wordt ze leesbaar.

 

[Wigi]

Dim MyRow As Long
Dim MyRij As Long

Maar de grootste fout is dat je van onder naar boven moet werken, dus van 290 naar 1.

Een Autofilter toepassen en dan de gefilterde rijen verwijderen is nog beter en VEEL sneller.

 

[Harolda]

Tags?

Hoe bedoel je dat.. Ik snap niet waar ik die tags zou moeten neer zeten.

Of bedoel je die groene regels?

 

[Harolda]

maar ik wil het blad doorlopen en als hij iets tegen komt dus die letter V dan de rij verwijderen

En van onderen naar boven? Wat is daar de reden van?

 

[Wigi]

Hoe bedoel je dat.. Ik snap niet waar ik die tags zou moeten neer zeten.

Of bedoel je die groene regels?

Pas je post aan. Selecteer de VBA code, en klik op het hekje # net boven het tekstveld.

 

[Wigi]

En van onderen naar boven? Wat is daar de reden van?

Omdat door het verwijderen er een rijnummer tussenuit gaat en dan loopt het spaak bij jou.

 

[Harolda]

Sub VRIJREMOVE()
Dim MyRow As Long
Dim MyRij As Long

'De rij waarin het vergeleken wordt
Range("d1").Select

'Loop tot rij 290
Do Until MyRow = 290
MyRow = MyRow + 1
'Criterea v
If ActiveCell = "V" Then
MyRij = ActiveCell.Row
'in deze rij zit het criterea dus rij selecteren
Rows("&MyRij&:&MyRij&").Select
Selection.Delete Shift:=xlUp
Delete.ActiveCell.Row
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop

End Sub

Oke dus ik begin op regel 290 en ga dan dus naar boven toe

 

[Harolda]

Rows("&MyRij&:&MyRij&").Select

Op deze regel gaat hij fout

Ik dacht via Dim de regel aan de selectie mee te geven wat is hier voor de juiste methode

 

[Wigi]

Hier is er code.

 

[Harolda]

Maar dat zijn lege rijen!! Mijne zijn niet leeg?

 

[Wigi]

Je zal nog wel de moeite moeten doen om het een beetje aan te passen.

 

[Harolda]

Maar uit deze code word ik niks wijs

Ik ben op zoek naar het commando wanneer ik in een activecell sta en die voldoet aan een variable!

Dat hij dan de regel selecteerd.. Heb je het commando selecteer de Rij van je activecell

 

[Wigi]

Maar uit deze code word ik niks wijs

Je moet niets selecteren.

Dit is trouwens de code die aangepast moet worden.

Dim LastRow As Long, X As Long
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row

' Application.ScreenUpdating = False
''Set rRange = Range(Range("A1"), Range("A1000").End(xlUp))

For X = LastRow To 1 Step -1
If Range("A" & X).Value = "" Then Range("A" & X).EntireRow.Delete
Next

Wigi

 

[Harolda]

UCase werkt alleen projecteerd hij het alleen niet

Sub check()
Dim MyCount
Dim MyInterflex
Dim MyRooster
Dim LowerCase, UpperCase

Range("B4").Select
MyCount = 0

Do Until MyCount = 20
MyCount = MyCount + 1


LowerCase = ActiveCell
UpperCase = UCase(LowerCase)

 

[Wigi]

Volgens mij zit je met bovenstaande antwoord in een verkeerde topic. Ik begrijp er alleszins niets van.

 

[Harolda]

Maar hij werkt al wel

 

[Wigi]

Maar hij werkt al wel

Waarom staat de vraag dan nog gemarkeerd als onopgelost? Gewoon vergetelheid?