Tarih Tablosu

[gulvadi]

Bir Çalışma Kitabım var Sayfa3 de Öğrencilere ait bilgiler var. Bu bilgileri Makro ile alabiliyorum. Ancak butonda "RAPORUN BAŞLANGIÇ TARİHİNİ GİRİNİZ" ibaresi var. bu ibare ile 2011-2012 öğretim yılının aylatına ait tablo getirerek tıklama ile tarihler buradan girilebilir mi? Rapor süresi ve sağlık kuruluşlarınada Tablo eklemek vasıtasıyla tıklama ile secile bilir mi?

Sub Ogrenciraporkayıt()
 G = Application.InputBox("SATIR NUMARASIN GİRİNİZ")
 y = Int(G / 37)
If G Mod 37 = 0 Then
 Cells(G - y + 1, 1) = "SIRA NO"
 Cells(G - y + 1, 1).Select
 Selection.RowHeight = 40.5
 Selection.ColumnWidth = 8.43
Call karisik
 Cells(G - y + 1, 2) = "OKULUN AD"
 Cells(G - y + 1, 2).Select
 Selection.ColumnWidth = 22.57
  Call karisik
 Cells(G - y + 1, 3) = "ÖĞRENCİNİN ADI-SOYADI"
  Cells(G - y + 1, 3).Select
 Selection.ColumnWidth = 25.14
Call karisik
 Cells(G - y + 1, 4) = "T.C NO"
   Cells(G - y + 1, 4).Select
  Selection.ColumnWidth = 14
   Call karisik
 Cells(G - y + 1, 5) = "SINIFI"
   Cells(G - y + 1, 5).Select
  Selection.ColumnWidth = 8.43
   Call karisik
 Cells(G - y + 1, 6) = "RAPORUN BAŞLANGIÇ TARİHİ"
   Cells(G - y + 1, 6).Select
  Selection.ColumnWidth = 17.29
  Call karisik
 Cells(G - y + 1, 7) = "RAPOR SÜRESİ"
   Cells(G - y + 1, 7).Select
  Selection.ColumnWidth = 14.57
  Call karisik
 Cells(G - y + 1, 8) = "RAPOR ALDIĞI SAĞLIK KURULUŞUNUN ADI"
   Cells(G - y + 1, 8).Select
  Selection.ColumnWidth = 25.14
  Call karisik
  Else
 Cells(G - y + 1, 1).Value = G
  Cells(G - y + 1, 1).Select
  Call Kenariciz
 Cells(G - y + 1, 2).Value = "SANDIKLI T.T.A.ÖĞRETMEN LİSESİ"
 Cells(G - y + 1, 2).Select
  Call Kenariciz
 u = Application.InputBox("ÖĞRENCİ NUMARASINI GİRİNİZ")
 Sayfa3.Cells(1, 1).Value = u
 Cells(G - y + 1, 3) = Sayfa3.Cells(1, 2)
 Cells(G - y + 1, 3).Select
 Call Kenariciz
  Cells(G - y + 1, 4) = Sayfa3.Cells(1, 4)
  Cells(G - y + 1, 4).Select
 Call Kenariciz
  Cells(G - y + 1, 5) = Sayfa3.Cells(1, 5)
  Cells(G - y + 1, 5).Select
 Call Kenariciz
  v = Application.InputBox("RAPORUN BAŞLANGIÇ TARİHİNİ GİRİNİZ")
   Cells(G - y + 1, 6).Value = v
   Cells(G - y + 1, 6).Select
 Call Kenariciz
  a = Application.InputBox("RAPORUN BAŞLANGIÇ TARİHİNİ GİRİNİZ")
  Cells(G - y + 1, 7).Value = a
  Cells(G - y + 1, 7).Select
  Call Kenariciz
  MsgBox "RAPOR ALDIĞI SAĞLIK KURULUŞUNUN ADINI GİRMEĞİ UNUTMAYINIZ"
  Cells(G - y + 1, 8).Select
  Call Kenariciz
    End If
  End Sub

teşekkürler