vonzuben, Adapte a rotina abaixo conforme sua necessidade. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range(&q...

escouboue, Posso estar falando bobagem, mas para que o filtro funcione, aplicando os valores desejados, antes, você deve atribuir os valores ás suas ...

dbrito, Veja se a rotina abaixo atende sua necessidade. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("...

Etrigam, Estudo o modelo do link e veja se o mesmo atende sua necessidade. Link : https://www.sendspace.com/file/iwmscj

luisbarros, O erro ocorre justamente porque o "ME" é uma referência direta ao UserForm (conteiner de controles) que possui o controle TextB...

spiders, Se os códigos acima forem tudo o que está dentro do frmAgendamentoCGH, copie tudo para um bloco de notas (só por garantia) e remova tudo. Ap...

ericksant, Experimente alterar as linhas abaixo, de : iRow = WorkBk.Worksheets(1).Range("A100000").End(xlUp).Row Set ...

spiders, Na janela de código do Userform, adicione logo na primeira linha : Dim existeAgendamento As Boolean No código do botão de cadastro, adicio...

Dunguinha, Creio que não entendi ao certo sua demanda. Veja que para isso funcionar em um módulo, é perfeitamente possível, mas será necessário util...

debd, Veja se as alterações feitas no modelo, atendem sua demanda, ou, se pelo menos me aproximei. Para lançar os demais dados na outra guia ( á que...

Dunguinha, Experimente : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim idColuna As Long, idLinha As Long With ThisWo...

debd, Analisando o modelo disponibilizado, encontrei inconsistências, pois os dados inseridos na guia Plan1 divergem dos campos constantes na guia En...

Spiders, Para limpar o ComboBox, deixei algumas linhas comentadas no código que insere os dados na guia. Altere esta linha Me.ComboBox1.RemoveItem Me...

JNEXCEL, Experimente o que se segue : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2")) Is Not...

debd, Se puder disponibilizar seu modelo em sites como SendSpace, GoogleDrive e postar o link aqui usando a ferramenta "[url]" para análise...