Excel, VBA, VB Örnek Programlar > Bülent Öztürk Excelce.Net Özel Program Paylaşımları Excel, VBA, VB Örnek Programlar > Bülent Öztürk Excelce.Net Özel Program Paylaşımları
Excel Hatırlatma Programı (Güncellendi)
Excelce.Net:
Excel Hatırlatma Programı ile;
tarih, açıklama ve durum girerek, notlar alabilir, hatırlatmalar ayarlayabilir, dilediğiniz zamana göre hatırlatma raporları alabilirsiniz.
Ayrıca programı inceleyip veritabanı mantığını anlayıp, form üzerinden Excel sayfasına kayıt ve sayfadan userforma bilgi alma, değiştirme ve silme işlemleri hakkında fikir sahibi olabilirsiniz.
PROGRAMI İNDİREBİLMEK İÇİN GİRİŞ YAPMALISINIZ.
Programın kodları şu şekildedir:
--- Kod: ---Private Sub cbAcilisTercihi_Change()
If cbAcilisTercihi <> Empty Then
Rem excelce.net
ThisWorkbook.Worksheets("Excelce.Net").Range("ExcelceAcilisTercihi") = cbAcilisTercihi.Text
cbAcilisTercihi.Tag = cbAcilisTercihi.Text
On Error Resume Next
lstExcelce.Clear
If cbAcilisTercihi = "Sadece bugünlük..." Then
lstExcelce.ForeColor = vbGreen
For Each excelce In ThisWorkbook.Worksheets("Excelce.Net").Range("D2:D65530").SpecialCells(xlTextValues)
If excelce.Value = "Hatırlat" And CDate(excelce.Offset(0, -2)) = CDate(FormatDateTime(Now, vbShortDate)) Then
lstExcelce.AddItem
lstExcelce.List(lstExcelce.ListCount - 1, 0) = excelce.Offset(0, -3)
lstExcelce.List(lstExcelce.ListCount - 1, 1) = excelce.Offset(0, -2)
lstExcelce.List(lstExcelce.ListCount - 1, 2) = excelce.Offset(0, -1)
lstExcelce.List(lstExcelce.ListCount - 1, 3) = excelce
End If
Next excelce
End If
If cbAcilisTercihi = "Vadesi gelmeyenler..." Then
lstExcelce.ForeColor = vbBlue
For Each excelce In ThisWorkbook.Worksheets("Excelce.Net").Range("D2:D65530").SpecialCells(xlTextValues)
If excelce.Value = "Hatırlat" And CDate(excelce.Offset(0, -2)) >= CDate(FormatDateTime(Now, vbShortDate)) Then
lstExcelce.AddItem
lstExcelce.List(lstExcelce.ListCount - 1, 0) = excelce.Offset(0, -3)
lstExcelce.List(lstExcelce.ListCount - 1, 1) = excelce.Offset(0, -2)
lstExcelce.List(lstExcelce.ListCount - 1, 2) = excelce.Offset(0, -1)
lstExcelce.List(lstExcelce.ListCount - 1, 3) = excelce
End If
Next excelce
End If
If cbAcilisTercihi = "Vadesi geçenler..." Then
lstExcelce.ForeColor = vbRed
For Each excelce In ThisWorkbook.Worksheets("Excelce.Net").Range("D2:D65530").SpecialCells(xlTextValues)
If excelce.Value = "Hatırlat" And CDate(excelce.Offset(0, -2)) < CDate(FormatDateTime(Now, vbShortDate)) Then
lstExcelce.AddItem
lstExcelce.List(lstExcelce.ListCount - 1, 0) = excelce.Offset(0, -3)
lstExcelce.List(lstExcelce.ListCount - 1, 1) = excelce.Offset(0, -2)
lstExcelce.List(lstExcelce.ListCount - 1, 2) = excelce.Offset(0, -1)
lstExcelce.List(lstExcelce.ListCount - 1, 3) = excelce
End If
Next excelce
End If
If cbAcilisTercihi = "Hepsi..." Then
lstExcelce.ForeColor = vbBlack
For Each excelce In ThisWorkbook.Worksheets("Excelce.Net").Range("D2:D65530").SpecialCells(xlTextValues)
lstExcelce.AddItem
lstExcelce.List(lstExcelce.ListCount - 1, 0) = excelce.Offset(0, -3)
lstExcelce.List(lstExcelce.ListCount - 1, 1) = excelce.Offset(0, -2)
lstExcelce.List(lstExcelce.ListCount - 1, 2) = excelce.Offset(0, -1)
lstExcelce.List(lstExcelce.ListCount - 1, 3) = excelce
Next excelce
End If
End If
End Sub
Private Sub CommandButton1_Click()
Dim tarih As Date
Dim konu As String, durum As String
Dim sira As Long, son_satir As Long
Rem excelce.net
tarih = CDate(txtExcelceTarih)
If tarih = Empty Then MsgBox "Tarih boş geçilemez!", vbCritical, "İşlem iptal!": Exit Sub
If Not IsDate(tarih) Then MsgBox "Tarih hatalı!", vbCritical, "İşlem iptal!": Exit Sub
konu = txtExcelceKonu.Text
If konu = "" Then MsgBox "Konu boş geçilemez!", vbCritical, "İşlem iptal!": Exit Sub
durum = cbExcelce.Text
If durum = Empty Then MsgBox "Durum boş olamaz!", vbExclamation, "İşlem yapılamadı!": Exit Sub
If tarih = Empty Then MsgBox "Tarih boş olamaz!", vbExclamation, "İşlem yapılamadı!": Exit Sub
son_satir = ThisWorkbook.Worksheets("Excelce.Net").Range("A65530").End(3).Row
If IsNumeric(ThisWorkbook.Worksheets("Excelce.Net").Range("A" & son_satir).Value) Then
sira = ThisWorkbook.Worksheets("Excelce.Net").Range("A" & son_satir).Value + 1
Else
sira = 1
End If
ThisWorkbook.Worksheets("Excelce.Net").Range("A" & son_satir + 1).Value = sira
ThisWorkbook.Worksheets("Excelce.Net").Range("B" & son_satir + 1).Value = tarih
ThisWorkbook.Worksheets("Excelce.Net").Range("C" & son_satir + 1).Value = konu
ThisWorkbook.Worksheets("Excelce.Net").Range("D" & son_satir + 1).Value = durum
txtExcelceTarih = Empty
txtExcelceKonu = Empty
cbExcelce = Empty
sira = Empty
son_satir = Empty
Call UserForm_Initialize
MsgBox "Kayıt eklendi.", vbInformation, "İşlem tamam."
End Sub
Private Sub CommandButton2_Click()
'Değiştir
Dim excelce As Range
Rem excelce.net
For Each excelce In ThisWorkbook.Worksheets("Excelce.Net").Range("A2:A65530")
If CLng(excelce.Value) = CLng(lblExcelce.Caption) Then
excelce.Offset(0, 1) = txtExcelceTarih.Value
excelce.Offset(0, 2) = txtExcelceKonu.Text
excelce.Offset(0, 3) = cbExcelce.Text
Exit For
End If
Next excelce
Call UserForm_Initialize
MsgBox "Kayıt değiştirilmiştir.", vbInformation, "İşlem tamam. /// Excelce.net"
End Sub
Private Sub CommandButton3_Click()
'Sil
Dim excelce As Range
Rem excelce.net
For Each excelce In ThisWorkbook.Worksheets("Excelce.Net").Range("A2:A65530")
If CLng(excelce.Value) = CLng(lblExcelce.Caption) Then
excelce.EntireRow.Delete
Exit For
End If
Next excelce
Call UserForm_Initialize
MsgBox "Kayıt silinmiştir.", vbInformation, "İşlem tamam. /// Excelce.net"
End Sub
Private Sub CommandButton4_Click()
Unload Me
ThisWorkbook.Close True
End Sub
Private Sub lstExcelce_Click()
lblExcelce = lstExcelce.List(lstExcelce.ListIndex, 0)
txtExcelceTarih = lstExcelce.List(lstExcelce.ListIndex, 1)
txtExcelceKonu = lstExcelce.List(lstExcelce.ListIndex, 2)
cbExcelce = lstExcelce.List(lstExcelce.ListIndex, 3)
End Sub
Private Sub UserForm_Initialize()
'Tasarım Excelce.Net - excelce.net@gmail.com;excelce@excelce.net - 15.02.2010
Dim excelce As Range
cbExcelce.Clear
cbAcilisTercihi.Clear
cbExcelce.AddItem "Hatırlat"
cbExcelce.AddItem "Hatırlatma"
cbAcilisTercihi.AddItem "Sadece bugünlük..."
cbAcilisTercihi.AddItem "Vadesi gelmeyenler..."
cbAcilisTercihi.AddItem "Vadesi geçenler..."
cbAcilisTercihi.AddItem "Hepsi..."
cbAcilisTercihi.Text = cbAcilisTercihi.Tag
If ThisWorkbook.Worksheets("Excelce.Net").Range("ExcelceAcilisTercihi") = Empty Then cbAcilisTercihi = "Açılış tercihi?" Else cbAcilisTercihi.Text = ThisWorkbook.Worksheets("Excelce.Net").Range("ExcelceAcilisTercihi")
lstExcelce.ColumnCount = 4
lstExcelce.ColumnWidths = "50;70;300;60"
txtExcelceTarih = FormatDateTime(Now, vbShortDate)
On Error Resume Next
lstExcelce.Clear
If cbAcilisTercihi = "Sadece bugünlük..." Then
lstExcelce.ForeColor = vbGreen
For Each excelce In ThisWorkbook.Worksheets("Excelce.Net").Range("D2:D65530").SpecialCells(xlTextValues)
If excelce.Value = "Hatırlat" And CDate(excelce.Offset(0, -2)) = CDate(FormatDateTime(Now, vbShortDate)) Then
lstExcelce.AddItem
lstExcelce.List(lstExcelce.ListCount - 1, 0) = excelce.Offset(0, -3)
lstExcelce.List(lstExcelce.ListCount - 1, 1) = excelce.Offset(0, -2)
lstExcelce.List(lstExcelce.ListCount - 1, 2) = excelce.Offset(0, -1)
lstExcelce.List(lstExcelce.ListCount - 1, 3) = excelce
End If
Next excelce
End If
If cbAcilisTercihi = "Vadesi gelmeyenler..." Then
lstExcelce.ForeColor = vbBlue
For Each excelce In ThisWorkbook.Worksheets("Excelce.Net").Range("D2:D65530").SpecialCells(xlTextValues)
If excelce.Value = "Hatırlat" And CDate(excelce.Offset(0, -2)) >= CDate(FormatDateTime(Now, vbShortDate)) Then
lstExcelce.AddItem
lstExcelce.List(lstExcelce.ListCount - 1, 0) = excelce.Offset(0, -3)
lstExcelce.List(lstExcelce.ListCount - 1, 1) = excelce.Offset(0, -2)
lstExcelce.List(lstExcelce.ListCount - 1, 2) = excelce.Offset(0, -1)
lstExcelce.List(lstExcelce.ListCount - 1, 3) = excelce
End If
Next excelce
End If
If cbAcilisTercihi = "Vadesi geçenler..." Then
lstExcelce.ForeColor = vbRed
For Each excelce In ThisWorkbook.Worksheets("Excelce.Net").Range("D2:D65530").SpecialCells(xlTextValues)
If excelce.Value = "Hatırlat" And CDate(excelce.Offset(0, -2)) < CDate(FormatDateTime(Now, vbShortDate)) Then
lstExcelce.AddItem
lstExcelce.List(lstExcelce.ListCount - 1, 0) = excelce.Offset(0, -3)
lstExcelce.List(lstExcelce.ListCount - 1, 1) = excelce.Offset(0, -2)
lstExcelce.List(lstExcelce.ListCount - 1, 2) = excelce.Offset(0, -1)
lstExcelce.List(lstExcelce.ListCount - 1, 3) = excelce
End If
Next excelce
End If
If cbAcilisTercihi = "Hepsi..." Then
lstExcelce.ForeColor = vbBlack
For Each excelce In ThisWorkbook.Worksheets("Excelce.Net").Range("D2:D65530").SpecialCells(xlTextValues)
lstExcelce.AddItem
lstExcelce.List(lstExcelce.ListCount - 1, 0) = excelce.Offset(0, -3)
lstExcelce.List(lstExcelce.ListCount - 1, 1) = excelce.Offset(0, -2)
lstExcelce.List(lstExcelce.ListCount - 1, 2) = excelce.Offset(0, -1)
lstExcelce.List(lstExcelce.ListCount - 1, 3) = excelce
Next excelce
End If
End Sub
--- Kod sonu ---
huseyin123:
Excelde kod nereye yapıştırılıyor? Excel hatırlat programı ile ilgili...
Bülent Öztürk:
Araçlar | Makro | Visual Basic Düzenleyicisi menüsüne tıklayın veya Alt + F11 tuş kombinasyonunu yapın.
Açılan Microsoft Visual Basic penceresindeki Insert | Module menüsüne tıklayın.
Kopyalanan kodu yapıştırın.
Örnek dosyayı indirip, inceleyebilirsiniz.
huseyin123:
Open office kullanıyorum bu programıda (Excel Hatırlatma Programı )kullanmam gerekiyor bana bu konuda yardımcı olabilirmisiniz bir türlü ayarlayamadım. Cevap bekliyorum. Excel dosyasınıda indirdim (Excel Hatırlatma Programı ) fakat ayarlayamadım. Olmadı.
Bülent Öztürk:
Open Office işyerinde yüklü değil.
Evde ise şu an bilgisayara bakamıyorum.
Bundan dolayı yorum yapamayacağım.
Navigasyon
[0] Mesajlar
[#] Sonraki Sayfa
Tam sürüme git