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

stirra_ej

Altın Üye
Katılım
12 Ekim 2010
Mesajlar
163
Excel Vers. ve Dili
2013 türkçe
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

Altın Üye
Katılım
12 Ekim 2010
Mesajlar
163
Excel Vers. ve Dili
2013 türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
8,505
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
Örnek dosya olmadan çözmek zor.
 

stirra_ej

Altın Üye
Katılım
12 Ekim 2010
Mesajlar
163
Excel Vers. ve Dili
2013 türkçe
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
 
Üst