Macro no me funciona y no se donde esta el error

Intento hacer una macro con tres variables, la variable sera el numero de columna que ira aumentando según sea necesario, pero no se como va el código intento hacer es un código que se repita hasta que la variable grupo sea igual a cero.

Sub recorrecol()
Dim col As Integer
Dim name As String
Dim grupo As Integer
b = ActiveSheet.name
col = 4
name = Sheets(b).Cells(3 & col)
grupo = Sheets(b).Cells(col & 2)
If grupo > 1 Then
Range(grupo).Select
Sheets("Sheet1").Select
    Range("A2").Select
    col = col + 1
End If
End Sub
Respuesta
1

Prueba así:

Sub recorrecol()
Dim col As Integer
Dim name As String
Dim grupo As Integer
b = ActiveSheet.name
col = 4
name = Sheets(b).Cells(3 , col)
grupo = Sheets(b).Cells(col , 2)
If grupo > 1 Then
Range(grupo).Select
Sheets("Sheet1").Select
    Range("A2").Select
    col = col + 1
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas