Bom dia Senhores,
Estou enrolado para fazer esse Loop.
Que seria ele contar até 10 porém quando chegar em 5 ele desce a linha volta para a coluna inicial e mantem a contagem.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Estrutura de repetição
-
- Colaborador
- Mensagens: 15
- Registrado em: Sex Nov 22, 2019 9:28 am
-
- Colaborador
- Mensagens: 15
- Registrado em: Sex Nov 22, 2019 9:28 am
Re: RESOLVIDO Estrutura de repetição
Resolvido!
Sub RetânguloCantosArredondados1_Clique()
Dim linha, coluna, i As Integer
linha = 1
coluna = 1
For i = 1 To 10
If coluna > 4 Then
coluna = 1
linha = linha + 1
Cells(linha, coluna) = i
coluna = coluna + 1
Else
Cells(linha, coluna) = i
coluna = coluna + 1
End If
Next i
End Sub
Sub RetânguloCantosArredondados1_Clique()
Dim linha, coluna, i As Integer
linha = 1
coluna = 1
For i = 1 To 10
If coluna > 4 Then
coluna = 1
linha = linha + 1
Cells(linha, coluna) = i
coluna = coluna + 1
Else
Cells(linha, coluna) = i
coluna = coluna + 1
End If
Next i
End Sub