6 sütün da bulunan hücrelerden işlem gören 3ve üzeri olanları listelemek

Katılım
29 Ekim 2010
Mesajlar
365
Excel Vers. ve Dili
Microsoft Office 365 ProPlus 64 bit
Altın Üyelik Bitiş Tarihi
31-05-2024
Koşullu biçim6 sütün da bulunan hücrelerden işlem gören 3ve üzeri olanları listelemek

üstadlar başalıkta bahsetmeye çalıştığım gibi bir sorunum mevcut kısaca özetlemek gerekir ise 6 adet işlem gören hücrem fakat 6 sı çok nadir değer görmüş ben 6 hücreden 3 tanesi işlem gördüyse karşımda liste olarak görmek istiyorum konu hakkında yardımcı olabilir misiniz. (1 ay 2ay 3 ay 4 vs ay sütünundaki hücrelere bu işlemi yapmak istiyorum)
 
Son düzenleme:

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
Anlatmak istediğinizi örnek dosya ile destekleyiniz...
 

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
Kusura bakmayın sizin konuyu atlamışım... :oops:

Aşağıdaki kodları kullanabilirsiniz.
3 ve daha fazla işlem görenlerden A,B ve S sütunlarını U sütunundan itibaren listeledim...

Kod:
[SIZE="2"]Sub Emre()
    Application.ScreenUpdating = False
    Dim satir As Integer
    Columns("V:Y").ClearContents
    Columns("T:T").Select
    Selection.Font.ColorIndex = 2
    Range("T2").Select
    ActiveCell.FormulaR1C1 = "=COUNTA(RC[-7]:RC[-2])"
    Range("T2").Select
    Selection.AutoFill Destination:=Range("T2:T61"), Type:=xlFillDefault
    Range("T1").Select
    For satir = 2 To Range("A65536").End(3).Row
    If Cells(satir, 20) >= 3 Then
    Range("U65536").End(3)(2, 1) = Cells(satir, 1)
    Range("V65536").End(3)(2, 1) = Cells(satir, 2)
    Range("W65536").End(3)(2, 1) = Cells(satir, 19)
    End If
    Next satir: satir = Empty
    Columns.AutoFit
    Application.ScreenUpdating = True
End Sub[/SIZE]
 
Katılım
29 Ekim 2010
Mesajlar
365
Excel Vers. ve Dili
Microsoft Office 365 ProPlus 64 bit
Altın Üyelik Bitiş Tarihi
31-05-2024
Murat Bey ,

ilginiz için çok teşekkür ederim makro konusunda çok yeniyim ,yaptığım işlemi kısaca anlatayım vermiş olduğunuz kodu sayfada kod görüntüle deyip 1sayfayı seçip üstteki kutucu Worksheet ayarlayıp sizin verdiğiniz kodu yapıştırdım ve run tuşu ile çalıştır dedım sonra excell sayfama geldim U ,V W Diye sutunlar oluşmuş bu şekilde işimize yaramayacak benim yapmak istediğim ilk eklediğim excell sayfasında bulunan M,N,O,Q,P,R Stünlarında bulunan aşağıdaki sıralı değerler de örnek bir malzeme son 6 ay da m ve q (yada diğer sutunlarda 6 ayda 2kere işlem gördüyse ) kod yazıldıktan sonra çıkacak olan satırda 0 olarak yer bulsun ,eğer bir malzeme 6 ayda 3.veya 4. .5. 6. aylarda işlem gördüyse kod yazıldıktan sonra çıkacak olan satırda 1 olarak yer bulsun istiyorum .

işin açıkçası ben ambarım da sürekli işlem gören parçaları tutmaya çalışıyorum 1 mal ayda 2kere işlem gördüyse o malı ambar da tutup yer işgal etmeye gerek duymuyorum bunun için 6ay da 3 ve üzeri olan parçalara yoğunlaştım.

emeğiniz için şimdiden çok teşekkür ederim .
 

Ekli dosyalar

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
Gönderdiğiniz resim çok küçük net göremiyorum..
Bir de lütfen mesajda anlattıklarınızı örnek üzerinde anlatır mısınız ?
 
Katılım
29 Ekim 2010
Mesajlar
365
Excel Vers. ve Dili
Microsoft Office 365 ProPlus 64 bit
Altın Üyelik Bitiş Tarihi
31-05-2024
Murat Bey,

siteden kaynaklanıyoru sanırım resimlerin küçük görün mesi.

Örnek dosyayı resimledim ilginiz için ayrıca teşekkürler.konuyu az daha geliştirirmek mümkünmüdür 1 0 metedu yeterli ama tam detaya inecek olur isek 3 işlem gören parçaya 1 4 işlem görene 2 5 işlem görene 3 6 işlem görene 4 te verebilir miyiz.




Uploaded with ImageShack.us
 

Murat OSMA

Altın Üye
Altın Üye
Katılım
23 Mayıs 2011
Mesajlar
5,508
Excel Vers. ve Dili
Microsoft 365 TR-EN
Altın Üyelik Bitiş Tarihi
31-12-2028
Beni aklım ermez öyle işlere...
 
Katılım
29 Ekim 2010
Mesajlar
365
Excel Vers. ve Dili
Microsoft Office 365 ProPlus 64 bit
Altın Üyelik Bitiş Tarihi
31-05-2024
Evet epey karmaşık bir sistem bir yorumunuz varmı bugibi bir problemi nasıl çözüme kavuşturabiliriz.
 
Katılım
29 Ekim 2010
Mesajlar
365
Excel Vers. ve Dili
Microsoft Office 365 ProPlus 64 bit
Altın Üyelik Bitiş Tarihi
31-05-2024
konu hakkında üstadlar yardım çağrısın da bulunuyorum lütfen yardımcı olabilir misiniz
 
Katılım
29 Ekim 2010
Mesajlar
365
Excel Vers. ve Dili
Microsoft Office 365 ProPlus 64 bit
Altın Üyelik Bitiş Tarihi
31-05-2024
Moderatörler yardım lütfen
 

parametre

Destek Ekibi
Destek Ekibi
Katılım
28 Ocak 2007
Mesajlar
1,585
Excel Vers. ve Dili
ofis 2010 turkce
t2 hucresine bu formulu yaz asagıya dogru kopyala 3 ve uzeri işlem yapanlara h deki degeri yazacaktır kolay gelsin
=EĞER(EĞERSAY(m2:r2;">0")>=3;h2;" ")
h deki degerin yanında işlem sayısınıda gostermek isterseniz eğer
=EĞER(EĞERSAY(m2:r2;">0")>=3;h2&" "&EĞERSAY(m2:r2;">0");" ")
formulunu uygularsınız
 
Son düzenleme:
Katılım
29 Ekim 2010
Mesajlar
365
Excel Vers. ve Dili
Microsoft Office 365 ProPlus 64 bit
Altın Üyelik Bitiş Tarihi
31-05-2024
hocam tek kelime ile harikasın çok teşekkür ederim bu kadar kolay sonuç a ulaşabileceğime inanmıyorum helal olsun ...
 
Üst