Veriyi Alt Alta Çekmek

[ahmetyildirim12456]

Herkese iyi akşamlar. Bir kaç firmanın fiyat teklifi verdiği bir ihale var. Bu firmaların en düşük fiyat verdikleri kısımlar onun kazandığı oluyor. Mesela ekleyeceğim listede B firması 1,2,5,ve 9 uncu kısımları kazanıyor, ben de B firması için ikinci durumdaki gibi B firmasının kazandığı kısımlar için diğer firmaların tekliflerini yazdıran bir formül yazmak istiyorum ama işin içinden çıkamadım.

Kısım	A Firması	B firması	C firması	D Firması
1	36	15	19	43	1. DURUM
2	25	10	38	80
3	37	84	47	31
4	23	75	15	82
5	76	11	23	12
6	3	42	87	13
7	73	61	49	67
8	78	41	22	47
9	74	27	35	45
10	55	33	86	67
Kısım	A Firması	B Firması	C Firması	D Firması	2. DURUM
1	36	15	19	43
2	25	10	38	80
5	76	11	23	12
9	74	27	35	45

 

[HücrelereFısıldayanAdam]

Hocam bunun yerine her teklifin sağına bir sütun açıp, KÜÇÜK formülüyle, kaçıncı en küçük olduğunu yazdırıp, renklendirebilirsiniz. veya kaçınçı en büyük olduğu yazdırmadan, sadece renkle de okuyabilirsiniz.
Tablodan bilgi almak daha kolay olmaz mı, bu şekilde bir çok tablo yapmak zorundasınız.

 

[ahmetyildirim12456]

Hocam bunun yerine her teklifin sağına bir sütun açıp, KÜÇÜK formülçıncı en küçük olduğunu yazdırıp, renklendirebilirsiniz. veya kaçınçı en büyük olduğu yazdırmadan, sadece renkle de okuyabilirsiniz.
Tablodan bilgi almak daha kolay olmaz mı, bu şekilde bir çok tablo yapmak zorundasınız.

Hocam dediğiniz gibi küçük formülü, kaçıncı ile en avantajlıyı buluyorum. Veri filtreleme ile de 2. Durumda gösterdiğim hale getirebiliyorum. Bu veriye de başka sayfalarda ihtiyacım oluyor. Benim amacım kopyala yapıştır ile uğraşmadan her firma için bu veriyi formülle çekmek.(Bazen 20 firma ve 1000 teklif satırı bulabiliyor)

 

[necati]

Hocam dediğiniz gibi küçük formülü, kaçıncı ile en avantajlıyı buluyorum. Veri filtreleme ile de 2. Durumda gösterdiğim hale getirebiliyorum. Bu veriye de başka sayfalarda ihtiyacım oluyor. Benim amacım kopyala yapıştır ile uğraşmadan her firma için bu veriyi formülle çekmek.(Bazen 20 firma ve 1000 teklif satırı bulabiliyor)

Merhaba, veri alanı "A1" den başlıyorsa ve MİN() formülü ile sarı renkli koşullu biçimlendirme yaptığınız düşünülerek bir örnek.
Her firmayı ayrı ayrı filtreler ve veri alanının en alt satırından itibaren yapıştırır.

Sub Filtrele_Kopyala()
Dim s1 As Worksheet
Dim ss As Long, cc As Integer, fl As Integer

Application.ScreenUpdating = False

Set s1 = ActiveSheet
ss = s1.Range("a1").CurrentRegion.Rows.Count
renk = RGB(255, 255, 0)   'sarı renk

s1.UsedRange.Offset(ss).Resize(s1.UsedRange.Rows.Count - 1).Clear
    
With ActiveSheet.Cells(1, 1).CurrentRegion
    If s1.AutoFilterMode = False Then .AutoFilter

    cc = s1.AutoFilter.Filters.Count
    Set Rng = s1.AutoFilter.Range

    For fl = 2 To cc
        .AutoFilter Field:=fl, Criteria1:=renk, Operator:=xlFilterCellColor
        ss = s1.UsedRange.Rows.Count
        Rng.Copy Range("a" & ss + 2)
        .AutoFilter Field:=fl
    Next fl
End With

Application.ScreenUpdating = True
MsgBox "Filtrelenler ayrı ayrı kopyalandı", vbInformation

End Sub

 

[Korhan Ayhan]

Merhaba,

Kullandığınız sürüme göre alternatif olarak ekteki dosyayı değerlendirebilirsiniz..

Harici Link (Silinebilir) ; https://dosya.co/il3zbdck97j1/Örnek_Excel.xlsx.html

 

[gy121]

Merhaba,

Kullandığınız sürüme göre alternatif olarak ekteki dosyayı değerlendirebilirsiniz..

Harici Link (Silinebilir) ; https://dosya.co/il3zbdck97j1/Örnek_Excel.xlsx.html

Hocam bu yazdığınız formülü eski versiyon içinde yazma imkanınız var mı? (Ofis 2016)

 

[Korhan Ayhan]

Eski sürümler için F sütununu yardımcı sütun olarak kullandım. İnceleyiniz.

 

[52779]

Hocam bu yazdığınız formülü eski versiyon içinde yazma imkanınız var mı? (Ofis 2016)

Alternatif olarak yardımcı kolon kullanmadan çözüme örnek olsun.

Başlıklar 1. satırda olmak üzere veriler A2 : E11 aralığında.
G2 hücresinde Açılır Liste mevcut. Açılır Listenin Referans aralığı B1 : E1 deki Firma isimleri.
Açılır Listeden Firma seçildiğinde
I2 hücresine yazılıp sağa ve aşağıya doğru kopyalanan formülle I - M kolonlarında seçilen firmanın kazandığı ihalelere yönelik liste oluşur.

=EĞERHATA(İNDİS(A:A;TOPLAMA(15;6;SATIR($A$2:$A$11)/(İNDİS($B$2:$E$11;;KAÇINCI($G$2;$B$1:$E$1;))=ALTTOPLAM(5;KAYDIR($B$2:$E$2;SATIR($B$2:$E$11)-SATIR($B$2);)));SATIRSAY($A$2:$A2)));"")

Kısım​

A Firması​

B firması​

C firması​

D Firması​

Firma SEÇ

Kısım​

A Firması​

B firması​

C firması​

D Firması​

1​

36​

15​

19​

43​

B firması

1​

36​

15​

19​

43​

2​

25​

10​

38​

80​

2​

25​

10​

38​

80​

3​

37​

84​

47​

31​

5​

76​

11​

23​

12​

4​

23​

75​

15​

82​

9​

74​

27​

35​

45​

5​

76​

11​

23​

12​

10​

55​

33​

86​

67​

6​

3​

42​

87​

13​

7​

73​

61​

49​

67​

8​

78​

41​

22​

47​

9​

74​

27​

35​

45​

10​

55​

33​

86​

67​

 

[gy121]

Teşekkürler @Korhan Ayhan , @52779 hocam