if then else yardım lütfen

[mecnun24_]

bir türlü beceremedim yardım edermisiniz şunu yapmak istiyorum.
eğer textbox5 doluysa aktif hücreye yaz

değilse ve eğer textbox2 (başka bir box ) boşsa aktif hücreye fatura yaz
değilse aktif hücreye havale yaz.
teferruat önemli değil yapısını yazarsanız çok sevinirim.
şimdiden teşekkürler.

 

[leumruk]

Selamlar,

Sub dene()
If texstbox5 <> "" Then
Activecell = texstbox5.value
Else
Activecell= "Havale"
End If
End Sub

 

[mecnun24_]

ilginize çok teşekkürler. ancak eksik anlattım galiba. textbox5 doluysa hücreye yazacak.buraya kadar yaptım. ondan sonra eğer boşsa başka bir kutuya (textbox2) bakacak doluysa fatura yazacak boşsa havale yazacak.

 

[Orion1]

If TextBox5.Text <> "" Then
    ActiveCell.Value = TextBox5.Text
    ElseIf TextBox2.Text = "" Then
        ActiveCell.Value = "Fatura Yaz"
    Else
        ActiveCell.Value = "Havale yaz"
End If

 

[mecnun24_]

dosyayı eklesem bakabilirmisiniz acaba yapamadım bi türlü.
tşkrler.

 

[leumruk]

Selamlar,
Activecell'i neye göre belirliyorsunuz. Bu şekilde rastgele hücrelere yazıyor. Verinin nereye gitmesi gerektiğini belirtmeniz gerekir. Bu kodlardan önce yazdırmak istediğiniz hücreyi seçecek bir kod eklemeniz gerekir.

 

[mecnun24_]

formun açıldığı hücreyi aktif hücre sayıyor sonra offsetlerle texboxları hücrelere döşüyor ama if then yapısını yapamadım bi türlü.dosyaya bi bakarmısınız lütfen.

 

[leumruk]

Selamlar,
Anlayabildiğim kadarıyla yaptım. Havale-Fatura açıklamasını nereye yazacağımı kestiremediğimden d sütununa atadım. Siz kendinize göre değiştirirsiniz. Örnek dosya ekte...

Private Sub CommandButton1_Click()
Range(ActiveCell, ActiveCell.Offset(0, 7)) = ""
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
If TextBox5 <> "" Then ActiveCell.Offset(0, 2).Value = TextBox5.Value
If TextBox2 <> "" Then ActiveCell.Offset(0, 3).Value = "Fatura"
If TextBox2 = "" Then ActiveCell.Offset(0, 3).Value = "Havale"
End Sub

 

[mecnun24_]

teşekkürler.

 

[leumruk]

Rica ederim. İyi çalışmalar.

 

[mecnun24_]

sağolun.olmadı ama daha fazla meşgul etmiyim sizi.uğraşayım biraz kendim.tşkrler

 

[leumruk]

Sorun nedir?

 

[mecnun24_]

tek sorun c sütununa istediğimi yazdıramam. şöyleki
formdaki açıklama kutusu (textbox5) doluysa c ye yazsın.
yok eğer boşsa (textbox5)
ozaman formdaki no kutusu (textbox2) dolu veya boş olmasına baksın
doluysa c ye fatura yazsın yok boşsa havale yazsın.doğru anlatabildim umarım.

 

[leumruk]

Selamlari
Userformda ve kodlarda küçük bir değişiklik yaptım. Textbox5'in içi sürekli dolu olduğundan doğal olarak sorun çıkıyordu. İçini boşaltıp, açıklamayı label'e yazdım.

 

[mecnun24_]

çok sağolun.allah razı olsun ya.oldu en sonunda.çok teşekkürler.

 

[leumruk]

çok sağolun.allah razı olsun ya.oldu en sonunda.çok teşekkürler.

Rica ederim. Hayırlı geceler.