alguém pode me ajudar erro no totalregistro = Worksheets

Question

Option Explicit

Private Sub BOTAO_SALVAR_Click()

totalregistro = Worksheets("planilha1").UsedRange.Rows.Count + 1

Worksheets ("planilha1")

'Cells(totalregistro, 15) = CX_DB
Cells(totalregistro, 2) = CX_RRM
Cells(totalregistro, 4) = CX_ENTRADA
Cells(totalregistro, 10) = CX_CDD
Cells(totalregistro, 3) = CX_CDD
Cells(totalregistro, 11) = CX_MODELO
Cells(totalregistro, 12) = CX_SERIAL1
Cells(totalregistro, 13) = CX_SERIAL2
Cells(totalregistro, 8) = CX_DATA


Dim AdoConexao As New ADODB.Connection
    Dim rsIncluir As New ADODB.Recordset
    Dim Banco As String
    
   
     Banco = "bancocaminho"
    
    AdoConexao.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source =" & Banco & "; Persist Security Info=False;Jet Oledb:DataBase password=1234"
    AdoConexao.Open

    rsIncluir.Open "banco", AdoConexao, adOpenKeyset, adLockOptimistic

    rsIncluir.AddNew

        rsIncluir!RRM = CX_RRM
        'rsIncluir!Cliente = CX_CLIENTE
        rsIncluir!NFEntrada = CX_ENTRADA
        rsIncluir!Cliente = CX_CDD
        rsIncluir!mnemonico = CX_CDD
        rsIncluir!Modelo = CX_MODELO
        rsIncluir!DataEntrada = CX_DATA
        rsIncluir!Serial1 = CX_SERIAL1
        rsIncluir!Serial2 = CX_SERIAL2
    
    rsIncluir.Update
    rsIncluir.Close
    AdoConexao.Close


    CX_SERIAL1 = ""
    CX_SERIAL2 = ""

    CX_SERIAL1.SetFocus
    

End Sub

Answer 1

Leo,

Qual o erro?

Mas pelo trecho que você postou, ou você não tem uma aba chamada "planilha1" ou está faltando a declaração da variável totalregistro.

Quando postar algo no fórum, tenha certeza que disponibilizou informações suficientes para a turma poder te ajudar.

Abraço!

---

Natan