Hücreden çekilen verinin tekrar edilmesinde aynı veri varsa çekmemesi gerekiyor..

[stirra_ej]

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

 

[stirra_ej]

Lütfen buna bir çözüm bulabilirmisiniz... Kendim yapamayacağım..

Şu da olabilir D16 D46 arası hücrelerinde ( Ankara - İstanbul - Ankara ) yazıyor varsayalım . Makro iki defa çalıştırılmış ve Hücre içeriyi
(Ankara - Ankara - İstanbul - Ankara - Ankara) olmuş..

Hücrenin sağında kalan iki aynı kelimenin birini ve solunda kalan birini temizletemezmiyim.. Fikir yürütemiyorum... Makroyu çalıştırdıkca sürekli ekliyor ve uzuyor...

 

[YUSUF44]

Örnek dosya olmadan çözmek zor.

 

[stirra_ej]

Sorun çözülmüştür..

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
If Right(Range("D" & i).Value, Len(BitisMer.Value)) <> BitisMer.Value Then Range("D" & i).Value = Range("D" & i).Value & (" - ") & BitisMer.Value
ElseIf Range("D" & i).Value <> "" And Range("F" & i).Value = "-" Then
If Left(Range("D" & i).Value, Len(BaslamaMer.Value)) <> BaslamaMer.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
If Right(Range("D" & i).Value, Len(BitisMer.Value)) <> BitisMer.Value And Left(Range("D" & i).Value, Len(BaslamaMer.Value)) <> BaslamaMer.Value Then Range("D" & i).Value = BaslamaMer.Value & (" - ") & Range("D" & i).Value & (" - ") & BitisMer.Value

10:
Next i