Como Cambiar Formato de Número
Que tal Amig@s
Dado que soy nuevo en VBA, Estoy tratando de que al escribir números 1,2,3...me cambien automáticamente al formato "001","002","003"...Los estoy haciendo con la función: "=TEXT(RC[-6],""000"")", pero como tengo bastantes datos, se tarda mucho en realizarlo. las instrucciones que uso son:
Private Sub CommandButton1_Click() 'Macro para Normalizar Municipio i = 1 A = WorksheetFunction.CountA(Range("B:B")) ' FUNCIÓN PARA CONTAR CELDAS CON VALORES Do While i < A Range("B:B").Select With Selection.Interior Hoja4.Cells(i + 1, 8) = "=TEXT(RC[-6],""000"")" Hoja4.Cells(i + 1, 8).Select End With i = i + 1 Loop Columns("H:H").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("H2").Select MsgBox ("MUNICIPIO Normalizado con exito!!!") End Sub
Si alguien tuviera otra funcion y de mejor manera de que no se tarde al realizar este proceso.
1 Respuesta
Respuesta de Dante Amor
1