Counta vba code

[roschatz]

Goededag allemaal,

Kan iemand mij met het volgende helpen.
Ik heb hier een stukje vba code die ik van internet heb afgehaald.
Werk geweldig alleen wil ik er iets in veranderen.
De 20 in de 2e regel is variabel.
is er een mogelijkheid om iets als counta B5:B1000 te plaatsen ipv 20
en als dat kan, hoe doe ik dat.

Dim i As Integer
    
    For i = 5 To [B]20[/B]
    If Range("G" & i).Value Like "" Then
        With Range("G" & i)
            .ClearContents
            Select Case i
                Case 67: .Value = ""
                Case 71: .Value = ""
            End Select
        End With
    End If
Next i

Alvast bedankt

 

[spaarie]

Dan zou je die 20 moeten veranderen in 1000 en de "G" voor "B". Heb tevens een uitleg erbij geplaatst (deze kan je mee kopieren in VBA)

Dim i As Integer
For i = 5 To 1000 'welke regelnummers
If Range("B" & i).Value Like 1 Then 'de B is de kolom en plaats de te vervangen waarde tussen "" tekens
With Range("B" & i)
.ClearContents 'verwijder alles
Select Case i
Case 67: .Value = "a" 'regelnummer 67 wordt de waarde tussen de ""
Case 71: .Value = "b" 'regelnummer 71 wordt de waarde tussen de ""
End Select
End With
End If
Next i

P.s. als je een code plaatst, wil je deze dan plaatsen tussen de daarvoor toebehorende tags? Dat doe je door de gekopieerde code te selecteren en op het # te klikken in de editorbalk...

 

[roschatz]

Bedankt spaarie voor een snelle reactie.
Neem me niet kwalijk hoe ik het bericht heb geschreven, dit is voor mij
100 jaar geleden dat ik op een forum iets zet. Ik zag ook niet 123 hoe ik
weer moest reageren op jou opmerking.

Terug te komen op mijn vraag.
De vba code heb ik genomen omdat ik een query gebruik om informatie te
verzamelen die vervolgens kopie naar een andere locatie.
in kolom B staan eancode en ook lege cellen, alleen die lege cellen
zijn niet leeg. om die zogenaamde lege cellen handmatig te delete heb ik deze vba code.
Nu werkt de vba code als ik 5 to 1000 zet alleen is excel er een tijd mee bezig dus dacht ik
als ik nu eens kijk hoeveel regel het zijn dmv counta 5 t/m 1000 uitkomst bijvoorbeeld 23 schilt
dit veel tijd qua verwerkt. Is dit mogelijk ?

 

[spaarie]

Ik verwijt je ook niks, voor een volgende keer . Het reageren doe je via de 'quote' knop in de laatste reactie rechtsonder, maar daar hoef je niet per sé gebruik van te maken (anders krijg je van die grote plakken tekst).

Over je probleem; als je computer een tijd nodig heeft om 995 cellen te berekenen zou ik niet de oplossing in een andere VBA code zoeken...
Het eerste waar ik aan denk kan het dit zijn
1. Of je VBA code (die zo lang duurt) staat een hoop rotzooi in
2. Of je computer is een beetje verouderd

Post anders een voorbeeld bestandje van je orginele, dan kan iedereen even meekijken...