[Yardım]  Hücreden çekilen verinin tekrarı Hakkında... !!

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Hücreden çekilen verinin tekrarı Hakkında... !!

İleti#1)  snrkrmz » 25 Mar 2020 21:41

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
Kullanıcı avatarı
snrkrmz
Yeni Başlamış
 
Kayıt: 24 Haz 2019 23:36
Meslek: İŞÇİ
Yaş: 36
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANAKRA

Cevap: Hücreden çekilen verinin tekrarı Hakkında... !!

İleti#2)  snrkrmz » 26 Mar 2020 00:13

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...
Kullanıcı avatarı
snrkrmz
Yeni Başlamış
 
Kayıt: 24 Haz 2019 23:36
Meslek: İŞÇİ
Yaş: 36
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANAKRA

Cevap: Hücreden çekilen verinin tekrarı Hakkında... !!

İleti#3)  Feyzullah » 26 Mar 2020 00:25

Kod: Tümünü seç
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
Range
("D" & i).Value = BaslamaMer.Value & (" - ") & Range("D" & i).Value & (" - ") & BitisMer.Value
End If
10
:
Next i
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 772
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Hücreden çekilen verinin tekrarı Hakkında... !!

İleti#4)  snrkrmz » 26 Mar 2020 00:29

Feyzullah Bey Makroda bir değişiklik göremedim, aynı makroyu tekrar cevap olarak göndermişsiniz sanırım...
Kullanıcı avatarı
snrkrmz
Yeni Başlamış
 
Kayıt: 24 Haz 2019 23:36
Meslek: İŞÇİ
Yaş: 36
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANAKRA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Hücreden çekilen verinin tekrarı Hakkında... !!

İleti#5)  snrkrmz » 26 Mar 2020 00:31

Afedersiniz değişikliğin farkına şimdi vardım, hemen deniyorum ....
Kullanıcı avatarı
snrkrmz
Yeni Başlamış
 
Kayıt: 24 Haz 2019 23:36
Meslek: İŞÇİ
Yaş: 36
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANAKRA

Cevap: Cevap: Hücreden çekilen verinin tekrarı Hakkında... !

İleti#6)  snrkrmz » 26 Mar 2020 00:35

Feyzullah yazdı:
Kod: Tümünü seç
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
Range
("D" & i).Value = BaslamaMer.Value & (" - ") & Range("D" & i).Value & (" - ") & BitisMer.Value
End If
10
:
Next i



Hocam ellerine kollarına sağlık, mükemmel şekilde çalıştı ve hakkını nasıl öderim bilmiyorum.. Çok ama çok teşekkür ederim...
Kullanıcı avatarı
snrkrmz
Yeni Başlamış
 
Kayıt: 24 Haz 2019 23:36
Meslek: İŞÇİ
Yaş: 36
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANAKRA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Hücreden çekilen verinin tekrarı Hakkında... !!

İleti#7)  snrkrmz » 26 Mar 2020 00:38

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


Hocam bu kodda eksiklik var Burası tekrar almaya devam ediyor..
Kullanıcı avatarı
snrkrmz
Yeni Başlamış
 
Kayıt: 24 Haz 2019 23:36
Meslek: İŞÇİ
Yaş: 36
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANAKRA

Cevap: Hücreden çekilen verinin tekrarı Hakkında... !!

İleti#8)  snrkrmz » 26 Mar 2020 00:48

Hocam gösterdiğiniz yol neticesinde kodu kendim düzelttim... Sana minnettarım..


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
Kullanıcı avatarı
snrkrmz
Yeni Başlamış
 
Kayıt: 24 Haz 2019 23:36
Meslek: İŞÇİ
Yaş: 36
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANAKRA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 2 misafir

Bumerang - Yazarkafe