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
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
0