Private Sub

[Oude leerling]

Geacht forum

Ik wil , als in een bepaalde cel , het getal groter is als bv. 25 , er dan automatisch iets word uitgevoerd.

Kan dit met Private Sub ?

Hoe ziet dat er dan uit?

Vriendelijke groet Jaap

 

[edmoor]

Daar zijn weer meerdere mogelijkheden voor.
Voor een correct antwoord plaats je een voorbeeld documentje en leg je uit wat je precies en op welk moment wilt laten gebeuren.

 

[Oude leerling]

Edmoor ,

zie de bijlage

Bekijk bijlage Private worksheet.xlsm

Jaap

 

[VenA]

Lijkt mij meer iets voor een Change Event

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$G$8" Then Cells(1) = IIf(Target > 25, 15, 10)
End Sub

 

[Oude leerling]

VenA,

Dit werkt voor dit geval goed maar niet voor als er na "Then" een groot aantal nog moeten gebeuren

Kunt u mij een een oplossing geven dat onderstaande schrijfwijze ook gaat werken

Range("A1") = 10
Else
Range ("A1")=15

 

[edmoor]

Het voorbeeld van VenA doet zowel de 10 als de 15.
Als er meer moet gebeuren dan pas je de If structuur toch aan?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$G$8" Then
    Cells(1) = IIf(Target > 25, 15, 10)
  Else
    
  End If
End Sub

 

[VenA]

If Then Else zijn wel ontzettend basale onderdelen van VBA als je die niet begrijpt of niet kan kan vinden op internet of in je handboek dan gaat dit waarschijnlijk een lange exercitie worden.

If Target > 25 then
iets1
iets2
Else
iets3
end if

 

[Oude leerling]

VenA,

Ik ben eruit.
Vond het wat vreemd , tweemaal een IF achter elkaar.

Allebei bedankt voor het geduld en de genomen moeite

Jaap

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$G$8" Then
  If Target > 25 Then
  
  Range("A1") = 10
  Else
  Range("A1") = 15
  
  End If
  End If
End Sub

 

[edmoor]

Wat je daar doet is precies wat het voorbeeld van VenA doet. Je gebruikt alleen meer code en geen inspringpunten op de juiste posities.
De extra door VenA gebruikte functie is Iif en dus niet 2x If achter elkaar.

 

[VenA]

Mijn inspringpunten in #7 zijn ook niet al te best:d

Als er maar 1 opdracht na Then of Else hoeft te gebeuren dan mag je het ook achter elkaar schrijven

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$G$8" Then
    If Target > 25 Then Range("A1") = 10 Else Range("A1") = 15
  End If
End Sub

 

[edmoor]

Het is helemaal afhankelijk van wat precies de bedoeling is zoals ik al in #2 zei.
Deze variant is er ook nog:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$G$8" Then
    Select Case Target
        Case Is > 25
            Range("A1") = 10
        Case Is < 25
            Range("A1") = 15
    End Select
  End If
End Sub

En zo zijn er nog wel meer te verzinnen.

 

[snb]

Zoals deze:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$G$8" Then cells(1) = 15 + 5*(Target > 25)
End Sub