DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
[FONT="Trebuchet MS"][SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)
Dim son%, maks%, i%, yaz$
If Target.Column <> [COLOR="Magenta"]3 [/COLOR]Then Exit Sub
[COLOR="DarkOrange"]son [/COLOR]= Range("C65536").End(3).Row
[COLOR="Blue"]maks [/COLOR]= WorksheetFunction.[COLOR="red"]max[/COLOR](Range("C2:C" & [COLOR="DarkOrange"]son[/COLOR]))
For i = 2 To [COLOR="DarkOrange"]son[/COLOR]
If Cells(i, 3).Value = [COLOR="blue"]maks [/COLOR]Then
yaz = yaz & Cells(i, 2).Value & "-"
End If
Next i
Range("D2") = [COLOR="red"]Left[/COLOR](yaz, [COLOR="red"]Len[/COLOR](yaz) - 1)
yaz = "": i = Empty: maks = Empty: son = Empty
End Sub[/SIZE][/FONT]
Osman Bey'den elimizde kalmadı.