how to convert this? thanks

how to convert this? thanks

'RECORDING MACROS
Sub CopyToBase()
' CopyToBase Macro
' Macro recorded 7/12/98 by Tirso B. Paris, Jr.
' Keyboard Shortcut: Ctrl+ b

'  Record Simulation Results as Base
    Application.Goto Reference:="SIMRESULTS"
    Selection.Copy
    ActiveWindow.SmallScroll ToRight:=5
    Range("Q2").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

'  Record Base Value Added (Basis for Value Added Growth)
'    Application.Goto Reference:="BaseSumVal"
'    Selection.Copy
'    Application.Goto Reference:="BaseSum"
'    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
'        False, Transpose:=False
'    Application.CutCopyMode = False
    
'  Record Base Value Added (Basis for Ag. Income Growth)
'    Application.Goto Reference:="BASEAGDPVAL"
'    Selection.Copy
'    Application.Goto Reference:="BASEAGDP"
'    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
'        False, Transpose:=False
'    Application.CutCopyMode = False
    
'  Record Base Value Added (Basis for Ag. Income Growth)
'
Application.Goto Reference:="MIGVALS"
    Selection.Copy
    Application.Goto Reference:="MIGBASE"
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    
 ' Record Base Poverty Incidence
   Application.Goto Reference:="POVCALC"
   Selection.Copy
   Application.Goto Reference:="POVCALCBASE"
   Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=False
   Application.CutCopyMode = False
    
 ' Record Lorenz Curve Data
    Application.Goto Reference:="LRDATA"
    Selection.Copy
    Application.Goto Reference:="LRBASE"
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Application.Goto Reference:="PCD"
'
    Sheets("Summary").Select
    Range("E5:E999").Select
    Selection.Copy
    Range("D5").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Run "GOTOPOLVARS"
    
    MsgBox "Sucessfully recorded simulated results as base values."
'    Application.Goto Reference:="R1C1"
    End Sub

Sub CopySimResults()
'
' CopySimResults Macro
' Macro recorded 10/15/98 by Tirso B. Paris
'
' Keyboard Shortcut: Ctrl+d
'
    Sheets("Summary").Select
    Range("E5:E999").Select
    Selection.Copy
    Range("H5").Select
    Selection.PasteSpecial Paste:=xlValues
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=RC[1]+1"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "Enter Desc here"
        With ActiveCell.Characters(Start:=1, Length:=15).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 8
    End With
    Range("I1").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Range("E5").Select
    
'Sheets("Options").Select
'Run "GOTOPOLVARS"

End Sub



    Access your files securely from anywhere

        All-in-one knowledge management and training platform for your employees and customers.






                              Zoho Developer Community




                                                    • Desk Community Learning Series


                                                    • Digest


                                                    • Functions


                                                    • Meetups


                                                    • Kbase


                                                    • Resources


                                                    • Glossary


                                                    • Desk Marketplace


                                                    • MVP Corner


                                                    • Word of the Day


                                                    • Ask the Experts



                                                              • Sticky Posts

                                                              • What's new in Zoho Sheet: Simplify data entry and collaboration

                                                                Hello, Zoho Sheet community! Last year, our team was focused on research and development so we could deliver updates that enhance your spreadsheet experience. This year, we’re excited to deliver those enhancements—but we'll be rolling them out incrementally
                                                              • New Features: Repeat Last Action, Insert Cut/Copied Rows/Columns and Hyperlink

                                                                You might have noticed the constant updates to Zoho Sheet of late. Here are 3 more features that have been added to Zoho Sheet recently: F4 - Repeat Last Action Insert Cut/Copied Rows and Columns Insert Hyperlink Here is a screen cast demonstrating each of these features. Read further below to learn more about these new features. F4 - Repeat Last Action: You can now repeat the last action you made on your spreadsheet by using the keyboard shortcut, F4. It is quite handy and helps you get your work
                                                              • Introducing Forms in Zoho Sheet

                                                                We hereby bring you the power of ​forms in Zoho Sheet. ​Now, build and create your own customized forms using Zoho Sheet. Be it compiling a questionnaire or rolling out a survey, Zoho Sheet can do it all for you. Forms is an excellent feature that helps you collect information in the simplest of ways and having it in Zoho Sheet takes it a notch higher. Build Simple yet Powerful forms Building forms using Zoho Sheet is fairly simple. The exclusive 'Form' tab lets you create one quickly. Whether you
                                                              • Slicers are now available in Zoho Sheet—filter your data interactively

                                                                At Zoho Sheet, we diligently track user requests and feedback. In line with this, based on extensive user requests, we've integrated Slicers to pivot tables and are delighted to announce its release. Slicers are interactive visual filters that have add,
                                                              • Introducing Data Bars: Graphically represent changes in data within the cells

                                                                Conditional formatting has helped millions of spreadsheet users analyze and highlight their data more efficiently. In addition to the classic rules, color scales, and icon sets available in Zoho Sheet, you can now apply Data Bars, a convenient method


                                                              Manage your brands on social media



                                                                    Zoho TeamInbox Resources



                                                                        Zoho CRM Plus Resources

                                                                          Zoho Books Resources


                                                                            Zoho Subscriptions Resources

                                                                              Zoho Projects Resources


                                                                                Zoho Sprints Resources


                                                                                  Qntrl Resources


                                                                                    Zoho Creator Resources



                                                                                        Zoho CRM Resources

                                                                                        • CRM Community Learning Series

                                                                                          CRM Community Learning Series


                                                                                        • Kaizen

                                                                                          Kaizen

                                                                                        • Functions

                                                                                          Functions

                                                                                        • Meetups

                                                                                          Meetups

                                                                                        • Kbase

                                                                                          Kbase

                                                                                        • Resources

                                                                                          Resources

                                                                                        • Digest

                                                                                          Digest

                                                                                        • CRM Marketplace

                                                                                          CRM Marketplace

                                                                                        • MVP Corner

                                                                                          MVP Corner









                                                                                            Design. Discuss. Deliver.

                                                                                            Create visually engaging stories with Zoho Show.

                                                                                            Get Started Now


                                                                                              Zoho Show Resources

                                                                                                Zoho Writer

                                                                                                Get Started. Write Away!

                                                                                                Writer is a powerful online word processor, designed for collaborative work.

                                                                                                  Zoho CRM コンテンツ




                                                                                                    Nederlandse Hulpbronnen


                                                                                                        ご検討中の方