RANGE

[SAGAR VYAS]

Sub SV()

Dim I, J, K, L As Integer


Sheet1.Activate
I = 1 'InputBox("enter value")
J = 1 'InputBox("enter value")
K = 2 'InputBox("enter value")
L = 2 'InputBox("enter value")

Range(Cells(I, J), Cells(K, L)).Copy

End Sub

Sub SAGAR()

Dim I, J, K, L As Integer


Sheet1.Activate
I = InputBox("enter value")
J = InputBox("enter value")
K = InputBox("enter value")
L = InputBox("enter value")

Range(Cells(I, J), Cells(K, L)).Copy

End Sub

FIRST VBA CODE RUN PROPERLY BUT IN SECOND I AM GETTING A ERROR "error application or object defined error"
Any one can help me.
THANKS

 

[HaHoBe]

Hi Sagar Vyas,

try

Sub SAGAR()

Dim I As Integer, J As Integer, K As Integer, L As Integer

I = Application.InputBox("enter value", Type:=1)
J = Application.InputBox("enter value", Type:=1)
K = Application.InputBox("enter value", Type:=1)
L = Application.InputBox("enter value", Type:=1)

If I > 0 And J > 0 And K > 0 And L > 0 Then
  Sheet1.Range(Cells(I, J), Cells(K, L)).Copy
End If
End Sub

or

Sub SAGAR_mod()

Dim rng As Range

Sheet1.Activate
Set rng = Application.InputBox("enter range to copy", "Range to copy", Type:=8)
rng.Copy
Set rng = Nothing
End Sub

ciao,
Holger

 

[SAGAR VYAS]

thank you sir