kuluçka takip yazılımı

[maviadam]

ofis 2011 kullanıyorum.

bana kuşlarım için kuluşka takip yazılımı lazım. detaylar soyle

menulu vs olursa super olur.

yaklasık 30 çift kafesim var. herbirisi eşleşmiş kuslar. bunları tkıp etmek istiyorum yumurta zamanlarını

a kusu : 15 gün kulucka 10 gün yeme düşme
b kusu : 20 gün kulucka 15 gün yeme düşme
a kusu : 18 gün kulucka 9 gün yeme düşme
c kusu : 30 gün kulucka 20 gün yeme düşme
d kusu : 17 gün kulucka 6 gün yeme düşme

dugmeye bastıgımda bana sormalı angi kus tipi diye bende a dedğimde bugunku tarıhı esas alarak excell tablosuna gerekli hesaplamaları yapmasını ve yazmasını istiyorum.

bu sekılde bır excel lazım Allah askına yardımcı olunuz... tşk.ler...

 

[Mustafa MUTLU]

Bu şekilde başlık açman yardım almanı engeller.
Bir örnek dosya oluştur.
Kuşların adını , Kuluçka sürelerini yem süreleri gibi.
Sabit verileri yaz sonra ne istediğini dosya üzerinde açıkla..
Başlığı da değiştir.
Konuna Uygun Olsun

 

[maviadam]

hocam fazla anlamıyorum lutfen yardım...

 

[N.Ziya Hiçdurmaz]

yanıt

Örneği inceleyiniz

 

[maviadam]

bakın bu kadar basit excell değil benım dediğim bır butona basacaz atıyorum 1 yazacaz hemen satıra muhabbet kusu yazacak ardından baska bir butonla tarıhı gırdıgımızde gerekli alanları dolduracak benım ıstedıgım bu anlaşılmayan yer var ıse yanıltlarım

 

[maviadam]

yardımcı olacak ustalardan yardım beklıyorum...

 

[hımmmmmmmm]

slm

şunumu anlamamız gerek...
*30 kafesin var ve bu dahada fazla olabilir...
*her kafesde aynı cins kuşlar olabileceği gibi farklı cins kuşlarda olabilir...
*farklı cins kuşların farklı dönemlerde yumurtlamaları söz konusu..
*son yumurtlamadan sonraki yumutlama zamanı hesaba dayalı bir bilgi..
kuluçkaya başlama tarihinden itibaren bugünün tarihine göre ne zaman yumurtlama olacağının takibi gerek...
*kafesdeki farklı cins kuşların kendine özgü bilgileri var... (yumurtlama-civcivleme ve bu süreçte günlük bakımı-temizlik-ilaç-yemleme-vitamin vb)..
*yumutlama-yavrulama süreci içerisinde ve hatta yavrulama döneminden sonraki günler için, her farklı cins kuşa ait kafeslere günlük yapılması gereken bilgileri mevcut...
*her kafes için günlük yapılması gereken bilgileri bilgisayar bana rapor halinde versin... uygulananları saklasın...
*ayrıca kuluçka dönemi süresince bir kafese ait, günlük neler uygulanması gerektiğini ve neler uygulandığını ekranımda görebileyim...

 

[maviadam]

eline saglık kardes tam istediğimde bu ne olur yardımcı olun yaklasık 1 haftadır ugrasıyortum yapamadım...

 

[Mustafa MUTLU]

Tamam Kardeşim
Bu akşam vaktimi sana ayıracağım.
Ben senin açıklamalarına göre bir şey hazırlayım.
Sen kontrol edersin sonra beğenmediğin
Yada düzeltilmesini istediğin yerleri söylersin
Düzeltiriz.
önce elimizde bir proğram olsun..

 

[Mustafa MUTLU]

İşte Sana Bir Kayıt Proğramı.
Bunu incele
Artık kafana göre ayarlarsın.
Üzerinde değişiklikler yaparız.
İstatistiki bilgileri alabiliriz.

