[Yardım]  Arama ve renklendirme

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

Arama ve renklendirme

İleti#1)  hilmivzr » 15 Mar 2019 16:48

"ARA" butonuna AA8 - AT8 de yazılan rakamları ayrı ayrı C4 - X118 arayıp bulan ve sarı olarak renklendiren ve Y sütununa kaç tane olduğunu yazan makro kodu.

Dosya ektedir. Yardımlarınız için şimdiden teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
hilmivzr
 
Kayıt: 14 Mar 2019 15:25
Meslek: Öğrenci
Yaş: 26
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskişehir

Cevap: Arama ve renklendirme

İleti#2)  feraz » 16 Mar 2019 23:39

Kod: Tümünü seç
Private Sub CommandButton3_Click()
   
    Dim i As Integer, j As Byte, k As Byte, say As Byte
    say = 0
    Range("Y4:Y118").ClearContents
    Application.ScreenUpdating = False
    For i = 4 To 118
        For j = 27 To 46
            For k = 3 To 24
                If Cells(i, k).Value = Cells(8, j).Value Then
                 say = say + 1
                End If
            Next
        Next
        Cells(i, "Y").Value = say
        say = 0
    Next
    Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5747
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe