Çok kriterli veri bulma ve renklendirme.

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

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#21)  erseldemirel2 » 29 Mar 2020 20:36

Ama bu kodlar mevcut tarz içindi. Siz L kolonu değiştirirseniz içeriklerini çalışmaz. Kodun mantığı içinden sayıyı çekip satır sayısı tespit ediyordu. Bu haliyle çalışmaz. Kodlar mutlak sabit değildir. Siz değişiklik yaptıkça onlarda sürekli değişmesi gerekir.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 719
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#22)  sibel atabey » 29 Mar 2020 20:44

Kusura bakmayın ben parantez içerisindeki kodların sorun çıkaracağını bilmediğim için yazmamıştım.
Şu yanlış anlaşılmasın A ile L sutunları birbirini içerecek ve aynı içerik olacak ve L sutununa göre A sutunu ve isimleri bulup işaretleyecek.

Ben A ve L sutunun daki seçeneklere parantez içerisinde sayı yazdığım zaman hata veriyor. O sayıları yazmaz isem sıkıntı yok gibi. Ama onlarda olması gerekiyor.
Kullanıcı avatarı
sibel atabey
Yeni Başlamış
 
Kayıt: 19 Tem 2016 20:50
Meslek: kamu
Yaş: 40
İleti: 90
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#23)  sibel atabey » 29 Mar 2020 20:49

Örneğin sondaki parantezi ve sayıları kaldırdım ilk satır çalıştı. Örneği ekledim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
sibel atabey
Yeni Başlamış
 
Kayıt: 19 Tem 2016 20:50
Meslek: kamu
Yaş: 40
İleti: 90
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#24)  şahin » 29 Mar 2020 20:51

Ekte

rnek.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 1007
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

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

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#25)  erseldemirel2 » 29 Mar 2020 21:04