Bundan sonra ne istediğini daha kolay anlatırsın en azından.

 

[assenucler]

Sayın Mustafa Mutlu;

İyi akşamlar.

Arşivime ekliyorum. Katkınız için teşekkürler.

Her şey gönlünüzce olsun.

Sevgi ve saygılar.

 

[Mustafa MUTLU]

Sayın Mustafa Mutlu;

İyi akşamlar.

Arşivime ekliyorum. Katkınız için teşekkürler.

Her şey gönlünüzce olsun.

Sevgi ve saygılar.

İyi Akşamlar..

 

[maviadam]

hocam eline saglıkta ben acamadım ofis 2010 kullanıyorum hata verıyor?

Private Sub CommandButton1_Click()
Dim Satır As Long, Say As Byte
Satır = Range("A65536").End(3).Row + 1
If ComboBox2.Text = Empty Then
MsgBox "Kuş Cinsi Boş Görünüyor", vbExclamation, "Mustafa MUTLU": Exit Sub
End If
Cells(Satır, "a") = Satır - 1
Cells(Satır, "b") = ComboBox1.Text
Cells(Satır, "c") = ComboBox2.Text
Cells(Satır, "d") = ComboBox3.Text
Cells(Satır, "e") = ComboBox4.Text
Cells(Satır, "f") = ComboBox5.Text
Cells(Satır, "g") = ComboBox6.Text
Cells(Satır, "h") = ComboBox7.Text
Cells(Satır, "I") = ComboBox8.Text
Unload Me
UserForm1.Show
End Sub
Private Sub CommandButton2_Click()
If ListBox1 = Empty Then
MsgBox "Veri kaydı bulunamamıştır.", vbExclamation, "Mustafa MUTLU"
Exit Sub
End If
If ComboBox2.Text = Empty Then
MsgBox "Lütfen Listeden Seçim Yapınız Yada Kuş Cinsi Giriniz", vbExclamation, "Mustafa MUTLU"
Exit Sub
End If
If ListBox1.ListIndex < 0 Then
MsgBox "Listeden bir seçim yapmalısınız", vbExclamation, "Mustafa MUTLU"
Exit Sub
End If
If MsgBox("Seçtiğiniz kayıt üzerinde değişiklik yapılacaktır onaylıyor musunuz ?", vbCritical + vbYesNo, "Mustafa MUTLU") = vbYes Then
ListBox1.RowSource = Empty
Cells(ActiveCell.Row, "b") = ComboBox1.Text
Cells(ActiveCell.Row, "c") = ComboBox2.Text
Cells(ActiveCell.Row, "d") = ComboBox3.Text
Cells(ActiveCell.Row, "e") = ComboBox4.Text
Cells(ActiveCell.Row, "f") = ComboBox5.Text
Cells(ActiveCell.Row, "g") = ComboBox6.Text
Cells(ActiveCell.Row, "h") = ComboBox7.Text
Cells(ActiveCell.Row, "I") = ComboBox8.Text
MsgBox "Kayıt düzeltme işlemi tamamlanmıştır.", vbInformation, "Mustafa MUTLU"
Else
MsgBox "Kayıt düzeltme işlemi iptal edilmiştir.", vbInformation, "Mustafa MUTLU"
End If
Unload Me
UserForm1.Show
End Sub
Private Sub CommandButton3_Click()
If ListBox1 = Empty Then
MsgBox "Veri kaydı bulunamamıştır.", vbExclamation, "Mustafa MUTLU"
Exit Sub
End If
If ListBox1.ListIndex < 0 Then
MsgBox "Lütfen listeden veri seçimi yapınız.", vbExclamation, "Mustafa MUTLU"
Exit Sub
End If
If MsgBox("Seçtiğiniz kayıt silinecektir onaylıyor musunuz ?", vbCritical + vbYesNo, "Mustafa MUTLU") = vbYes Then
ListBox1.RowSource = Empty
Range("a" & ActiveCell.Row, "I" & ActiveCell.Row).ClearContents
If Range("A65536").End(3).Row > 2 Then
Range("A2:I65536").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("A1") = 0
Range("A2").AutoFill Destination:=Range("A2:A" & Range("A65536").End(3).Row), Type:=xlFillSeries
End If
MsgBox "Kayıt silme işlemi tamamlanmıştır.", vbInformation, "Mustafa MUTLU"
Else
MsgBox "Kayıt silme işlemi iptal edilmiştir.", vbInformation, "Mustafa MUTLU"
End If
Unload Me
UserForm1.Show
End Sub

