Doubt in passing parameter to excel !!

[ganesha]

hello,

i am wariting a vba code where i am calling a function again and again. Is there any way i can avoid writing it again but call in a loop. your suggetsions would be highly appreciated. thanks in advance.

Call InputSubLoop(1, Range("A1"), Range("B1"))

Call InputSubLoop(2, Range("A2"), Range("B2"))

Call InputSubLoop(3, Range("A3"), Range("B3"))

Call InputSubLoop(4, Range("A4"), Range("B4"))


the function InputSubLoop looks like below,

Sub InputSubLoop(no, param1 As Range, param2 As Range)

End sub

 

[adam087]

Perhaps (not tested)

Dim i as Long
For i = 1 to 4
   Call InputSubLoop(i, Range("A"&i), Range("B"&i))
Next i

Not that there's anything wrong with your code if it works!

Regards
Adam

 

[Jonmo1]

Welcome to the board..

Try something like

Dim MyRange As Range, c As Range
 
Set MyRange = Range("A1:A4")
 
For Each c in MyRange
    Call inputSubLoop(c.Row, c, Range("B" & c.Row))
Next c

 

[ganesha]

It is working... thanks a lot Mr.James... thanks again for so fast and accurate reply !! good day !!

 

[ganesha]

Hello Mr.jonmo1... this suggestion also works... thanks alot. good day!!

 

[adam087]

No problem. Thanks for the feedback.

Regards
Adam