Boa tarde!
Estou criando uma planilha para registro de valores de filtros, com dados iniciais e finais.
Portanto, nos dados iniciais eu indico o numero do filtro, e no formulário de dados finais, eu preciso de um código que ache esse filtro já registrado (Linha 'X' na Coluna A) para poder inserir os dados finais na mesma linha.
A minha dificuldade é selecionar a linha para trabalhar, ou seja, um valor para inserir no Range("???").select.
Agradeço desde já!
Estou tentando o seguinte código:
Private Sub CommandButton1_Click()
'Ativar a planilha
ThisWorkbook.Worksheets("Dados").Activate
' Formato da umidade para %
TextBoxUmid.Value = Format(Val(TextBoxUmid) / 100, "##%")
'Procurar o filtro
With Worksheets("Dados").Range("A:A")
Set c = .Find(TextBoxFiltro.Value, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
c.Activate
TextBoxFiltro.Value = c.Value
End If
End With
'Selecionar a linha do filtro
'Range("Coluna A e linha do valor do filtro encontrado ").Select
'Obrigar o preenchimento de todos os dados necessários
If TextBoxTemp = "" Then
MsgBox "Preencha todos os campos", vbExclamation, "Aviso"
Exit Sub
End If
If TextBoxUmid = "" Then
MsgBox "Preencha todos os campos", vbExclamation, "Aviso"
TextBoxUmid.SetFocus
Exit Sub
End If
If TextBoxFiltro = "" Then
MsgBox "Preencha todos os campos", vbExclamation, "Aviso"
TextBoxFiltro.SetFocus
Exit Sub
End If
If TextBoxPI = "" Then
MsgBox "Preencha todos os campos", vbExclamation, "Aviso"
TextBoxPI.SetFocus
Exit Sub
End If
'Carregar os dados digitados nas caixas de texto para a planilha
ActiveCell.Value = TextBoxFiltro
ActiveCell.Offset(0, 7).Value = TextBoxData.Value
ActiveCell.Offset(0, 8).Value = TextBoxHora.Value
ActiveCell.Offset(0, 9).Value = TextBoxUmid.Value
ActiveCell.Offset(0, 10).Value = TextBoxTemp.Value
ActiveCell.Offset(0, 11).Value = TextBoxPI.Value
'Limpar as caixas de texto
TextBoxPI.Value = Empty
TextBoxFiltro = Empty
End Sub