If komutu ile ilgili çözüm

[ismailozkan4224]

bu üç komutu sırası ile arka arkaya nasıl kullanabilirim. yani önce 1. şart olmazsa 2. şart o da olmazsa 3. şart

If Sheets("VERİ").Cells(5, 3) = "" Then Sheets("Resmi Yazı").Cells(6, 5) = aa & i & g & i & bb
Sheets("Resmi Yazı").Cells(7, 5) = "Hakkındaki Soruşturma Raporu"
Sheets("Resmi Yazı").Cells(8, 5) = " "
'.................................................................................................
If Sheets("VERİ").Cells(5, 3) > "" Then Sheets("Resmi Yazı").Cells(6, 5) = aa & h & bb
Sheets("Resmi Yazı").Cells(7, 5) = "ve " & dd
Sheets("Resmi Yazı").Cells(8, 5) = "Hakkındaki Soruşturma Raporu"
'..........................................................
If Sheets("VERİ").Cells(4, 3) = "" Then Sheets("Resmi Yazı").Cells(6, 5) = aa
Sheets("Resmi Yazı").Cells(7, 5) = "Hakkındaki Soruşturma Raporu"
Sheets("Resmi Yazı").Cells(8, 5) = " "

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki şekilde olmalı.

If Sheets("VERİ").Cells(5, 3) = "" Then
    Sheets("Resmi Yazı").Cells(6, 5) = aa & i & g & i & bb
    Sheets("Resmi Yazı").Cells(7, 5) = "Hakkındaki Soruşturma Raporu"
    Sheets("Resmi Yazı").Cells(8, 5) = " "
'.................................................................................................
ElseIf Sheets("VERİ").Cells(5, 3) > "" Then
    Sheets("Resmi Yazı").Cells(6, 5) = aa & h & bb
    Sheets("Resmi Yazı").Cells(7, 5) = "ve " & dd
    Sheets("Resmi Yazı").Cells(8, 5) = "Hakkındaki Soruşturma Raporu"
'..........................................................
ElseIf Sheets("VERİ").Cells(4, 3) = "" Then
    Sheets("Resmi Yazı").Cells(6, 5) = aa
    Sheets("Resmi Yazı").Cells(7, 5) = "Hakkındaki Soruşturma Raporu"
    Sheets("Resmi Yazı").Cells(8, 5) = " "
End If

 

[ismailozkan4224]

If Sheets("VERİ").Cells(5, 3) = "" Then Sheets("Resmi Yazı").Cells(6, 5) = aa & i & g & i & bb Sheets("Resmi Yazı").Cells(7, 5) = "Hakkındaki Soruşturma Raporu" Sheets("Resmi Yazı").Cells(8, 5) = " " '................................................................................................. ElseIf Sheets("VERİ").Cells(5, 3) > "" Then Sheets("Resmi Yazı").Cells(6, 5) = aa & h & bb Sheets("Resmi Yazı").Cells(7, 5) = "ve " & dd Sheets("Resmi Yazı").Cells(8, 5) = "Hakkındaki Soruşturma Raporu" '.......................................................... ElseIf Sheets("VERİ").Cells(4, 3) = "" Then Sheets("Resmi Yazı").Cells(6, 5) = aa Sheets("Resmi Yazı").Cells(7, 5) = "Hakkındaki Soruşturma Raporu" Sheets("Resmi Yazı").Cells(8, 5) = " " End If
[/QU
teşekkür ederim dalgalıkur