Skip to main content

Estoy realizando una tarea para la universidad y me encuentro con el siguiente ejercicio:

"Cree un macro en VBA el cual usando un ciclo For, en la última hoja del libro a partir de la celda A1 hacia la derecha, hacia abajo y en diagonal llene las celdas con los valores del 1 al 5"

A partir de esto, llegué al siguiente resultado que debería funcionar, pero cuando ejecuto la macrosmacro me dice Error: Error de compilación: calificador no valido. ¿Donde ¿Donde podría estar mi error?

Sub CicloFor()

Sheets(Sheets.Count).Select [A1].Select Dim x As Byte

Sub CicloFor()
    Sheets(Sheets.Count).Select
    [A1].Select
    Dim x As Byte

    For x = 1 To 5
        ActiveCell.Value = x
        ActiveCell.Offset(1, 0) = x.Select
    Next x

    [A1].Select
    For x = 1 To 5
        ActiveCell.Value = x
        ActiveCell.Offset(0, 1) = x.Select
    Next x

    [A1].Select
    For x = 1 To 5
        ActiveCell.Value = x
        ActiveCell.Offset(1, 1) = x.Select
    Next x
End Sub

End Sub

Estoy realizando una tarea para la universidad y me encuentro con el siguiente ejercicio:

"Cree un macro en VBA el cual usando un ciclo For, en la última hoja del libro a partir de la celda A1 hacia la derecha, hacia abajo y en diagonal llene las celdas con los valores del 1 al 5"

A partir de esto llegué al siguiente resultado que debería funcionar, pero cuando ejecuto la macros me dice Error de compilación: calificador no valido. ¿Donde podría estar mi error?

Sub CicloFor()

Sheets(Sheets.Count).Select [A1].Select Dim x As Byte

For x = 1 To 5
    ActiveCell.Value = x
    ActiveCell.Offset(1, 0) = x.Select
Next x

[A1].Select
For x = 1 To 5
    ActiveCell.Value = x
    ActiveCell.Offset(0, 1) = x.Select
Next x

[A1].Select
For x = 1 To 5
    ActiveCell.Value = x
    ActiveCell.Offset(1, 1) = x.Select
Next x

End Sub

Estoy realizando una tarea para la universidad y me encuentro con el siguiente ejercicio:

"Cree un macro en VBA el cual usando un ciclo For, en la última hoja del libro a partir de la celda A1 hacia la derecha, hacia abajo y en diagonal llene las celdas con los valores del 1 al 5"

A partir de esto, llegué al siguiente resultado que debería funcionar, pero cuando ejecuto la macro me dice: Error de compilación: calificador no valido. ¿Donde podría estar mi error?

Sub CicloFor()
    Sheets(Sheets.Count).Select
    [A1].Select
    Dim x As Byte

    For x = 1 To 5
        ActiveCell.Value = x
        ActiveCell.Offset(1, 0) = x.Select
    Next x

    [A1].Select
    For x = 1 To 5
        ActiveCell.Value = x
        ActiveCell.Offset(0, 1) = x.Select
    Next x

    [A1].Select
    For x = 1 To 5
        ActiveCell.Value = x
        ActiveCell.Offset(1, 1) = x.Select
    Next x
End Sub
Origen Enlace

VBA: Error de compilación, calificador no valido VBA

Estoy realizando una tarea para la universidad y me encuentro con el siguiente ejercicio:

"Cree un macro en VBA el cual usando un ciclo For, en la última hoja del libro a partir de la celda A1 hacia la derecha, hacia abajo y en diagonal llene las celdas con los valores del 1 al 5"

A partir de esto llegué al siguiente resultado que debería funcionar, pero cuando ejecuto la macros me dice Error de compilación: calificador no valido. ¿Donde podría estar mi error?

Sub CicloFor()

Sheets(Sheets.Count).Select [A1].Select Dim x As Byte

For x = 1 To 5
    ActiveCell.Value = x
    ActiveCell.Offset(1, 0) = x.Select
Next x

[A1].Select
For x = 1 To 5
    ActiveCell.Value = x
    ActiveCell.Offset(0, 1) = x.Select
Next x

[A1].Select
For x = 1 To 5
    ActiveCell.Value = x
    ActiveCell.Offset(1, 1) = x.Select
Next x

End Sub