Sayısal sonucunu tahmin listesinden tarama

[Muhammet Okumuş]

Sub ara()
Application.ScreenUpdating = False
Dim i As Long
For i = 2 To 13
Range("t2") = 0
Range("t2") = i
Range("i3:i420") = "=sumproduct(--isnumber(match(indirect(""A""&T$2&"":F""&T$2),K22,0)))"
Range("h" & i) = WorksheetFunction.Max(Range("i3:i420"))
Range("i3:i420") = ""
Next
End Sub

kodu ile değiştiriniz.

 

[snx111]

Bişey değişmedi malesef ; i satırına rakam gelip siliniyor başa dönüyor; gece gece uğraştıemayayım isteseniz bi çay için yada dinlemin sayın muokumuş... gereken formülü zaten yazdınız.. gerisini çözerim .

Sagolun varolun.... Teşekkür ederim emeginiz için .

 

[Muhammet Okumuş]

sn snx111 siz hatanın ne olduğu, nerede olduğunu, ne olmalıydı da ne olduğunu ifade ediniz.

 

[snx111]

Sub ara()
Dim x As Long
'Range("t2") = 0
For i = 2 To 20

Range("t2") = i
Range("h" & i & " :h20") = "=sumproduct(--isnumber(match(indirect(""A""&T$2&"":F""&T$2),K2:P2,0)))"
Range("h" & i) = WorksheetFunction.Max(Range("h" & i & ":h20"))
Range("h" & i + 1 & ":h20") = ""
Next
End Sub

bu makronuzun işi bitince ; sonuçlar sütunundaki 2 ci sonucu araması gerekiyordu .1 ci sonucu arayıp bırakıyor.
2 cide bitince 3 cü taa sona kadar .. teşekkür ederim ...
kızmıyorsunuzdur umarım :?

 

[Muhammet Okumuş]

Evet o makroda hata olduğu anladım ve diğer makroyu yazdım. Peki diğer makroda sorun var mı? Tahminlerinizin birbirine yakın sayılar olması acaba sizi yanıltıyor olabilir mi?

 

[Muhammet Okumuş]

#21 nolu mesajdaki makroyu deneyiniz.

 

[snx111]

Son makronuzda dogru çalışıyor ; eski veriler silinmediği için değişiklik olmamış gibi görünüyormuş ;
tamam buraya kadar güzel ; şimdi lazım olan
şu ; son makro sadece k22 yi tarıyor ve en büyük tutan sonuçları h sütununa yazıyordu ; makro burda bitiyordu ama devam etmeli k33 çüde aynı şekilde taramalı taaa k2020 ye kadar . bitene kadar yani aynı işlemi yapmalı ; sonucuda h sütununa degil boş olan j sütununa yazabilir

 

[Muhammet Okumuş]

Hocam bunu artık sabah yanıtlamaya çalışayım. Artık beyin durdu, gözler çöktü. Size iyi geceler.

 

[snx111]

Kalanı Halledebilirim eline sağlık zor olanı çözdün zaten ..sağol iyi geceler

 

[Muhammet Okumuş]

Merhaba,
Range("i3:i420") = "=sumproduct(--isnumber(match(indirect(""A""&T$2&"":F""&T$2),K2 2,0)))"
Range("h" & i) = WorksheetFunction.Max(Range("i3:i420"))
bu kod zaten i=2 için, 2. sıradaki tahmininizi bütün sonuçlarda tarıyor ve maksimum doğru tahmini h sütununa yazıyor.
i sütunu için
Range("i3:i420") = "=sumproduct(--isnumber(match(indirect(""A""&T$2&"":F""&T$2),K2 2,0)))"
Range("i" & i) = WorksheetFunction.Max(Range("i3:i420"))
şeklinde yapınız.