[Albino]

Muito boas

Hoje tenho um problemazinho que é o seguinte:

Adaptei um Código VBA para a gravação de dados de varias ComboBox na Folha de Excel, acontece que de um momento para o outro começou a gravar duas linhas seguidas iguais.

O que poderá ter acontecido??

O código é o seguinte:

Private Sub CommandButton1_Click()

Folha5.Select

Folha5.Range(“C3”).Select

For i = 1 To (ComboBox1.ListCount – 1)

Do

If Not (IsEmpty(ActiveCell)) Then

ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = TextBox1.Value

ActiveCell.Offset(0, 1) = TextBox2.Value

ActiveCell.Offset(0, 2) = ComboBox3.Value

ActiveCell.Offset(0, 3) = ComboBox2.Value

ActiveCell.Offset(0, 4) = ComboBox1.Value

ActiveCell.Offset(0, -1) = Format(Now)

Next

End Sub

 

Obrigado

[Autor]

Artigos