Oude leerling
Gebruiker
- Lid geworden
- 30 aug 2010
- Berichten
- 554
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
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