Bom dia, gostaria de saber como poderia preencher uma planilha em VBA com estruturas condicionais. Minha ideia, por exemplo, é preencher a linha 16, das colunas 4 a 10 enquanto essas estiverem vazias. Dessa forma, o programa deve rodar a partir da célula (16; 4) até (16; 10) de forma que seja preenchida a primeira célula encontrada com a informação enviada. Se a condição for falsa, ou seja, todas essas células estão previamente preenchidas, nada acontece. Até o momento consegui o código a seguir:
i = 16
Do While hor = False
Cells(i, 2).Select
If CBHORARIO.Text = Cells(i, 2).Text Then
ActiveCell.Offset(0, 2).Activate
hor = True
bele = False
For c = 4 To 10
Cells(i, c).Select
If ActiveCell.Value = "" Then
bele = True
ActiveCell.Value = TBCPF.Value
End If
Next c
End If
i = i + 1
Loop
Atenciosamente,
Caio Q.
