Excel'le Adım Adım Program Yazma

Aktif sayfanın ismini öğrenme

Sub TypeSheet()
MsgBox "Bu sayfanın adı " & ActiveSheet.Name
End Sub

Aktif sayfanın kopyalanması

Sub Enregistre_1_Feuille()
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
'Active la boite de dialogue Enregistrer sous
End Sub

Aktif sayfanın sağındaki  sayfayı seçmek


Sub sol()
Sheets(ActiveSheet.Index - 1).Select
End Sub

Aktif sayfanın solundaki sayfayı seçmek

Sub sag()
Sheets(ActiveSheet.Index + 1).Select
End Sub

Aktif sayfaya göre ayrı ayrı makro çalıştırma

Private Sub CommandButton1_Click()
    Select Case ActiveSheet.Name
        Case "Sheet1"
        Makro1
            Case "Sheet2"
            Makro2
                Case "Sheet3"
                Makro3
        Case Else
        Makro4
    End Select
    Unload Me
End Sub

Aktif sayfaya koruma koyma

Sub koru()
ActiveSheet.Protect Password:="pir" End Sub

Aktif sayfadan korumayı  kaldırma


Sub koru_ma()
ActiveSheet.Unprotect Password:="pir"
End Sub

Aktif sayfaya veri girilince uyarı verip veriyi siler

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If IsNumeric(Target) = False Then
        MsgBox "Valeur numérique obligatoire"
        Target.Clear
        Target.Select
    End If
End Sub

Aktif sayfayı uyarısız siler.

Application.DisplayAlerts = False
ActiveSheet.Delete

Aktif sayfayı uyarıyı eski haline getirme

Application.DisplayAlerts = True

Aktif sayfayı yazdırır.

Private Sub CommandButton7_Click()
    Range("A1").Select
    ActiveWindow.SelectedSheets.P rintOut Copies:=1
    Range("A1").Select
End Sub

Aktif sayfayı yazdırır.

Sub PrintThisSheet()
ActiveSheet.PrintOut
End Sub

Aktif yazıcınızın ismini öğrenir.

Sub ActivePrinter_()
'Aktif Yazacınızı ismini öğrenin
MsgBox ActivePrinter
End Sub

Alt klasörleri gösterir.

Sub Alt_Klasör_İsmi_Al()
Dim ds, f
Set ds = CreateObject("Scripting.FileSystemObject")
f = ds.GetParentFolderName("D:\ExcelÖrnekleri\Vergi İade")
MsgBox f
End Sub

Sayfayı uyarı vermeden siler.

Sub Sil()
    Application.DisplayAlerts = False
    ActiveSheet.Delete
End Sub

'Çıkışta Eski Haline Getirir.
Sub Auto_Close()
    Application.DisplayAlerts = True
End Sub