+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Harcırah Cetveli (/konu-harcirah-cetveli.html)
Sayfalar:
1
2
Harcırah Cetveli - malatyalı - 28/05/2021
Ustam
Eğer ComboBox3 = Hizmet Sınıfı Eğitim Öğretim Hizmetleri Sınıfı ve ComboBox2= Öğretmen ise
TextBox7
a) Ek göstergesi 8000 ve daha yüksek olan kadrolarda bulunanlar TextBox8= 61,65
b) Ek göstergesi 5800 (dahil) – 8000 (hariç) olan kadrolarda bulunanlar TextBox8= 57,55
c) Ek göstergesi 3000 (dahil) – 5800 (hariç) olan kadrolarda bulunanlar TextBox8= 54,05
Eğer ComboBox3 = Hizmet Sınıfı Eğitim Öğretim Hizmetleri Sınıfı ve ComboBox2= Öğretmen değil ise
TextBox4
d) Aylık/kadro derecesi 1-4 olanlar TextBox8= 47,65
e) Aylık/kadro derecesi 5-15 olanlar TextBox8= 46,35
Sayfa1 de ki harcırah durumunu formda uygulamak istedim olmadı rica etsem yardım edebilir misiniz?
RE: Harcırah Cetveli - atoykan - 29/05/2021
Merhaba Sayın @malatyalı
Örneğinizde textbox4'ün değiştiğinde olayında textbox8'e değer atamasına çalışmışsınız hangisi baz alınacak? Combobox2 ve 3 e göre mi işlem yapılmalı yoksa textbox4 mü?
RE: Harcırah Cetveli - malatyalı - 29/05/2021
Combobox 2 ve 3' e göre ustam
RE: Harcırah Cetveli - atoykan - 30/05/2021
Textbox4_Change olayını silip Textbox5_Cahnge olayında aşağıdaki kodu dener misiniz istediğiniz bu mu?
Private Sub TextBox5_Change()
Me.TextBox6.Value = gosterge(TextBox4.Value, TextBox5.Value)
Me.TextBox7.Value = EKGOSTERGEBUL(ComboBox3.Value, ComboBox4.Value, TextBox4.Value, TextBox5.Value)
If ComboBox3.Value = "Eğitim Öğretim Hizmetleri Sınıfı" And ComboBox2.Text = "Öğretmen" Then GoTo 1
If ComboBox3.Value <> "Eğitim Öğretim Hizmetleri Sınıfı" And ComboBox2.Text <> "Öğretmen" Then GoTo 2
1
Dim i As Integer
i = CInt(TextBox7.Value)
If i >= 8000 Then
Me.TextBox8.Value = Sheets("Sayfa1").Range("C3").Value
ElseIf i < 8000 And i >= 5800 Then
Me.TextBox8.Value = Sheets("Sayfa1").Range("C4").Value
ElseIf i < 5800 And i >= 3000 Then
Me.TextBox8.Value = Sheets("Sayfa1").Range("C5").Value
End If
Exit Sub
2
Dim j As Integer
j = CInt(TextBox4.Value)
If j <= 4 And j >= 1 Then
Me.TextBox8.Value = Sheets("Sayfa1").Range("C6").Value
ElseIf j <= 15 And j >= 5 Then
Me.TextBox8.Value = Sheets("Sayfa1").Range("C7").Value
Else
MsgBox "Geçerli bir derece girmediniz"
End If
End SubRE: Harcırah Cetveli - malatyalı - 30/05/2021
Ustam
Textbox4
i = CInt(TextBox7.Value)
kısmı bende hata veriyor. Rica etsem form içinde eklenerek yüklemeniz mümkün mü?
RE: Harcırah Cetveli - atoykan - 30/05/2021
Bende bir hata vermiyor ekli dosyayı inceler misiniz lütfen?