- Katılım
- 7 Mayıs 2010
- Mesajlar
- 87
- Excel Vers. ve Dili
- excel 2003
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
With Sheets("Koşullu sıralama")
For sat = 2 To .Range("L1:L65536").End(4).Row
For i = 1 To 3
.Cells(sat, i) = ""
If .Cells(sat, 13) > Range("D1") - 1 Then
.Cells(sat, i) = .Cells(sat, i + 11)
End If
If .Cells(sat, 13) < Range("D1") + 1 Then
If .Cells(sat, 14) > Range("E1") - 1 Then
.Cells(sat, i) = .Cells(sat, i + 11)
End If
End If
Next i
Next sat
.Range("A2:C65536").Sort Key1:=.Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub
anlaşılan hafta sonu kimsenin vakti yok
herkese kolay gelsin