Berichtje plaatse in een exelblad

[Oude leerling]

Als H1:4=een heel getal is , dan het bericihtje "Kopie maken van werkblad" , anders
Range("K4").Select

Zelf heb ik het volgende gemaakt maar het werkt niet.

Sub Macro1()

' Sneltoets: CTRL+a
J9 = Application.WorksheetFunction. _
MOD(H1, 4) = 0
If Range("J9") = "True" Then
MsgBox "Copy maken op USB-stick"
Else
Range("K4").Select
End If
End Sub


Weet iemand een oplossing?

Groetjes Jaap

 

[Wigi]

Ik begrijp de bedoeling niet echt, maar dit zou moeten werken:

Sub Macro1()

' Sneltoets: CTRL+a
    If Range("H1").Value Mod 4 = 0 Then
        MsgBox "Copy maken op USB-stick"
    Else
        Range("K4").Select
    End If
End Sub

 

[Oude leerling]

Een berichtje plaatse in een exelblad

Ik heb het boek gekocht "Leer jezelf makkelijk Macro's programmeren met VBA",
dus niet zo'n held op dit gebied, maar:

De bedoeling is , dat als in cel H1 een getal staat dat deelbaar is door 4 , er een berichtje komt

 

[Oude leerling]

Wigi,

Wat laat , maar heb jou formule geprobeerd maar het werkt niet.

Groetjesw

 

[ExcelAmateur]

Oude leerling,

Hij werkt bij mij perfect hoor.
Zie bestandje.

 

[Oude leerling]

Probleem opgelost
Werkt perfect.
Zeker de eerste keer wat fout gedaan


Bedankt voor de moeite.

Groetjes Jaap