- Katılım
- 29 Ekim 2012
- Mesajlar
- 9
- Excel Vers. ve Dili
- excell 2013
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EĞER(VE(B2<>"";C2<>"");EĞERSAY($B$2:B2;B2);"")
[B][COLOR="blue"][FONT="Trebuchet MS"]Private Sub Worksheet_Change(ByVal Target As Range)[/COLOR][/B]
If Intersect(Target, Range("B2:C" & [D65536].End(3).Row)) Is Nothing Then Exit Sub
If Target.Column = 2 And Cells(Target.Row, 3) = "" Then Exit Sub
If Target.Column = 3 And Cells(Target.Row, 2) = "" Then Exit Sub
If Cells(Target.Row, 2) = "" And Cells(Target.Row, 3) = "" Then
Cells(Target.Row, 1) = "": Exit Sub
End If
üst = WorksheetFunction.CountIf(Range("B2:B" & Target.Row - 1), Cells(Target.Row, 2))
alt = WorksheetFunction.CountIf(Range("B" & Target.Row + 1 & ":B" & [D65536].End(3).Row), Cells(Target.Row, 2))
Cells(Target.Row, 1) = WorksheetFunction.Max(üst, alt) + 1
[B][COLOR="blue"]End Sub[/FONT][/COLOR][/B]