[Yardım]  Aynı olanları topla

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

Aynı olanları topla

İleti#1)  mugur » 12 Oca 2020 16:37

Merhaba sayın forum üyeleri. Eklediğim dosyadaki sorunum şöyle; "I" sütunundaki aynı isimdeki verileri birleştirip "A" sütununa aktaracak ve ona ait bilgileri toplayıp "B" sütununa yazacak. Bulduğum bir kodu revize ederek işimi görecek şekle getirdim. Ancak filtreleme yaparken ilk satırdaki bilgiyi ikinci defa yazmasını bir türlü önleyemedim. Nerede yanlışım var ? Saygılar.

Kod: Tümünü seç
Sub Hesapla01()
On Error Resume Next
   
Application.ScreenUpdating = False

Set s1 = Sheets("Sayfa1")

Set alan1 = s1.Range("I7:I40")

Set alan3 = s1.Range("A7:A40")

alan3.ClearContents
 
alan1.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=alan3, Unique:=True

Application.ScreenUpdating = True

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
mugur
Yeni Başlamış
 
Adı Soyadı:Mustafa GÜR
Kayıt: 08 Kas 2008 00:07
Konum: ankara
Meslek: emekli
Yaş: 64
İleti: 35
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: Aynı olanları topla

İleti#2)  OmerFaruk72 » 12 Oca 2020 18:38

İlgili satırları şu şekilde değiştirir misin.

Kod: Tümünü seç
Set alan1 = s1.Range("I6:I40")
Set alan3 = s1.Range("A6:A40")
Kullanıcı avatarı
OmerFaruk72
Yeni Başlamış
 
Kayıt: 15 Ekm 2018 10:39
Meslek: Elektrik Mühendisi
Yaş: 47
İleti: 72
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Aynı olanları topla

İleti#3)  mugur » 12 Oca 2020 19:00

Teşekkür ederim düzeldi.. Peki neden 6 ncı satırı seçiyoruz? Merakımdan soruyorum.
Kullanıcı avatarı
mugur
Yeni Başlamış
 
Adı Soyadı:Mustafa GÜR
Kayıt: 08 Kas 2008 00:07
Konum: ankara
Meslek: emekli
Yaş: 64
İleti: 35
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Cevap: Cevap: Aynı olanları topla

İleti#4)  OmerFaruk72 » 12 Oca 2020 19:16

mugur yazdı:Teşekkür ederim düzeldi.. Peki neden 6 ncı satırı seçiyoruz? Merakımdan soruyorum.

Başlık satırını da alsın diye
Kullanıcı avatarı
OmerFaruk72
Yeni Başlamış
 
Kayıt: 15 Ekm 2018 10:39
Meslek: Elektrik Mühendisi
Yaş: 47
İleti: 72
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

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

Cevap: Aynı olanları topla

İleti#5)  mugur » 12 Oca 2020 19:27

Anladım tekrar teşekkür ederim iyi çalışmalar.
Kullanıcı avatarı
mugur
Yeni Başlamış
 
Adı Soyadı:Mustafa GÜR
Kayıt: 08 Kas 2008 00:07
Konum: ankara
Meslek: emekli
Yaş: 64
İleti: 35
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot], MEMOZ, vkonca ve 1 misafir

Bumerang - Yazarkafe