Gönderen Konu: Excel Hatırlatma Programı (Güncellendi)  (Okunma sayısı 39043 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Excelce.Net

  • @Excelce.Net Kurucu
  • *
  • İleti: 147
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası...
    • Excelce.Net
Excel Hatırlatma Programı (Güncellendi)
« : 15 Şubat 2010, 09:23:44 »
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: [Seç]
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

Çevrimdışı huseyin123

  • Excelce Onbaşı
  • **
  • İleti: 3
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: hüseyin
  • İl / İlçe: istanbul
  • Mesleğiniz: serbest
Ynt: Excel Hatırlatma Programı
« Yanıtla #1 : 13 Ağustos 2010, 14:30:50 »
Excelde kod nereye yapıştırılıyor? Excel hatırlat programı ile ilgili...

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1316
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Excel Hatırlatma Programı
« Yanıtla #2 : 13 Ağustos 2010, 14:38:08 »
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.
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı huseyin123

  • Excelce Onbaşı
  • **
  • İleti: 3
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: hüseyin
  • İl / İlçe: istanbul
  • Mesleğiniz: serbest
Ynt: Excel Hatırlatma Programı
« Yanıtla #3 : 13 Ağustos 2010, 15:10:59 »
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ı.

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1316
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Excel Hatırlatma Programı
« Yanıtla #4 : 13 Ağustos 2010, 16:21:02 »
Open Office işyerinde yüklü değil.
Evde ise şu an bilgisayara bakamıyorum.
Bundan dolayı yorum yapamayacağım.
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı huseyin123

  • Excelce Onbaşı
  • **
  • İleti: 3
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: hüseyin
  • İl / İlçe: istanbul
  • Mesleğiniz: serbest
Ynt: Excel Hatırlatma Programı
« Yanıtla #5 : 14 Ağustos 2010, 09:33:00 »
Arkadaşım bunu bana ayarlanmış bir şekilde gönderebilirmisin...

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1316
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Excel Hatırlatma Programı
« Yanıtla #6 : 16 Ağustos 2010, 05:30:44 »
Denedim ama, Open Office'de makroları çalıştıramadım.
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı ahmetturan2010

  • Excelce Onbaşı
  • **
  • İleti: 3
  • Puan +0/-1
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ahmet turan
  • İl / İlçe: ankara merkez
  • Mesleğiniz: memur
Ynt: Excel Hatırlatma Programı
« Yanıtla #7 : 08 Eylül 2010, 18:05:20 »
 :begendim Teşekkürler...

Çevrimdışı 1Al2Ver

  • Excelce Destek Ekibi
  • ****
  • İleti: 164
  • Puan +3/-0
  • Cinsiyet: Bay
  • Almasını bilmek kadar, vermesini de bilmek gerek.
  • İşletim Sisteminiz: Windows 10
  • Mesleğiniz: Gıda Tespit ve Planlama Uzmanı
  • Office Versiyonunuz: Microsoft Office 365 ProPlus
Ynt: Excel Hatırlatma Programı
« Yanıtla #8 : 09 Ekim 2010, 14:18:21 »
Merhabalar,

Bu güzel program ve paylaşım için teşekkür ederim.

Saygılarımla.
Yaşamda iyi bir iz bırakın ki, sizden sonra da ailenizin başı dik dursun.

Çevrimdışı Puletin

  • Excelce Onbaşı
  • **
  • İleti: 29
  • Puan +1/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Ferruh
  • İl / İlçe: EDİRNE
Ynt: Excel Hatırlatma Programı
« Yanıtla #9 : 09 Ekim 2010, 18:51:50 »
Bende yeni kayıt eklemek veya kaydı değiştirmek istediğimde hata veriyor.
Nedeni ne ola bilir acaba?

Çevrimdışı tukayf

  • Excelce Onbaşı
  • **
  • İleti: 7
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: tuncer
  • Mesleğiniz: öğretmen, polis
Ynt: Excel Hatırlatma Programı
« Yanıtla #10 : 10 Ekim 2010, 22:27:20 »
Zihninize sağlık. Program çalışıyor. Kodlar neden verdiniz. Bir de kod eklemeye çalıştım :P
Hocam tarih ay gün yıl olarak gidiyor... Her seferinde kafam karışıyor.

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1316
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Excel Hatırlatma Programı
« Yanıtla #11 : 11 Ekim 2010, 09:48:18 »
Bende yeni kayıt eklemek veya kaydı değiştirmek istediğimde hata veriyor.
Nedeni ne ola bilir acaba?

Ne gibi hata veriyor Ferruh bey?
Mümkünse hata resmini ekleyebilir misiniz? Programı indirip denedim ama hata vermedi.

Zihninize sağlık. Program çalışıyor. Kodlar neden verdiniz. Bir de kod eklemeye çalıştım :P
Hocam tarih ay gün yıl olarak gidiyor... Her seferinde kafam karışıyor.
Kodları merak edip bulamayanlar için vereyim dedim.  :)
Tarih formatını şu şekilde değiştirirseniz sorun olmayacaktır:
Kod: [Seç]
FormatDateTime(excelce.Offset(0, -2),vbShortDate)
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı Puletin

  • Excelce Onbaşı
  • **
  • İleti: 29
  • Puan +1/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Ferruh
  • İl / İlçe: EDİRNE
Ynt: Excel Hatırlatma Programı
« Yanıtla #12 : 14 Ekim 2010, 18:51:47 »
"Run-Time Error 13" hatası alıyorum

Çevrimdışı ozg.murat

  • Excelce Onbaşı
  • **
  • İleti: 3
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: murat açıkgöz
  • İl / İlçe: izmir
Ynt: Excel Hatırlatma Programı
« Yanıtla #13 : 04 Kasım 2010, 21:25:01 »
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.
bu işlemleri yaptım normalde makro kaydedip kaydettiğim makrolarıda kullanabiliyorum ama direkt kod penceresine yapıştırarak kullanmamıştım hiç
makroyu çalıştır diyorum çalışmıyor sorunun ne olduğunu bilemiyorum çalıştıramadım yardımcı olabilecek arkadaş varmı

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Ynt: Excel Hatırlatma Programı
« Yanıtla #14 : 04 Kasım 2010, 22:28:01 »
Merhaba Arkadaşlar,

Bende bir tane hatırlatma programı hazırlamaya çalışıyorum, bitince paylaşacağım.
Ancak şöyle bir koda ihtiyacım var.
Tablonun yedeğini aldırmak istiyorum ama belirli bi sayfayı değil, tamamen tabloyu kopyala yapıtır işleminde olduğu gibi tüm verileyle yedeklemeli. Diğer türlü tablodaki makro ve formlarda hata oluyor.

Farklı kaydet kodlarıyla işlemi yapmaya çalıştım ancak işlemi yaptıktan sonra farklı kaydettiği dosyadan çalışmaya devam ediyor.

C:\ nin içerisine Yedek klasörü oluşturmalı.  Yedek_gün_ay_yıl_saat_dk kombinasyonu ile isim oluşturmalı ve oluşturduğu yedeğe parola verdirme işlemi yaptıra bilirmiyiz.

Yardım ve fikirlerinizi bekliyorum