Kod yazımı

[nihatra]

İf ile Kod yazımı

Private Sub Worksheet_Change(ByVal Target As Range)

=EĞER(YADA(;B8="Sınıf Öğretmeni";B8="Okul Öncesi Öğretmeni");18;EĞER(B8="Branş Öğretmeni";15;"0"))

End sub

kodu nasıl yazılabilir.
Teşekkürler.

 

[Muzaffer Ali]

Formülü yazarken makro oluştur sonra oluşturduğun makroyu kullanabilirsin.

 

[aytuncc]

Arkadaşlar birkaç konuda yardımınızı rica edicem

Combobox da hiçbir seçim yapılmazsa formu yüklemesin ekrana "değer giriniz" uyarısı gelsin istiyorum eğer seçim yapılır ise de o değer kullanılsın. Aşağıdaki formülü yazdım ama olmuyor hata veriyor nasıl bir formül yazmam gerekir?

Şimdiden çok teşekkür ederim

If userform1.ComboBox20.Value <> "" Then
Unload userform1
MsgBox "Değer Giriniz"
Else:
Sheets("Sayfa3").Cells(nextrow, 2) = userform1.ComboBox20.Value
End If

 

[Trilenium]

Private Sub Worksheet_Change(ByVal Target As Range)

'=EĞER(YADA(;B8="Sınıf Öğretmeni";B8="Okul Öncesi Öğretmeni");18;EĞER(B8="Branş Öğretmeni";15;"0"))
' Yazmış oldugunuz formülde Yada Boşsa değer 18 olmalıdır demişsiniz Formülünüz dogru olup olmadıgını bilmedigim icin bu fonksiyonuda koydum... Eğer boşu kontrol etmeyeckse İkinci Kodu uygulayınız...
If Range("B8").Value = "" Or Range("B8").Value = "Sınıf Öğretmeni" Or Range("B8").Value = "Okul Öncesi Öğretmeni" Then
Range("C8").Value = 18
Else
If Range("B8").Value = "Branş Öğretmeni" Then
Range("C8").Value = 15
Else
Range("C8").Value = 0
End If
End If

End sub

' İkinci Kod
Private Sub Worksheet_Change(ByVal Target As Range)

'=EĞER(YADA(;B8="Sınıf Öğretmeni";B8="Okul Öncesi Öğretmeni");18;EĞER(B8="Branş Öğretmeni";15;"0"))

If Range("B8").Value = "Sınıf Öğretmeni" Or Range("B8").Value = "Okul Öncesi Öğretmeni" Then
Range("C8").Value = 18
Else
If Range("B8").Value = "Branş Öğretmeni" Then
Range("C8").Value = 15
Else
Range("C8").Value = 0
End If
End If

End sub

 

[Trilenium]

Ben C8 yazdırdım degeri siz nereye istiyorsanız ona göre degiştirebilirsiniz

 

[Trilenium]

If userform1.ComboBox20.Value= "" Then
Unload userform1
MsgBox "Değer Giriniz"
Else
Sheets("Sayfa3").Cells(nextrow, 2) = userform1.ComboBox20.Value
End If

 

[aytuncc]

Çok teşekkür ederim

 

[aytuncc]

Bir sonraki daha zor soruma geçmek istiyorum

Combobox6 da Ayşe (B-C); Ayşe (D-E); Ayşe (F); Ali (B-C); Ali (D-E)değer leri mevcut

Combobox7 de ise 0,1,2,3,4,5 rakamları

ve şöyle bir formül yazmam gerekiyor :

Combobox6=Ayşe (D-E) ise (2+(-0,6*Combobox7 değeri) eğer (2+(-0,6*Combobox7 değeri)<0 ise 0 yaz

Combobox6=Ayşe (D-E) haricinde kalanlar için ise (3+(-0,6*Combobox7 değeri) eğer (3+(-0,6*Combobox7 değeri)<0 ise 0 yaz

ben bir formül yazdım ama Ayşe (B-C); Ayşe (D-E); Ayşe (F) değerleri için çalıştı Ali (B-C); Ali (D-E) değerleri için hata verdi yardımcı olursanız çok sevinirim

Teşekkür ederim

 

[Trilenium]

Aytunc bey Forum kurallarına riayet ediniz. Başkasının Sorusu üzerindesiniz.

 

[aytuncc]

Özür dilerim nasıl düzeltebilirim?

 

[Trilenium]

Yeni bir soru açarak

 

[aytuncc]

Arkadaşlar benim başka forum aboneliğim yok ilk kez üye oluyorum yeni sorunun nereden sorulacağını bulamadığımdan buradan yazıyorum birisi bana yardımcı olabilirmi ?

Teşekkür ederim