Makroyu çalıştıramıyoruz

[kemal2008]

Aşağıdaki makraoyu ekli excel dosyamıza göre çalışır hale getirebiliyormuyuz?

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("D265530").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("D265530").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("D265530").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("D265530").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("D265530").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("D265530").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("D265530").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("D265530").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

 

[selimmanav]

gülen suratlar

verdiğin kodllara gülen suratlar. o suratlar koyala-yapıştır yaptığın kaynakta hangi noktalama işareti? yani ";" ya da ":" hangisi?
suratlar olmaması gerekiyor?

 

[kemal2008]

Gülen suratlar

çok pardon dikkat etmemiştim hocam

onların yerine : Geliyor

 

[YUSUF44]

Gülen surat bu forumun bir özelliği: boşluksuz olarak iki nokta üstüsteden sonra D yapıldığında çıkıyor : D

 

[selimmanav]

çalıştırılmak istenen makro

kemal bey
gönderdiğin makro kodunda Ln144,col54 bölümünden itibaren başlayan kodlarda excelce.net adında oluştrulması gereken sekmeler yazılmış.bu ne demek? dersen
bu kodu kopyaladığın kaynakta excel dosyasında hangi sayflar varsa adıyla birlikte oluşturman ve o oluşturduğun sayfda da oluşturman gereken özel isim verilmiş hücreler gerekiyor. ayrıca bazı kod satırlarındada kelimelerde boşluklar var bu durumda çalışmayı engelliyor. ben bazılarını düzeltim bazılarını ayırt edemedim.
saygılarımla

 

[kemal2008]

Selim hocam,
öncelikle ilgine teşekkür ederim.

Aslında excelce.net kaynağında tam istediğim bir programdı bu.

Fakat kaynaktan kaldırılmış.Yapmak istediğim şu;

Excelde Hatırlatma yapabilecek , ekli dosyadaki görüntüye göre tarih ve saat , açıklama ve durum girerek, hatırlatmalar girerek günü ve o günün saati geldiğinde
ekteki görüntüde olduğu gibi hatırlatsın

Ve aynı zamanda istediğim zaman dilimine göre de hatırlatma raporları almak istiyorum.