Excel'le Adım Adım Program Yazma

VERİ OLMAYAN SON SATIRA GÖTÜRÜR

Private Sub CommandButton1_Click()
Dim alan, satırsayısı, sonsatır
Set alan = Cells(1, 1).CurrentRegion
satırsayısı = alan.Rows.Count
sonsatır = satırsayısı + 1
Cells(sonsatır, 1).Select
End Sub

SON HÜCREYE GÖTÜRÜR

Sub ActivateNextBlankDown()
Range("A1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

LABELDEN SAYFANIN VERİLEN ADRESİNE VERİSİZ SON HÜCREYE YAZDIRIR

Private Sub Label1_Click()
Range("A1").Select
                  ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.FormulaR1C1 = "ZIMPARALI VALYAN PROBLEMİ"
End
End Sub

EKRANI BÜYÜLTÜR

Sub Auto_Open()
    Sheets("kitap1").Select
    Application.DisplayFullScreen = True
    Application.DisplayFormulaBar = False
    Application.DisplayFormulaBar = False
        With ActiveWindow
            .DisplayHorizontalScrollBar = False
            .DisplayVerticalScrollBar = False
            .DisplayWorkbookTabs = False
        End With
    Range("A1").Select
End Sub

EKRANI KÜÇÜLTÜR

Sub Auto_Close()
    Sheets("kitap1").Select
    Application.DisplayFullScreen = False
    Application.DisplayFormulaBar = True
        With ActiveWindow
            .DisplayHorizontalScrollBar = True
            .DisplayVerticalScrollBar = True
            .DisplayWorkbookTabs = True
        End With
End Sub

DOSYA AÇILDIĞINDA PROGRAM TANIMLAMA BİLGİSİ

Sub auto_open()
Sheets("GİRİŞ").Select
Range("a1").Select
MsgBox "GİRİŞ Sayfasındaki gerekli bilgileri doldurun "
End Sub

Çalışma Sayfasındaki en son dolu hücreden üstteki boş hücreleri siler

Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Co unt
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

SATIR BOŞLUKLARINI DOLDURUR(sayfada)

Private Sub CommandButton8_Click()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Co unt
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

AÇIKLAMA FORMUNU KAPAR.

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

FORM AÇAR

 Sub formaç()
 Günlük.Show
 End Sub

İSTEDİĞİNİZ SAYFAYA GİDER

Sub Ali_sayfasına_git()
    Sheets("ALİ").Select
End Sub
Sonraki Sayfaya geçmek için kodlar
Sub SayfaSeçSonraki()
On Error Resume Next
If ActiveSheet.Index = Worksheets.Count Then
Worksheets(1).Select
Else
On Error Resume Next
Worksheets(ActiveSheet.Index + 1).Select
End If
End Sub

Önceki Sayfaya geçmek için kodlar

Sub SayfaSeçÖnceki()
On Error Resume Next
If ActiveSheet.Index = Worksheets.Count Then
Worksheets(-1).Select
Else
Worksheets(ActiveSheet.Index - 1).Select
End If
End Sub

HESAP MAKİNASINI AKTİF YAPAR

Sub Hesap_makinesi()
    Application.ActivateMicrosoft App Index:=0
End Sub

NOT DEFTERİNİ ÇALIŞTIRIR

Sub notdefteri()
Call Shell("notepad.exe.", 1)
End Sub

PROGRAMI KAPAR
Sub kapa()
    MsgBox "Bu programı ....................... düzenlemiştir.", , "KAPATILIYOR"
    ActiveWorkbook.Close True
End Sub