LucasMMalheiros

Consegui resolver sozinho!

 

Pra quem tem a mesma duvida, segue o código:

 

Private Sub CommandButton_final_Click()

'Ativar a primeira planilha
ThisWorkbook.Worksheets("Dados").Activate

' Formato da umidade para % e temperatura em *C
TextBoxUmid2.Value = Format(Val(TextBoxUmid2) / 100, "##%")

'Procurar o filtro na Coluna de filtros
Dim NF As Range

With Worksheets("Dados").Range("A:A")
Set NF = .Find(TextBoxFiltro2.Value, LookIn:=xlValues, LookAt:=xlPart)
If Not NF Is Nothing Then
  NF.Activate
  TextBoxFiltro2.Value = NF.Value
End If
   End With
   
 'Selecionar o filtro digitado e escolher a linha do filtro para trabalhar nela
   If Not NF Is Nothing Then
  myCol = NF.Select
  Else
  MsgBox "Filtro não cadastrado!"
End If
   
    
'Obrigar o preenchimento de todos os dados necessários
If TextBoxTemp2 = "" Then
MsgBox "Preencha todos os campos", vbExclamation, "Aviso"
Exit Sub
End If

If TextBoxUmid2 = "" Then
MsgBox "Preencha todos os campos", vbExclamation, "Aviso"
TextBoxUmid2.SetFocus
Exit Sub
End If

If TextBoxFiltro2 = "" Then
MsgBox "Preencha todos os campos", vbExclamation, "Aviso"
TextBoxFiltro2.SetFocus
Exit Sub
End If

If TextBoxPF = "" Then
MsgBox "Preencha todos os campos", vbExclamation, "Aviso"
TextBoxPF.SetFocus
Exit Sub
End If

If Not NF Is Nothing Then

'Carregar os dados digitados nas caixas de texto para a planilha
'ActiveCell.Value = TextBoxFiltro
ActiveCell.Offset(0, 7).Value = TextBoxData2.Value
ActiveCell.Offset(0, 8).Value = TextBoxHora2.Value
ActiveCell.Offset(0, 9).Value = TextBoxUmid2.Value
ActiveCell.Offset(0, 10).Value = TextBoxTemp2.Value
ActiveCell.Offset(0, 11).Value = TextBoxPF.Value
End If

'Limpar as caixas de texto
TextBoxPF.Value = Empty
TextBoxFiltro2 = Empty
 

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