koşullu temizleme

[incsoft]

Arkadaşlar ekteki dosyamda mesela P1340 aralığında olup içeriği Tip Değişikliği , Üretim Planlama , Tip Değişikliği , KABA TORNALAMA olmayanları nasıl temizletebilirim mesela? Dosyam direk temizlemektedir.

 

[Haluk]

Private Sub CommandButton1_Click()
    Dim sifre, myRng As Range
    sifre = InputBox("Lütfen Şifre Giriniz")
    If sifre = "123" Then
        For Each myRng In Range("P13:P40")
            If myRng <> "KABA TORNALAMA" And myRng <> "Üretim Planlama" And myRng <> "Tip Değişikliği" Then
                myRng = Empty
            End If
        Next
    Else
        MsgBox "Hatalı Şifre İzinsiz İşleme Müsaade Edilemez", vbCritical, "INCSOFT"
    End If
End Sub

.

 

[incsoft]

Private Sub CommandButton1_Click()
    Dim sifre, myRng As Range
    sifre = InputBox("Lütfen Şifre Giriniz")
    If sifre = "123" Then
        For Each myRng In Range("P13:P40")
            If myRng <> "KABA TORNALAMA" And myRng <> "Üretim Planlama" And myRng <> "Tip Değişikliği" Then
                myRng = Empty
            End If
        Next
    Else
        MsgBox "Hatalı Şifre İzinsiz İşleme Müsaade Edilemez", vbCritical, "INCSOFT"
    End If
End Sub

.

Private Sub CommandButton15_Click()
Dim sifre, myRng As Range
sifre = InputBox("Lütfen Şifre Giriniz")
If sifre = "123" Then
For Each myRng In Range("Q3:Q11;Q13:Q40;Q42:Q73;Q83:Q132")
If myRng <> "KABA TORNALAMA" And myRng <> "Üretim Planlama" And myRng <> "Tip Değişikliği" And myRng <> "Periyodik Bakım" Then
myRng = Empty
Range("M3:N11").Select
Selection.ClearContents
Range("P311").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=3
Range("M13:N40").Select
Selection.ClearContents
Range("P1340").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=24
Range("M42:N73").Select
Selection.ClearContents
Range("P4273").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=51
Range("M83:N138").Select
Selection.ClearContents
Range("P83138").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-120
Range("W4:X9").Select
Selection.ClearContents
Range("Z4:Z9").Select
Selection.ClearContents
Range("AB4:AB14").Select
Selection.ClearContents
Range("AD4:AD24").Select
Selection.ClearContents
Range("AF4:AF24").Select
Selection.ClearContents
Range("Z13:Z15").Select
Selection.ClearContents
Range("AA20").Select
Selection.ClearContents
Range("AC33:AD36").Select
Selection.ClearContents
Range("P1:Q1").Select
If numlock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}"
Else
MsgBox "Hatalı Şifre İzinsiz İşleme Müsaade Edilemez", vbCritical, "INCSOFT"
End If
End Sub


bu şekilde uyarladım ancak Compile error : For without Next hatası veriyor neden acaba?

 

[Haluk]

bu şekilde uyarladım ancak Compile error : For without Next hatası veriyor neden acaba?

Sorunun cevabı hata mesajında yazıyor.... "Next" ilave etmemişiniz.

Ayrıca; kodlarınızda devamlı yazdığınız;

If numlock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}"

kısmı da mantıksız...

.

 

[incsoft]

Sorunun cevabı hata mesajında yazıyor.... "Next" ilave etmemişiniz.

Ayrıca; kodlarınızda devamlı yazdığınız;

If numlock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}"

kısmı da mantıksız...

.

size zahmet olmazsa hocam doğru şekilde uyarlayabilirmisiniz?

 

[Haluk]

Örnek dosyanızı eklerseniz, birisi yardımcı olur...

.

 

[incsoft]

Örnek dosyanızı eklerseniz, birisi yardımcı olur...

.