Limitar Pegado Excel
Private Sub CommandButton1_Click()
'Por.DAM
'obtener la última fila de la columna A
u = Range("A" & Rows.Count).End(xlUp).Row + 1
If u < 8 Then u = 8 'si la ultima fila es menor a 8 entonces u = 8
Cells(u, "A") = TextBox1
End Sub
Utilizando Esta formula pego Datos Desde un formulario..
Co hacer Algo por ejemplo que Cuando ya haya Agregado 14 filas
No me Deje Agregar mas
..
Es decir
un código Que haga Esto,,
Rango A8 Al Rango A22
Que intenta agregar Algo en el 23 Salga un letrero que diga solo se pueden digitar Máximo 14 GRacias
1 Respuesta
Respuesta de Dante Amor
1
Quedaría así
Private Sub CommandButton1_Click()
'Por.DAM
'obtener la última fila de la columna A
u = Range("A" & Rows.Count).End(xlUp).Row + 1
If u < 8 Then u = 8 'si la ultima fila es menor a 8 entonces u = 8
If u = 23 Then
MsgBox "Sólo se pueden digitar Máximo 14 "
Exit Sub
End If
Cells(u, "A") = TextBox1
End Subsaludos.DAM
