Excel'le Adım Adım Program Yazma

Exceli İlk Açtığınızda istediğiniz sayfanın gelmesi için

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

FORMÜLLERİ SAYIYA ÇEVİRİR

Sub Form2val()
For Each c in Selection.Cells
c.formula=c.value
Next c
End Sub

AKTİF SÜTUNU SEÇ

Sub SelectEntireColumn()
Selection.EntireColumn.Select
End Sub

AKTİF SATIRI  SEÇ

Sub SelectEntireRow()
Selection.EntireRow.Select
End Sub

DOLU HÜCRELERİN ALTINDAKİ BOŞ HÜCREYİ SEÇER

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

AKTİF HÜCRELERİN SAĞ TARAFINDAKİ  BOŞ HÜCREYİ SEÇER

Sub ActivateNextBlankToRight()
ActiveCell.Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
End Sub

AKTİF HÜCRENİN SAĞINDAKİ VE SOLUNDAKİ DOLU HÜCRELERİ SEÇER

Sub SelectFirstToLastInRow()
Set LeftCell = Cells(ActiveCell.Row, 1)
Set RightCell = Cells(ActiveCell.Row, 256)
If IsEmpty(LeftCell) Then Set LeftCell = LeftCell.End(xlToRight)
If IsEmpty(RightCell) Then Set RightCell = RightCell.End(xlToLeft)
If LeftCell.Column = 256 And RightCell.Column = 1 Then ActiveCell.Select Else Range(LeftCell, RightCell).Select
End Sub

Aktif Hücrenin Altından Başlayarak En Son Hücreye Kadar Seçer

sub Selectdown()
range(activecell, Activecell.end(xldown)).select
end Sub

A1:A3 VE C3:C8 HÜCRE ARALIĞINI SEÇER

Sub hucresec()
Application.ScreenUpdating = False
Dim r1 As Range, r2 As Range, rAll As Range
Set r1 = Range("A1", "A3")
Set r2 = Range("C3", "C8")
Set rAll = Union(r1, r2)
rAll.Select
End Sub

Aktif hücrenin 3 satır altındaki, iki sütun önündeki hücreyi seçer

Sub MoveToCell()
ActiveCell.Offset(3, 2).Select
End Sub

EĞER A SÜTUNUNDA KIRMIZI HÜCRE VARSA İLGİLİ SATIRI SİLEN KODLAR (COLOR İNDEX = 3 :Kırmızı)
Sub kirmizisil()
Sub DeleteRowsRedInColA()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'pre XL97 xlManual
Dim rng As Range, ix As Long
Set rng = Intersect(Range("A:A"), ActiveSheet.UsedRange)
For ix = rng.Count To 1 Step -1
If rng.Item(ix).Interior.ColorIndex = 3 Then 'rakamı değiştirebilirsiniz
rng.Item(ix).EntireRow.Delete
End If
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

DOLU HÜCRELERİN SATIRINI MAVİ BOŞLARI İSE SARI YAPAN KODLAR

Sub bosdolurenklendir()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim cell As Range
For Each cell In Intersect(Selection, ActiveCell.EntireColumn, _
ActiveSheet.UsedRange)
Select Case cell.Value
Case Is >= 50
cell.EntireRow.Interior.Color Index = 20
Case Is >= 40
cell.EntireRow.Interior.Color Index = 37
Case Is >= 20
cell.EntireRow.Interior.Color Index = 38
Case Is >= 0
cell.EntireRow.Interior.Color Index = 36
Case Else
cell.EntireRow.Interior.Color Index = 44
End Select
Next cell
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

A1:B10 HÜCRELERİNDEKİ DEĞER 10 DAN BÜYÜK İSE HÜCRE RENGİ SARI OLUR

Private Sub Worksheet_Change( _
  ByVal Target As Excel.Range)
  If Intersect(Target, Range("A1:B10")) _
    Is Nothing Then Exit Sub
  If Target.Value > 10 Then
    Target.Interior.ColorIndex = 6
  Else
    Target.Interior.ColorIndex = xlNone
  End If
End Sub

VERİLERİ A'DAN Z'YE SIRALAR YAZILAN İLKHARFE ENYAKIN İSMİ BULUR

Private Sub ComboBox1_Change() 'ListFillRange A2:A64997(vba özellikler menüsüne girilecek hüc. Adreside buradan verilir.)
ActiveWindow.ScrollRow = ComboBox1.ListIndex + 2
End Sub
Private Sub ComboBox1_GotFocus()
ActiveSheet.ComboBox1.ListInd ex = -1
Rows("2:65000").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim no
no = ActiveWindow.ScrollRow
If KeyCode = 13 Then Cells(no, 1).Activate
End Sub

EKLENEN FORMLARIN BİRİNİ KAPAR İSTENİLENİ AÇAR.

Private Sub CommandButton1_Click()
    UserForm1.Hide
    UserForm2.Show
 End Sub

LABEL KUTULARINA SAAT&TARİH EKLER

Private Sub tarih_Click()
Label1.Caption = time
Label2.Caption = Date
End Sub

'TARİH&SAAT'İ AYNI ANDA GÖSTERİR.

Private Sub Label3_Click()
Label1.Caption = Now()
End Sub