Anónimo
Consecutivo
Buenas tardes
Quisiera saber como hago para que en una hoja de excel cada que yo le dé guardar o orpimir un botón de acción, en una celda me vaya creando un consecutivo
Agradezco su respuesta
Diego herrera
Quisiera saber como hago para que en una hoja de excel cada que yo le dé guardar o orpimir un botón de acción, en una celda me vaya creando un consecutivo
Agradezco su respuesta
Diego herrera
1 respuesta
Respuesta de d2enri
1
Tienes varias formas una es esta
Sub pasar1()
If [B4] <> "" Then
[B4] = [B4] + 1
Application.ScreenUpdating = True
End If
End Sub
Pegas este código en un modulo y le añades un botón o método abreviado ctrl+ una tecla
Otra opción es al cambiar valor de una celda o al hacer doble clic sobre una celda
Si prefieres esa opción dímelo y te la paso
Si te sirve cierra la pregunta
Sub pasar1()
If [B4] <> "" Then
[B4] = [B4] + 1
Application.ScreenUpdating = True
End If
End Sub
Pegas este código en un modulo y le añades un botón o método abreviado ctrl+ una tecla
Otra opción es al cambiar valor de una celda o al hacer doble clic sobre una celda
Si prefieres esa opción dímelo y te la paso
Si te sirve cierra la pregunta
Buen día
Me gustaría que enviarás la otra opción que sugieres, me serviría mucho más...
Gracias
Me gustaría que enviarás la otra opción que sugieres, me serviría mucho más...
Gracias
Este código lo has de insertar en la hoja que quieras el dato no en un modulo
cada vez que cambie el valor de B5 te añadirá uno
Private Sub Worksheet_Change(ByVal Target As Range)
' casilla que deve cambiar para ejecutar la macro
datos = "B5"
If Not Application.Intersect(Target, Range(datos)) Is Nothing Then
'celda que añadira 1
[B4] = [B4] + 1
Application.ScreenUpdating = True
End If
End Sub
Y este otro te lo añade 1 cada vez que seleccionas la casilla B5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' casilla que deves seleccionar para ejecutar la macro
datos = "B5"
If Not Application.Intersect(Target, Range(datos)) Is Nothing Then
'celda que añadira 1
[B4] = [B4] + 1
Application.ScreenUpdating = True
End If
End Sub
cada vez que cambie el valor de B5 te añadirá uno
Private Sub Worksheet_Change(ByVal Target As Range)
' casilla que deve cambiar para ejecutar la macro
datos = "B5"
If Not Application.Intersect(Target, Range(datos)) Is Nothing Then
'celda que añadira 1
[B4] = [B4] + 1
Application.ScreenUpdating = True
End If
End Sub
Y este otro te lo añade 1 cada vez que seleccionas la casilla B5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' casilla que deves seleccionar para ejecutar la macro
datos = "B5"
If Not Application.Intersect(Target, Range(datos)) Is Nothing Then
'celda que añadira 1
[B4] = [B4] + 1
Application.ScreenUpdating = True
End If
End Sub