• Zilvermeeuw-16
• Excel start

Application

Pad Excel Templates

                'Pad waar Excel Templates zich bevinden
                        Application.TemplatesPath
                

Om bestanden te zoeken

                        Application.FindFile
                

Deze code opent het Zoek bestanden dialoogkader.

Om een of meerder Ranges te selecteren

                    Public Sub sApplGaNaar()
                        Application.Goto Sheet1.Range("A1")
                        ActiveCell.Value = "Sofie"
                        Application.Goto Sheet2.Range("A1")
                        ActiveCell.Value = "Louis"
                'Gaat terug naar de eerste geselecteerde range
                        Application.Goto Application.PreviousSelections(1)
                    End Sub