if conditie in macro

[Gesus]

Hallo,

Onderstaand deel van een macro doet het niet. Hij loopt al vast bij de eerste conditie:

If Cells("a3") <> 0 Then
Range("A3").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End If

If Cells("a3") = 0 Then
Range("A3").Select
End If

Ik wil graag controleren of de inhoud van cel A3 leeg is of gevuld. Afhankelijk daarvan moet hij de cursur op of cel A3 of A3 met <end><down> positioneren.

Wie ziet de fout???

bij voorbaat dank voor de moeite


Gesus

 

[Cobbe]

Ik snap hem niet helemaal:

Sub test()
If Cells(3, 1) <> 0 Then
Range("A3").End(xlDown).Rows.Select
End If

If Cells(3, 1) = 0 Then
Range("A3").Select
End If
End Sub

Cobbe

 

[Ginger]

...en om door te borduren op het voorstel van Cobbe... Waarom 2x testen wat er met de inhoud van die cel A3 aan de hand is???

Sub test()
If Range("A3").value <> 0 Then
    Range("A3").End(xlDown).offset(1).Select
Else
    Range("A3").Select
End If
End Sub

Gesus, probeer als 't ff kan niet alle stijlen van range-benoeming door elkaar te gebruiken. Dan creëer je syntaxfouten zoals je die hebt gemaakt.

Groet, Leo

 

[Roncancio]

Hallo,

Onderstaand deel van een macro doet het niet. Hij loopt al vast bij de eerste conditie:

If Cells("a3") <> 0 Then
Range("A3").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End If

If Cells("a3") = 0 Then
Range("A3").Select
End If

Ik wil graag controleren of de inhoud van cel A3 leeg is of gevuld. Afhankelijk daarvan moet hij de cursur op of cel A3 of A3 met <end><down> positioneren.

Wie ziet de fout???

bij voorbaat dank voor de moeite


Gesus

De syntax voor Cells is Cells(rij,kolom) dus in jouw geval:
Cells(3,"A")
Verder gelieve geen gebruik te maken van Select icm Selection, maar rechtstreeks.

Met vriendelijke groet,


Roncancio

 

[Gesus]

Hallo Ginger, Cobbe en Roncancio,

Bedankt voor alle tips. Ik kan ze goed gebruiken!!

:thumb:

Met vriendelijke groet,
Gesus