- Katılım
- 12 Ekim 2010
- Mesajlar
- 224
- Excel Vers. ve Dili
- 2013 türkçe
- Altın Üyelik Bitiş Tarihi
- 01-03-2021
Aşağıda yazılı olan döngünde İlk 3 koşulun hücre değerleri ile birbirlerine eş değer bir bağlantısı olmadığı için sorunsuz bir şekilde çalışıyor..
4. koşul 1 2 VE 3 ü koşuldaki bütün şart özellikleri barındırdığı için istenilen sonuç yerine her koşuldan bir sonuç alıyor.
4. Kuşulun istenilen sonucu verebilmesi için lütfen yardımcı olabilirmisiniz. Çok deneme yaptım ama tükendim..
Dim i As Integer
For i = 16 To 46
1. Koşul : If Range("D" & i).Value <> "" And Range("E" & i).Value = "-" Then
Range("D" & i).Value = Range("D" & i).Value & (" - ") & BitisMer.Value
2. Koşul: ElseIf Range("D" & i).Value <> "" And Range("F" & i).Value = "-" Then
Range("D" & i).Value = BaslamaMer.Value & (" - ") & Range("D" & i).Value
3. Koşul: ElseIf Range("D" & i).Value <> "" And Range("E" & i).Value <> "" And Range("F" & i).Value <> "" Then
Range("D" & i).Value = BaslamaMer.Value & (" - ") & Range("D" & i).Value & (" - ") & BitisMer.Value
4. Koşul: ElseIf Range("D" & i).Value <>"" And Range("E" & i).Value = ("-") And Range("F" & i).Value = ("-") Then
Range("D" & i).Value = Range("D" & i).Value
End If
Next i
i = Empty
Else
MsgBox "İşlem iptal edildi.", vbOKOnly
End If
End Sub
4. koşul 1 2 VE 3 ü koşuldaki bütün şart özellikleri barındırdığı için istenilen sonuç yerine her koşuldan bir sonuç alıyor.
4. Kuşulun istenilen sonucu verebilmesi için lütfen yardımcı olabilirmisiniz. Çok deneme yaptım ama tükendim..
Dim i As Integer
For i = 16 To 46
1. Koşul : If Range("D" & i).Value <> "" And Range("E" & i).Value = "-" Then
Range("D" & i).Value = Range("D" & i).Value & (" - ") & BitisMer.Value
2. Koşul: ElseIf Range("D" & i).Value <> "" And Range("F" & i).Value = "-" Then
Range("D" & i).Value = BaslamaMer.Value & (" - ") & Range("D" & i).Value
3. Koşul: ElseIf Range("D" & i).Value <> "" And Range("E" & i).Value <> "" And Range("F" & i).Value <> "" Then
Range("D" & i).Value = BaslamaMer.Value & (" - ") & Range("D" & i).Value & (" - ") & BitisMer.Value
4. Koşul: ElseIf Range("D" & i).Value <>"" And Range("E" & i).Value = ("-") And Range("F" & i).Value = ("-") Then
Range("D" & i).Value = Range("D" & i).Value
End If
Next i
i = Empty
Else
MsgBox "İşlem iptal edildi.", vbOKOnly
End If
End Sub