Z
Zoe112233
Guest
Hi,
I am very new to visual basic and would like some assistance in 'translating' a macro so that I can understand the functions and 'procedure' better. I am a junior in my office and have inherited a boostrapping macro to be used on a data set in MS excel, however when I asked for one of my senior colleagues to explain it to me, no one could. I have tried to search each of the functions individually, however it doesn't really piece together the whole story. I am more comfortable working in STATA, and am not as familiar with VB. I understand what a bootstrap is supposed to do, but I am struggling to understand why the macro is set up this way.
The purpose of the macro is to bootstrap a mean value 1000 times. The macro is as follows:
Sub Replications()
'
' Replications INT1 Macro
'
Index = 0
Range("B77").Select
Selection.Copy
Do While Index < 1000
Range("B13").Select
ActiveCell.Offset(Index, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Index = Index + 1
Loop
Range("A2").Select
End Sub
Any assistance explaining this would be greatly appreciated!
Thanks,
Zoe
Continue reading...
I am very new to visual basic and would like some assistance in 'translating' a macro so that I can understand the functions and 'procedure' better. I am a junior in my office and have inherited a boostrapping macro to be used on a data set in MS excel, however when I asked for one of my senior colleagues to explain it to me, no one could. I have tried to search each of the functions individually, however it doesn't really piece together the whole story. I am more comfortable working in STATA, and am not as familiar with VB. I understand what a bootstrap is supposed to do, but I am struggling to understand why the macro is set up this way.
The purpose of the macro is to bootstrap a mean value 1000 times. The macro is as follows:
Sub Replications()
'
' Replications INT1 Macro
'
Index = 0
Range("B77").Select
Selection.Copy
Do While Index < 1000
Range("B13").Select
ActiveCell.Offset(Index, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Index = Index + 1
Loop
Range("A2").Select
End Sub
Any assistance explaining this would be greatly appreciated!
Thanks,
Zoe
Continue reading...