- Katılım
- 9 Aralık 2006
- Mesajlar
- 134
- Excel Vers. ve Dili
- microsoft office professional plus 2010 TR
aşağıda yazdığım koda kırmızı ile renklendirilmiş son kodu eklemek istediğimde e7 hücresini seçmiyor bunu nasıl yapabilirim
Kod:
Sub DÜZENLE_Click()
If WorksheetFunction.CountA(Range("C8:C600")) - WorksheetFunction.CountIf(Range("F8:F600"), "tamam") = 0 Then
With ActiveSheet
.AutoFilterMode = False
.Range("A7:I7").AutoFilter
ActiveSheet.Range("$A$7:$I$600").AutoFilter Field:=9, Criteria1:=">0", _
Operator:=xlAnd
Range("h7").Select
End With
ElseIf WorksheetFunction.CountA(Range("C8:C600")) - WorksheetFunction.CountIf(Range("F8:F600"), "tamam") > 0 Then
Cells.Replace What:=" TL", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Range("c8").Select
For i = 1 To WorksheetFunction.CountA(Range("C8:C600"))
Application.SendKeys ("{F2}")
Application.SendKeys ("{enter}")
Next i
ActiveSheet.Range("$A$7:$I$106").AutoFilter Field:=6, Criteria1:="YANLIŞ"
[COLOR="Red"]Range("e8").Select[/COLOR]
End If
End Sub
