Elderdiniz,

Boa Tarde!

Creio que assim resolva:

Private Sub IncluirCarro_Click()
Dim i as Integer

ThisWorkbook.Worksheets("Veiculos").Activate

Range("A2").Select

Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If

Loop Until IsEmpty(ActiveCell) = True

For i = 1 to 10
     If i < = 10 then
          ActiveCell.Value = CD_PLACA_CARRO.Value
          ActiveCell.Offset(0, 1).Value = CD_MARCA_CARRO.Value
          ActiveCell.Offset(0, 2).Value = CD_MODELO_CARRO.Value
          ActiveCell.Offset(0, 3).Value = CD_ANO_CARRO.Value
          ActiveCell.Offset(0, 4).Value = CD_COR_CARRO.Value

          'Limpar botoes
          CD_PLACA_CARRO.Value = Empty
          CD_MARCA_CARRO.Value = Empty
          CD_MODELO_CARRO.Value = Empty
          CD_ANO_CARRO.Value = Empty
          CD_COR_CARRO.Value = Empty

          CD_PLACA_CARRO.SetFocus
     Else
          MsgBox "Não é possível efetuar mais de 10 Cadastros!", vbCritical, "ERRO"
          Exit Sub
     End If
Next
End Sub

Wagner

O código que me passou já esta ajudando muito, mas os valores não estão sendo incluídos na tabela.

Desde já obrigado

Ok.

Compacte com ZIP seu arquivo e anexe o mesmo aqui.

mandei no e-mail

Obrigado

Private Sub IncluirCarro_Click()

ThisWorkbook.Worksheets("Veiculos").Activate

Range("A2").Select

if [a1] > 10 then "na célula A1 do banco de dados, digite: =cont.valores(coluna para contar o número de cadastros já realizados) +1

msgbox "Atenção, o limite de cadastro foi atingido. Conte o administrador do sistema.", vbinformation, "Atenção"

exit sub

end if

Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If

Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = CD_PLACA_CARRO.Value
ActiveCell.Offset(0, 1).Value = CD_MARCA_CARRO.Value
ActiveCell.Offset(0, 2).Value = CD_MODELO_CARRO.Value
ActiveCell.Offset(0, 3).Value = CD_ANO_CARRO.Value
ActiveCell.Offset(0, 4).Value = CD_COR_CARRO.Value

'Limpar botoes
CD_PLACA_CARRO.Value = Empty
CD_MARCA_CARRO.Value = Empty
CD_MODELO_CARRO.Value = Empty
CD_ANO_CARRO.Value = Empty
CD_COR_CARRO.Value = Empty

CD_PLACA_CARRO.SetFocus

End Sub

Obrigado, Lorenzon e Wagner Morel pela ajuda.

Elder,

Tudo bem.

Havia entendido, inicialmente, que os 10 cadastro eram pra ser realizados todos em uma única vez. Entretanto, já consertei o código em seu arquivo e o enviei de volta para você.

Valeu Elder!