.........AR....AS......AT........AU..........AV........AW.........AX........AY.......AZ
38............................................................................podatki
39................................................ura-2...ura-1.....ura.....ura+1....ura+2
40....MAX.......at..........datum+ura
41....MIN........at..........datum+ura
42
43
V celico AU40 želim zapisati datum+uro najvišje spremembe, v celice od AV40 do AZ40 pa vrednosti iz celice BF.
V celico AU41 pa želim zapisati datum+uro najnižje spremembe, v celice od AV41 do AZ41 pa vrednosti iz celice BF. Če pa imam več enakih najnižjih vrednosti pa jih zapišem v celice AU42, AU43,...
Trenutno sem za to nalogo uporabil naslednjo kodo:
Koda: Izberi vse
Dim konec_na_listu As Long
Dim zadetki As Integer
zadetki = 0
konec_na_listu = Range("BN65536").End(xlUp).Row
For iscimax = 1 To konec_na_listu
If (Range("AR40") = Range("BN" & iscimax)) Then
Range("AX40") = Range("BF" & iscimax)
Range("AV40") = Range("BF" & iscimax - 2)
Range("AW40") = Range("BF" & iscimax - 1)
Range("AY40") = Range("BF" & iscimax + 1)
Range("AZ40") = Range("BF" & iscimax + 2)
Range("AU40") = Range("BI" & iscimax)
End If
Next
For iscimin = 1 To konec_na_listu
If (Range("AR41") = Range("BN" & iscimin)) Then
Range("AX" & zadetki + 41) = Range("BF" & iscimin)
Range("AV" & zadetki + 41) = Range("BF" & iscimin - 2)
Range("AW" & zadetki + 41) = Range("BF" & iscimin - 1)
Range("AY" & zadetki + 41) = Range("BF" & iscimin + 1)
Range("AZ" & zadetki + 41) = Range("BF" & iscimin + 2)
Range("AU" & zadetki + 41) = Range("BI" & iscimin)
zadetki = zadetki + 1
End If
Next
Koda: Izberi vse
For stej = 3 To 5000
If (Range("AR41") = Range("BN" & stej)) Then
test = test + 1
End If
Next
Range("AU31") = test
Že v naprej se vam zahvaljujem za odgovor.
Lep pozdrav, Loris