28/03/2006, 08:22
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 170
Antigüedad: 18 años, 5 meses Puntos: 1 | |
| Posible solución
He buscado por ahí y no he encontrado nada útil.
He hecho alguna prueba con las ideas que te había comentado y para la primera valdría este código que debes colocar en lazona de código de la hoja en cuestión:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B10") = 10 Then
MsgBox ("NO han introducido línea")
Else
num_fila = ActiveCell.Row
While Cells(num_fila, 2).Value = ""
num_fila = num_fila + 1
Wend
prueba = MsgBox(ActiveCell.Row, vbOKOnly, "Nº de la fila donde se inserta")
prueba1 = MsgBox(num_fila - ActiveCell.Row, vbOKOnly, "Nº de filas introducidas")
End If
End Sub
Suponiendo que la celda B10 tenga el valor 10.
La segunda idea que te he comentado es un poco más compleja ya que no había tenido en cuenta la advertencia que te hace excel antes de permitirte introducir una línea que haga que se elimine información de la hoja.
Espero que te sirva.
__________________
El sabio no dice nunca todo lo que piensa,
pero siempre piensa todo lo que dice.
Aristóteles :pensando: |