Excel'le Adım Adım Program Yazma

Açılışta b1 tarihi b2 ye kaç kez açıldığını yazar


Private Sub Workbook_Open()
        Const sAPPLICATION As String = "Excel"
        Const sSECTION As String = "Invoice"
        Const sKEY As String = "Invoice_key"
        Const nDEFAULT As Long = 1&
        Dim nNumber As Long
       
        With ThisWorkbook.Sheets("Sayfa1")
            With .Range("B1")
                If IsEmpty(.Value) Then
                    .Value = Date
                    .NumberFormat = "dd mmm yyyy"
                End If
            End With
            With .Range("B2")
                If IsEmpty(.Value) Then
                    nNumber = GetSetting(sAPPLICATION, sSECTION, sKEY, nDEFAULT)
                    .NumberFormat = "@"
                    .Value = Format(nNumber, "0000")
                    SaveSetting sAPPLICATION, sSECTION, sKEY, nNumber + 1&
                End If
            End With
        End With
     End Sub

Açılışta f8 tuşu ila makro çalıştırma


Sub Auto_Open()
        Application.OnKey "%{F8}", "makro"
End Sub
Sub makro()
    MsgBox "Merhaba!"
    MsgBox ActiveCell.Address
End Sub

Açılışta istediğin makronu çalışsın


sub auto_open()
call  <istediğin makronun adını yaz>
end sub

Açılışta istediğiniz makro otomatik çalıştırma


sub auto_open()
call calisacakmakroadi ' Çalışmasını istediğiniz makronun adı ...
end sub

Açılışta istenen sayfa

Sub SayfaHucreSec()
Sheets("Sayfa1").Select
Selection.Range("A1").Select
End Sub

Açılışta istenilen sayfayı gizleme, kaydetme iptali


Option Explicit
Dim InI As Integer
Dim ByS As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'    Sheets("Sayfa1").Visible = xlVeryHidden aus
    Dim Mldg As Byte
'    ActiveWorkbook.Unprotect ("Passwort")
    If ActiveWorkbook.Saved Then
        Worksheets("Sayfa1").Visible = True
        For InI = Worksheets.Count To 1 Step -1
            If Worksheets(InI).Name <> "Sayfa1" Then Worksheets(InI).Visible = xlVeryHidden
        Next InI
        ByS = True
        ThisWorkbook.Save
    Else
        If ByS = True Then Exit Sub
        Mldg = MsgBox(" Sollen die Veränderungen gespeichertg werden ??", _
            vbYesNo + vbQuestion, "Speicher abfrage ?", "", 0)
        If Mldg = 6 Then
            Worksheets("Sayfa1").Visible = True
            For InI = Worksheets.Count To 1 Step -1
                If Worksheets(InI).Name <> "Sayfa1" Then Worksheets(InI).Visible = xlVeryHidden
            Next InI
            ByS = True
            ThisWorkbook.Save
        Else
            ByS = True
            ThisWorkbook.Close False
        End If
    End If
'    ActiveWorkbook.Protect ("Passwort")
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ByS = False Then
        Cancel = True
        MsgBox "Datei kann nur beim schließen gespeichert werden"
    End If
End Sub
Private Sub Workbook_Open()
'    ActiveWorkbook.Unprotect ("Passwort")
    For InI = Worksheets.Count To 1 Step -1
        Worksheets(InI).Visible = True
    Next InI
    Worksheets("Sayfa1").Visible = False
    ActiveWorkbook.Saved = True
'    ActiveWorkbook.Protect ("Passwort")
End Sub

Açılışta karşılama ismini yaz merhaba .... Desin


Private Sub Workbook_Open()
MsgBox "merhaba" & InputBox("Bitte Namen eingeben:") & "!"
End Sub

Açılışta makronun kayıt edilmesi ve çalıştırılması


Sub Auto_Open()
  ActiveWorkbook.OnSave = "MacroX"
End Sub

Sub MacroX()
  With ActiveSheet.pagesetup
   .LeftFooter = "&8" + ActiveWorkbook.Path
  End With
End Sub

Açılışta msgbox

Programınızı açtığınızda size merhaba demesini istemezmisiniz işte kodlar
Sub Auto_Open()
Msgbox "Hello"
End Sub

Açılışta sayfa sayısını mesajla öğrenme

Sub auto_open()
MsgBox ("Toplam ") & ThisWorkbook.Worksheets.Count & (" adet sayfa bulunmaktadır."), vbOKOnly, "pir"
End Sub

Açılışta sayfanın gösterilmesi ve kapanışta görünmemesi


Sub Auto_Open()
    Application.Visible = False
    Worksheets("Sayfa1").Visible = True
    Worksheets("Sayfa2").Visible = True
End Sub

Sub Auto_Close()
    Application.Visible = False
    Worksheets("Sayfa1").Visible = False
    Worksheets("Sayfa2").Visible = False
    ActiveWorkbook.Save
End Sub

Açılışta tablo korumasını kaldır parolasını sorar

Private Sub Workbook_Open()
    ActiveSheet.Protect userinterfaceonly:=True
    ActiveSheet.EnableAutoFilter = True
End Sub

AÇik dosya uyarısı


Private Sub CommandButton1_Click()
On Error GoTo 10
Windows("kayıtlar.xls").Activate
MsgBox ("BU DOSYA ZATEN AÇIKTIR")
Exit Sub
10 Workbooks.Open Filename:="C:\Belgelerim\kayıtlar.xls"
End Sub

AÇik İkİ excel dosyasindan sadece bİrİnİ kapatmak.

Kodu aşağıdaki gibi düzenleyin. Kitap3 yerine kapatacağınız kitabın adını yazın. "Application.Quit " komutu tüm exceli kapatan bir komuttur.

Alıntı:

Private Sub CommandButton2_Click()
Unload Me
ActiveWorkbook.Save
Windows("Kitap3").Close
End Sub 

AÇik olan dosyanin bulunduĞu yerİ ÖĞrenmek


A1 hücresine yazdırmak için;

Sub dizin()
[A1] = ActiveWorkbook.Path
End Sub