silme işlemi

[XExcel]

örnek dosyada silme işlemi yaptırmak istiyorum.
şimdiden teşekür ederim, elinize sağlık

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub sayilari_sil()
ss = Range("b65536").End(3).Row
For i = 6 To ss
If Application.WorksheetFunction.CountIf(Rows(i), "X") >= 1 Then
For j = 2 To 22
If IsNumeric(Cells(i, j)) Then
Cells(i, j).ClearContents
End If
Next j
End If
Next i
MsgBox "bittim"
End Sub

 

[Orion1]

Dosyanız ektedir.
Merakımı maruz görün.
Hep bu türden işler çıkarıyorsunuz.
Nerede kullanıyorsunuz bunları?

Sub Sil_59()
Dim i As Long, k As Byte
For i = 6 To 500
    If WorksheetFunction.CountIf(Range("B" & i & ":W" & i), "X") > 0 Then
        For k = 2 To 23
            If IsNumeric(Cells(i, k).Value) Then Cells(i, k).Value = ""
        Next k
    End If
Next i
MsgBox "İşlem tamamlandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N "
End Sub

 

[rahmi06]

merhaba

bu kod işinizi görür mü?

Sub sayilari_sil()
ss = Range("b65536").End(3).Row
For i = 6 To ss
If Application.WorksheetFunction.CountIf(Rows(i), "X") >= 1 Then
For j = 2 To 22
If IsNumeric(Cells(i, j)) Then
Cells(i, j).ClearContents
End If
Next j
End If
Next i
MsgBox "bittim"
End Sub

Affınıza sığınarak kod son satırı içermiyor.

Sub sayilari_sil()
ss = Range("b65536").End(3).Row
For i = 6 To ss
If Application.WorksheetFunction.CountIf(Rows(i), "X") >= 1 Then
For j = 2 To 23
If IsNumeric(Cells(i, j)) Then
Cells(i, j).ClearContents
End If
Next j
End If
Next i
MsgBox "bittim"
End Sub

22 sayısını 23 olarak düzelttim.