Visual Basic para Aplicaciones - problema delete

Life is soft - evento anual de software empresarial
   
Vista:

problema delete

Publicado por pablo (48 intervenciones) el 22/11/2007 16:31:10
hola amigos de la web:
Tengo un problema con esta routine. El funcionamiento es muy simple me pongo en una celda de A, ponele que diga silla, cuando tecleo esta borra toda la fila y cancela con offset(0,3) una funcion asi evito el famoso error del #RIF!. Hasta aca todo bien mi unico problema que en esa lista tengo silla total, que me dice cuantas sillas hay querria que si por error la quisiera eliminar me lo impida.

silla
silla total

Application.ScreenUpdating = False
Dim x As String
Dim r
Dim presenzes
x = ActiveCell.Value
ActiveCell.EntireRow.Select
presenzes = Application.CountIf(Range("A1:A10000"), x)
If Selection.Delete = True And presenzes = 1 Then
ActiveCell.Offset(0, 3).ClearContents
Else
Exit Sub
End If
Application.ScreenUpdating = True
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder