koşula bağlı veri yazma

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; aşagıdaki kod ile
Sheets("FÖY").Range("E" & Satır).Value = TextBox8.Text

Userform üzerinde bulunan TextBox8'deki veriyi E sütununa yazıyor,
Benim isteğim TextBox8 da "Resen" yazısı varsa TextBox8'i yazmasın TextBox11'deki veriyi yazmasını istiyorum. Yoksa yani Resen yazısı yoksa yine TextBox8'i yazsın.
Herkese teşekkürler

 

[Korhan Ayhan]

Merhaba,

Basit bir "IF" sorgusu ile yapabilirsiniz.

Private Sub CommandButton1_Click()
    'Diğer kodlarınız....
    If InStr(1, TextBox8.Text, "Resen", vbTextCompare) > 0 Then
        Sheets("FÖY").Range("E" & Satır).Value = TextBox11.Text
    Else
        Sheets("FÖY").Range("E" & Satır).Value = TextBox8.Text
    End If
End Sub

 

[Hacı Bayram ÖZKAN]

Teşekkürler Korhan bey dua ile kalın