Private Sub CommandButton5_Click()
ComboBox3.Text = ""
UserForm3.Show
End Sub
Private Sub CommandButton6_Click()
ComboBox4.Text = ""
UserForm4.Show
End Sub
Private Sub CommandButton7_Click()
ComboBox7.Text = ""
UserForm5.Show
End Sub
Private Sub ComboBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox2 = Empty
End Sub
Private Sub ComboBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox3 = Empty
End Sub
Private Sub ComboBox4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox4 = Empty
End Sub
Private Sub ComboBox7_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox7 = Empty
End Sub



Private Sub UserForm_Initialize()
ComboBox2.RowSource = "Sayfa2!B2:B200"
For X = 2 To 9
With UserForm1
.Controls("Label" & X - 1).Caption = Cells(1, X)
.Controls("Label" & X - 1).Font.Bold = True
.Controls("Label" & X - 1).ForeColor = vbBlue
End With
Next
With UserForm1.ListBox1
.BackColor = vbYellow
.ColumnCount = 9
.ColumnWidths = "1;45;48;58;70;50;50;50;50"
.ForeColor = vbBlue
If Sheets("Sayfa1").Range("a2") = Empty Then
.RowSource = Empty
Else
.RowSource = "Sayfa1!a2:j" & [Sayfa1!a65536].End(3).Row
End If
End With
End Sub
Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 2, 1).Select
ComboBox1.Text = Cells(ActiveCell.Row, "b")
ComboBox2.Text = Cells(ActiveCell.Row, "c")
ComboBox3.Text = Cells(ActiveCell.Row, "d")
ComboBox4.Text = Cells(ActiveCell.Row, "e")
ComboBox5.Text = Cells(ActiveCell.Row, "f")
ComboBox6.Text = Cells(ActiveCell.Row, "g")
ComboBox7.Text = Cells(ActiveCell.Row, "h")
ComboBox8.Text = Cells(ActiveCell.Row, "I")
End Sub
Private Sub CommandButton4_Click()
Unload Me
UserForm2.Show
End Sub
Private Sub CommandButton8_Click()
If MsgBox("Yapılan Değişiklikleri Kaydedeyim mi?", vbCritical + vbYesNo, "Mustafa MUTLU") = vbYes Then
ThisWorkbook.Save
MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation, "Mustafa MUTLU"
Else
MsgBox "Kayıt işlemi iptal edilmiştir.", vbInformation, "Mustafa MUTLU"
End If
Unload Me
End Sub

 

[maviadam]

yardım...hocamm

 

[maviadam]

mustafa hocam ???

 

[Mustafa MUTLU]

mustafa hocam ???

Arkadaşım ben 2003 kullanıyorum.
Sen daha üst versiyonunu kullanıyorsun.
sorun çıkmaması lazım ama ben ne yapabilirim ki ?..
Sizin için versiyon mu değiştireyim ?.

2003 de yapılmış proğramı xxxx versiyonunda nasıl açarım gibi bir başlık aç
Sana yol gösterir arkadaşlar...

 

[hımmmmmmmm]

slm

ekdeki programı incele

 

[maviadam]

hocam ıncelıyorum en kısa zamanda sıze bazı degısıklıkler ıcın yazacan bana ukasırsanız hızlandırız.
0536 586 69 42
Murat Durgut

 

[maviadam]

kimse yok mu???

 

[maviadam]

takıldım kaldım yardım edecek yok mu?=