Hola, soy nuevo en Macros, VBA y Kutools.

Estoy ejecutando una macro para extraer texto y luego números en celdas separadas. Kutools funciona bien cuando lo ejecuto, sin embargo, cuando sigo el mismo proceso para crear una macro, aparece un mensaje de error:

Windows("KutoolsHelper.xlam").Visible = Verdadero

Aquí parece ser donde ocurre el error en la depuración.

He agregado Kutoolsforexcel en Herramientas/Referencia


Sub ConvetYardsToMiles()
'
' Macro Convertir Yardas A Millas
'

'
Columnas("I:I").Seleccione
Selection.Copy
Selección.Insertar Mayús:=xlADerecha
Application.CutCopyMode = False
Selection.Copy
Selección.Insertar Mayús:=xlADerecha
Columnas("J:J").Seleccione
Windows("KutoolsHelper.xlam").Visible = Verdadero
ActiveWindow.Visible = Falso
Columnas("K:K").Seleccione
Windows("KutoolsHelper.xlam").Visible = Verdadero
ActiveWindow.Visible = Falso
ActiveWindow.Pequeño desplazamiento hacia la derecha: = 1
Rango ("L2"). Seleccione
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Rango ("L2"). Seleccione
Selection.AutoFill Destination:=Rango("L2:L832")
Rango("L2:L832").Seleccione
Columnas("L:L").Seleccione
Selection.NumberFormat = "0.00 Millas"
Columnas("L:L").Seleccione
Columnas("L:L").EntireColumn.AutoFit
Selección.AnchoColumna = 14.91
Rango ("L1"). Seleccione
ActiveCell.FormulaR1C1 = "Millas recorridas"
Rango ("L2"). Seleccione
ActiveWindow.SmallScroll ToRight:=-1
Columnas("H:K").Seleccione
Selection.EntireColumn.Hidden = Verdadero
ActiveWindow.SmallScroll ToRight:=-4
Columnas("L:L").Seleccione
Con selección
.Alineación Horizontal = xlGeneral
.VerticalAlignment = xlCentro
.Orientación = 0
.AddIndent = Falso
.Nivel de sangría = 0
.ShrinkToFit = Falso
.OrdenLectura = xlContexto
.MergeCells = Falso
End With
Con selección
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCentro
.Orientación = 0
.AddIndent = Falso
.Nivel de sangría = 0
.ShrinkToFit = Falso
.OrdenLectura = xlContexto
.MergeCells = Falso
End With
Filas("1:1").Seleccionar
Rango("C1").Activar
Selección.Fuente.Negrita = Falso
Selección.Fuente.Negrita = Verdadero
Con Selección.Fuente
.Nombre = "Arial"
.Tachado = Falso
.Superíndice = Falso
.Subíndice = Falso
.OutlineFont = Falso
.Sombra = Falso
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNinguno
End With
Con Selección.Fuente
.Nombre = "Arial"
.Tamaño = 12
.Tachado = Falso
.Superíndice = Falso
.Subíndice = Falso
.OutlineFont = Falso
.Sombra = Falso
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNinguno
End With
Con selección
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCentro
.WrapText = Falso
.Orientación = 0
.AddIndent = Falso
.Nivel de sangría = 0
.ShrinkToFit = Falso
.OrdenLectura = xlContexto
.MergeCells = Falso
End With
End Sub