shayanhaque
New Member
- Joined
- Mar 13, 2019
- Messages
- 19
Hi. i'm trying to make custom addin for the below code. I'm new to excel can you please assist how can i customize ribbon in order to run addin. in addition, how can i make addin for this code
Sub test()
Dim Ary As Variant
Dim NewBk As Workbook
Ary = Range("A1", Range("A" & Rows.Count).End(xlUp)).Value2
Range("V1").Resize(UBound(Ary)).Value = Ary
Set NewBk = Workbooks.Add
NewBk.Sheets(1).Range("A1").Resize(UBound(Ary)).Value = Ary
MsgBox "Loaded " & UBound(Ary) & " items!"
End Sub
Sub test()
Dim Ary As Variant
Dim NewBk As Workbook
Ary = Range("A1", Range("A" & Rows.Count).End(xlUp)).Value2
Range("V1").Resize(UBound(Ary)).Value = Ary
Set NewBk = Workbooks.Add
NewBk.Sheets(1).Range("A1").Resize(UBound(Ary)).Value = Ary
MsgBox "Loaded " & UBound(Ary) & " items!"
End Sub
