Soru Yüksek olan değerleri kayıt etmek

[aras90]

Merhaba arkadaşlar Sayfa1 içerisine veri çekiyorum. Yapmak istediğim ise K M P Q sütunlarında eğer 75% üzeri bir sayı var ise onu A B C D içeriği ile birlikte Sayfa2 ye kayıt edebilmek makro ile yada otomatik olarak nasıl yapabilirim.

Yapabilrsem benim işimi çok kolaylaştıracak. Böyle bir şey mümkün mü?






Dosya Linki

 

[aras90]

Sanırım zor yerden sordum

 

[ÖmerFaruk]

Merhaba,
Birincisi, görsel yerine dosya paylaşabilrisiniz.
İkincisi, soruda K-M-P-Q demişsiniz ancak ikinci resimde E-H-I-J sütun etiketlerini de görüyorum.

 

[aras90]

Merhaba, Dosya eklemiştim resimlerin en altında şikayet et linkinin hemen üzerinde bulunuyor

İkinci resimde örnek olarak hazırladım yani görsel olarak nasıl olması gerektiğini K-M-P-Q benim için yeterli

 

[ÖmerFaruk]

Aşağıdaki kodu, dosyanızdaki Sayfa2 yanbi sonuçları alacağınız sayfanın kod penceresine yapıştırın.
Sayfayı her açtığınızda sonuçları oluşturur.
Sütun Sayısını arttırmak isterseniz, Kolon=Array( yazan kısıma kolon no eklemeniz yeterli

Private Sub Worksheet_Activate()
    Dim Liste()
    Cells.Clear
    Veri = Worksheets("Sayfa1").Range("A1").CurrentRegion.Value
    Kolon = Array(11, 13, 16, 17)
    For i = 2 To UBound(Veri)
        For k = 0 To UBound(Kolon)
            If Veri(i, Kolon(k)) > 0.75 Then
                Say = Say + 1
                ReDim Preserve Liste(1 To 6, 1 To Say)
                Liste(1, Say) = Veri(i, 1)
                Liste(2, Say) = Veri(i, 2)
                Liste(3, Say) = Veri(i, 3)
                Liste(4, Say) = Veri(i, 4)
                Liste(5, Say) = Veri(1, Kolon(k))
                Liste(6, Say) = Veri(i, Kolon(k))
            End If
        Next k
    Next i
    Range("A1").Resize(Say, 6) = Application.Transpose(Liste)
End Sub

 

[aras90]

Aşağıdaki kodu, dosyanızdaki Sayfa2 yanbi sonuçları alacağınız sayfanın kod penceresine yapıştırın.
Sayfayı her açtığınızda sonuçları oluşturur.
Sütun Sayısını arttırmak isterseniz, Kolon=Array( yazan kısıma kolon no eklemeniz yeterli

Private Sub Worksheet_Activate()
    Dim Liste()
    Cells.Clear
    Veri = Worksheets("Sayfa1").Range("A1").CurrentRegion.Value
    Kolon = Array(11, 13, 16, 17)
    For i = 2 To UBound(Veri)
        For k = 0 To UBound(Kolon)
            If Veri(i, Kolon(k)) > 0.75 Then
                Say = Say + 1
                ReDim Preserve Liste(1 To 6, 1 To Say)
                Liste(1, Say) = Veri(i, 1)
                Liste(2, Say) = Veri(i, 2)
                Liste(3, Say) = Veri(i, 3)
                Liste(4, Say) = Veri(i, 4)
                Liste(5, Say) = Veri(1, Kolon(k))
                Liste(6, Say) = Veri(i, Kolon(k))
            End If
        Next k
    Next i
    Range("A1").Resize(Say, 6) = Application.Transpose(Liste)
End Sub

İlginiz için teşekkür ederim. Excel 2013 kullanıyorum kodları Sayfa 2 ye ekledikten sonra kodun en üzerindeki C++: kırmızı yanıyor ve Compile error Expected: expression gibi bir hata alıyorum. Kodlarda C++, çıkarttığımda ise run time error 13 type missmatch hatası veriyor

>>>>>>>>>>>>>ÖRNEK DOSYAM BURADA <<<<<<<<<<<<<<<<

 

[ÖmerFaruk]

C++ kısmını kopyalamayacaksınız.
Kod penceresinde en üstte
Private Sub satırı olacak.

 

[aras90]

C++ kısmını kopyalamayacaksınız.
Kod penceresinde en üstte
Private Sub satırı olacak.

O şekilde de denedim kodu ekleyip Sayfa2'ye girdiğimde run time error 13 type missmatch hatası aldım acaba örnek dosyada denemeniz mümkün olabilir mi? sorun benden kaynaklanıyor sanırım yada Excel 2013 için uygun olmayabilir mi?

 

[aras90]

C++ kısmını kopyalamayacaksınız.
Kod penceresinde en üstte
Private Sub satırı olacak.

Çalıştı teşekkürler peki son bir güncelleme yapıp ilk 2 hücreleri almaması mümkün mü? Orada sadece başlıklar oluyor. Örneğin A1 ve A2 dahil sağ tarafı komple almasın A3 ve yan tarafından başlasın gibi

 

[ÖmerFaruk]

Yazdığınız - verdiğiniz örnek - dosyanız
Üçüne bakıyorum isteğinizi anlamıyorum

A1 ve A2 nin sağ tarafını komple almasın derken ilk 2 satıra bakmasın 3.satırdan başlasın mı istiyorsunuz?

Eğer böyleyse lütfen sorunuzu Excel gibi söyleyin.
İlk iki hücre değil ilk iki satır
Ve başka bir isteğiniz varsa toptan söyleyin.

 

[aras90]

Yazdığınız - verdiğiniz örnek - dosyanız
Üçüne bakıyorum isteğinizi anlamıyorum

A1 ve A2 nin sağ tarafını komple almasın derken ilk 2 satıra bakmasın 3.satırdan başlasın mı istiyorsunuz?

Eğer böyleyse lütfen sorunuzu Excel gibi söyleyin.
İlk iki hücre değil ilk iki satır
Ve başka bir isteğiniz varsa toptan söyleyin.

Çok teşekkür ederim ona da gerek kalmadı çok güzel çalışıyor elinize sağlık