VBA for ISNUMBER function

Diego_Garcia · Nov 28th 2004

Hi
Can read simple macro keystroke vba and that is about it.
I would like to put this function into vba
if(isnumber(B13) then copy B13 (I can manage the paste).

Also is this correct ?

Code

If Range("G12") <= Range("G1") Then
    Range("G12").Copy
    Range("B13").PasteSpecial xlPasteValues
    End If

Tks
Garcia

Barrie Davidson · Nov 28th 2004

Re: VBA for ISNUMBER function

Code

If IsNumeric(Range("B13").Value) Then
    Range("B13").Copy
End If

Second question, yes it will work.

**Jack in the UK** · Nov 28th 2004

Re: VBA for ISNUMBER function

This will test for a number as you ask for. hope gets you started, just add you code into this and shold be ok. Can delete the message box as is just a test.

Jack

Code

Option Explicit


Sub Button1_Click()
' written by: Jack in the UK
' [url]www.excel-it.com[/url]
' excel 2003


Dim rTarget As Excel.Range
Dim rDestination As Excel.Range


Set rTarget = Range("b13")


If IsNumeric(rTarget.Value) Then
' jiuk - just a test


MsgBox ("is number")


'jiuk - your code here


' if(isnumber(B13) then copy B13 (I can manage the paste).


Else
'jiuk - some code here if needs be


Exit Sub
End If




End Sub

Display More

Diego_Garcia · Nov 28th 2004

Solved Re: VBA for ISNUMBER function

Hi

Thank you for that. I will try them in the light of day.

Garcia of Solius

Dave Hawley · Nov 28th 2004

Re: Solved Re: VBA for ISNUMBER function

Garcia, please use the code tags as requested when posting code. [ga]*[/ga] before posting anything further.

VBA for ISNUMBER function

Participate now!

Share