Boa tarde.
Tentei, não consegui; procurei, não achei.
Como inserir dados de cadastro dentro de um limite de linhas? Por exemplo: inserir dados nas 3 primeiras colunas, isto é, entre "A3:C20" (numa planilha que tem 6 colunas "A:F"), ou seja, o código vai procurar a primeira linha vazia dentro desse limite "A3:C20".
Estou trabalhando nesse código, só que ele procura a primeira vazia, não dentro de uma certa quantidade de linhas.
Código: Selecionar todos
Application.EnableEvents = False
Dim Totalregistro As Long
Dim data As Date
On Error Resume Next
data = txtData
Dim num As Double
On Error Resume Next
num = txtValor
On Error Resume Next
Totalregistro = Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
Cells(Totalregistro, 2) = cbbDescritor
Cells(Totalregistro, 3) = data
Cells(Totalregistro, 5) = num
'comandos para limpar as caixas de texto
txtData = ""
cbbDescritor = ""
txtValor = ""
txtData.SetFocus
Call TextoParaNumerico
Cells(2, 5).Select
Me.lblResultado.Caption = "Inserido com sucesso!"
TravaCampos
Application.EnableEvents = True
End Sub
Desde já, agradeço.