Numeracion de Celdas en excel con un click
Con todos porfavor quisiera que me ayuden con una macro para numerar celdas aleatorias con un prefijo:
1ro: Ingrese Prefijo: Item
2do Ingrese Numero inicial: 21.00
3ro Ingrese Constante: 0.01
4to paso seria el proceso de numeracion en cualquier celda
Ejemplo Ceda B2= Item 21.00
Celda D5= Item 21.01
Celda F20= Item 21.02
Y si sucecivamente hasta darle Esc para terminar el proceso.
Visita:
Cursos de Excel y Macros - YouTube
Pon lo siguiente en los eventos donde quieres que funcione.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por Dante Amor
Dim prex As Variant
Dim inix As Variant
Dim conx As Variant
Dim valor As Double
Application.OnKey "{ESC}", "salir"
Application.OnKey "+{ESC}", "entrar"
If Módulo1.prefijo = "esc" Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Módulo1.prefijo = "" Then
prex = Application.InputBox("Ingrese Prefijo:")
If prex = False Then
Exit Sub
End If
inix = Application.InputBox("Ingrese Prefijo:", Type:=1)
If inix = False Then
Exit Sub
End If
conx = Application.InputBox("Ingrese Prefijo:", Type:=1)
If conx = False Then
Exit Sub
End If
Módulo1.prefijo = prex
Módulo1.inicial = inix
Módulo1.constan = conx
Módulo1.acumula = inix
ActiveCell.Value = Módulo1.prefijo & " " & Format(acumula, "#.00")
Módulo1.acumula = Módulo1.acumula + conx
Else
ActiveCell.Value = Módulo1.prefijo & " " & Format(Módulo1.acumula, "#.00")
Módulo1.acumula = Módulo1.acumula + Módulo1.constan
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
Pon lo siguiente en el Módulo1:
Option Explicit Public prefijo As String Public inicial As Long Public constan As Double Public acumula As Double Sub salir() prefijo = "esc" End Sub Sub entrar() prefijo = "" End Sub
Funcionamiento:
1. Selecciona una celda de la hoja, captura el prefijo, el inicio y la constante.
2. Empieza a seleccionar celdas
3. Para terminar, presiona la tecla Escape
4. Si quieres otra vez empezar, presiona las teclas Shift + Escape
Recomendaciones:
Consejos y trucos de excel para mejorar la presentación de tus datos. - YouTube
Macros metodo find. Curso de macros - YouTube
Consejos para desarrollar macros . curso de excel, curso de macros, excel, macros - YouTube