Kod: Tümünü seç
Sub hesapla()
Cells.Interior.ColorIndex = xlNone
Columns("m").Clear
For t = 2 To Range("l65536").End(3).Row
strVal = Range("L" & t)
Set wsh = Worksheets("test")
Set rng = wsh.Range("A:A").Find(What:=strVal, LookAt:=xlWhole, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Bulunamadı"
Exit Sub
Else
Range("m" & t) = rng.Row
End If
Next t
For j = 2 To 7
For i = 2 To Range("k65536").End(3).Row
If Range("k" & i) = Cells(1, j) Then
Cells(Range("m" & i) + 1, j).Interior.Color = vbRed
End If
Next i
Next j
End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 719
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#26)  sibel atabey » 29 Mar 2020 21:23

İşaretlemeye 1 satır aşağıdan başlıyor.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
sibel atabey
Yeni Başlamış
 
Kayıt: 19 Tem 2016 20:50
Meslek: kamu
Yaş: 40
İleti: 90
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#27)  erseldemirel2 » 29 Mar 2020 22:02

Sadece aşağıdaki 1 rakamını sildim. Eğer kendi başınıza birşeyler üretmekse kodlarla uğraşcaksanız bence biraz deneme yanılmada olsa ne satırın ne anlamı var bir test edin. Ben öyle başlayarak biraz ilerlettim.

Kod: Tümünü seç
Cells(Range("m" & i), j).Interior.Color = vbRed
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 719
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#28)  şahin » 29 Mar 2020 22:03

Ekte.

rnek.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 1007
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#29)  şahin » 29 Mar 2020 22:06

Ekte..
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 1007
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#30)  sibel atabey » 29 Mar 2020 23:07

Şahin bey sizin ilk başta verdiğiniz örnek oldu gibi yarın test edeceğim ama son verdiğinizde ise K sütununun en sonuna bir isim yazdığımda hemen bir üstteki ismin karşılığında ne var ise ona göre işaretleme yapıyor.
Kullanıcı avatarı
sibel atabey
Yeni Başlamış
 
Kayıt: 19 Tem 2016 20:50
Meslek: kamu
Yaş: 40
İleti: 90
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#31)  hasan14 » 30 Mar 2020 05:00

Birde bu kodu test eder misiniz? Hızı nasıl?
Kod: Tümünü seç
Sub Renklendir()
Dim s1 As Worksheet
Dim son1 As Integer: Dim son2 As Integer
Set s1 = Sheets("Sayfa1")
son1 = s1.Cells(65335, "A").End(3).Row
son2 = s1.Cells(65335, "K").End(3).Row
Cells.FormatConditions.Delete
With s1.Range("B2:G" & son1)
.FormatConditions.Add Type:=xlExpression, Formula1:="=ÇOKEĞERSAY($L$2:$L" & son2 & ";" & "$A2;$K$2:$K" & son2 & ";" & " B$1)>0"
       With .FormatConditions(1).Interior
       .PatternColorIndex = xlAutomatic
       .ColorIndex = 5
        End With
        .FormatConditions(1).StopIfTrue = False
        End With
  MsgBox "İşlem Tamam"
End Sub
Kullanıcı avatarı
hasan14
Siteye Alışmış
 
Kayıt: 28 Ağu 2016 15:26
Meslek: eğitim
Yaş: 59
İleti: 486
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: zonguldak

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#32)  sibel atabey » 30 Mar 2020 13:51

:arrow: Öncelikle hızlı cevap ve çok emek vermesi nedeni ve önerisi için Ersel beye çok teşekkür ediyorum. şkşk

:arrow: Diğer taraftan, Şahin beye farklı bir kodlama şekliyle yardımcı olmasından dolayı onada çok teşekkür ediyorum. Şahin beyin kodlarında şöyle bir durum var ilk satırdaki isimleri renkli biçimlendirdiğimde kod çalışınca biçimi siliyor ve k sütununda ismi yazınca bir önceki satırdaki değere göre işaretliyor en son yazılan ismin karşısına değeri yazınca düzeltiyor bu gibi bir sorun var. şkşk

:arrow: Ve son olarak Hasan beyin formüllü tarzı çok hızlı ve İlk satırda biçim bozulması yapmadı onu kullandım. Kendisine de çok teşekkür ederim.
Yardımınızı esirgemediğinizden dolayı hepinize ayrı ayrı teşekkür ederim. şkşk
Kullanıcı avatarı
sibel atabey
Yeni Başlamış
 
Kayıt: 19 Tem 2016 20:50
Meslek: kamu
Yaş: 40
İleti: 90
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara

Cevap: Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#33)  hasan14 » 30 Mar 2020 15:20

sibel atabey yazdı::arrow: Öncelikle hızlı cevap ve çok emek vermesi nedeni ve önerisi için Ersel beye çok teşekkür ediyorum. şkşk

:arrow: Diğer taraftan, Şahin beye farklı bir kodlama şekliyle yardımcı olmasından dolayı onada çok teşekkür ediyorum. Şahin beyin kodlarında şöyle bir durum var ilk satırdaki isimleri renkli biçimlendirdiğimde kod çalışınca biçimi siliyor ve k sütununda ismi yazınca bir önceki satırdaki değere göre işaretliyor en son yazılan ismin karşısına değeri yazınca düzeltiyor bu gibi bir sorun var. şkşk

:arrow: Ve son olarak Hasan beyin formüllü tarzı çok hızlı ve İlk satırda biçim bozulması yapmadı onu kullandım. Kendisine de çok teşekkür ederim.
Yardımınızı esirgemediğinizden dolayı hepinize ayrı ayrı teşekkür ederim. şkşk

Açıklamanız ve dönüş yaptığınız için teşekkür eder.Sağlıklı ve mutlu günler dilerim.Hoşçakalınız. --)(
Kullanıcı avatarı
hasan14
Siteye Alışmış
 
Kayıt: 28 Ağu 2016 15:26
Meslek: eğitim
Yaş: 59
İleti: 486
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: zonguldak

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#34)  erseldemirel2 » 30 Mar 2020 17:29

Rica ederim. Ayrıca hızlandırmak için updating ekleyiniz.Kolay gelsin

Kod: Tümünü seç
Sub hesapla()
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
Columns("m").Clear
For t = 2 To Range("l65536").End(3).Row
strVal = Range("L" & t)
Set wsh = Worksheets("test")
Set rng = wsh.Range("A:A").Find(What:=strVal, LookAt:=xlWhole, MatchCase:=False)
If rng Is Nothing Then
MsgBox "Bulunamadı"
Exit Sub
Else
Range("m" & t) = rng.Row
End If
Next t
For j = 2 To 7
For i = 2 To Range("k65536").End(3).Row
If Range("k" & i) = Cells(1, j) Then
Cells(Range("m" & i) + 1, j).Interior.Color = vbRed
End If
Next i
Next j
Application.ScreenUpdating = True
End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 719
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#35)  sibel atabey » 14 Nis 2020 12:02

Merhaba Hasan beyin kodunu kullanmıştım iyi fakat belirli bir satırdan sonraki verilerde çalışmamaya başladı yardımcı olabilirseniz memnun olurum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
sibel atabey
Yeni Başlamış
 
Kayıt: 19 Tem 2016 20:50
Meslek: kamu
Yaş: 40
İleti: 90
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#36)  şahin » 14 Nis 2020 22:22

Kodları bu şekilde değiştirin

Kod: Tümünü seç
Sub Renklendir()
Dim s1 As Worksheet
Dim son1 As Long: Dim son2 As Long
Set s1 = Sheets("Sayfa1")
son1 = s1.Cells(500000, "A").End(3).Row
son2 = s1.Cells(500000, "BK").End(3).Row
Cells.FormatConditions.Delete
With s1.Range("B2:BJ" & son1)
.FormatConditions.Add Type:=xlExpression, Formula1:="=ÇOKEĞERSAY($BL$2:$BL" & son2 & ";" & "$A2;$BK$2:$BK" & son2 & ";" & " B$1)>0"
       With .FormatConditions(1).Interior
       .PatternColorIndex = xlAutomatic
       .ColorIndex = 5
        End With
        .FormatConditions(1).StopIfTrue = False
        End With
End Sub


Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 1007
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#37)  sibel atabey » 14 Nis 2020 23:56

Şahin bey, o şekilde satır sayılarında artış yaptım fakat olmadı sonuç vermiyor, sizin gönderdiğiniz kodu denedim 500000 olanı kitledi hiç açamadım.
Kullanıcı avatarı
sibel atabey
Yeni Başlamış
 
Kayıt: 19 Tem 2016 20:50
Meslek: kamu
Yaş: 40
İleti: 90
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#38)  şahin » 15 Nis 2020 23:22

Ekte

rnek.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 1007
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Çok kriterli veri bulma ve renklendirme.

İleti#39)  sibel atabey » 17 Nis 2020 14:31

Şahin bey işerim gereği pek bakamadım şuan fırsatım oldu geri dönüş yapamadım kusuruma bakmayın lütfen.
Şuan için bir problem gözükmüyor ve çok hızlı hız sayacıda koymuşsunuz zaten ellerinize sağlık emek verdiniz çok teşekkür ederim.Umarım bir problem ile karşılaşmam karşılaşırsam siz bilge insanlardan yine yardım talebinde bulunurum İyi günler dileğimle sağlıcakla kalın.
Kullanıcı avatarı
sibel atabey
Yeni Başlamış
 
Kayıt: 19 Tem 2016 20:50
Meslek: kamu
Yaş: 40
İleti: 90
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: Ankara

Önceki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe