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
1 Respuesta
Respuesta de Victor Rodriguez
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
