- 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ğıdaki formülüm D - E - ve F hücrelerinin durumuna göre BAŞLAMAVER.VALUE ve BİTİSMER.VALUE den veri alıyor.. Sorunsuz bir şekilde de çalışıyor..
Ançak her komut verdiğimde aynı veriyi tekrar tekrar alıyor... Bir kere aldıktan sonra aynısı varsa tekrar almaması için formülde bir değişiklik yapmama yardımcı olabilirmisiniz. Eğer uzun bir işlem olmayacaksa ve zamanınız var ise yardım ederseniz çok sevinirim..
For i = 16 To 46
If Range("D" & i).Value <> "" And Range("E" & i).Value = ("-") And Range("F" & i).Value = ("-") Then GoTo 10:
If Range("D" & i).Value <> "" And Range("E" & i).Value = "-" Then
Range("D" & i).Value = Range("D" & i).Value & (" - ") & BitisMer.Value
ElseIf Range("D" & i).Value <> "" And Range("F" & i).Value = "-" Then
Range("D" & i).Value = BaslamaMer.Value & (" - ") & Range("D" & i).Value
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
End If
10:
Next i
Ançak her komut verdiğimde aynı veriyi tekrar tekrar alıyor... Bir kere aldıktan sonra aynısı varsa tekrar almaması için formülde bir değişiklik yapmama yardımcı olabilirmisiniz. Eğer uzun bir işlem olmayacaksa ve zamanınız var ise yardım ederseniz çok sevinirim..
For i = 16 To 46
If Range("D" & i).Value <> "" And Range("E" & i).Value = ("-") And Range("F" & i).Value = ("-") Then GoTo 10:
If Range("D" & i).Value <> "" And Range("E" & i).Value = "-" Then
Range("D" & i).Value = Range("D" & i).Value & (" - ") & BitisMer.Value
ElseIf Range("D" & i).Value <> "" And Range("F" & i).Value = "-" Then
Range("D" & i).Value = BaslamaMer.Value & (" - ") & Range("D" & i).Value
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
End If
10:
Next i