• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ıf else

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
 
end sub satırından önce yazın ve seçmek istediğin hücre e7 mi e8 mi.

.
 
if else

end sub satırından önce yazın ve seçmek istediğin hücre e7 mi e8 mi.

.

sayın hocam
dediğiniz şekilde de denedim lakin sonuç değişmediği için dosya eklemeyi uygun gordüm. ;Düzenle makrosu çalıktıktan sonra e7 hücresini seçsin istiyorum
 
Geri
Üst