Colega FoxMana Boa Noite! Bem, como você não apresentou nenhuma planilha vou na suposição... Supondo que sua coluna A esteja preenchida e que seus d...

Boa Tarde, segue conforme pedido. Execute o botão "verificar" para executar a rotina. Abrç!

Colega valdecirrk eis a solução: Sub teste() On Error Resume Next With ActiveSheet.Shapes("Grafico 1") .Top = Range...

Colega valdecirrk eu tenho certeza que nossos colegas aqui do fórum podem ajudar com sugestões melhores. Portanto, seria válido você ainda não marcar ...

Colega valdecirrk, boa tarde! Bem, uma forma seria ajustando manualmente assim: * Alterando os valores até achar a posição desejada. Sub posição()...

Se eu entendi a sua dúvida, acho que seria isso. Abçr!

Minha Contribuição. Abçr!

Minha contribuição. Abçr!

talvez uma tabela dinâmica cairia bem nesse caso.

Colega JNEXCEL bom dia. Olha, apenas inverta de ordem as duas linhas de código assim: Application.Visible = False UserForm1.Show Pronto. ...

Uma sugestão...

Colega BAHREM boa tarde. Nesse caso você ultiliza as funções ÍNDICE, CORRESP. Com ela você insere quantos critérios desejar. Obs. finalize a fórmula...

Olá colega ramf13, poderia postar sua planilha por favor?.. com o resultado esperado em uma célula qualquer.

Colega Pedro bom dia. Segue conforme pedido. Obs. Estou considerando que a célula que quer inserir a data está na coluna "A". Abçr!

Wagner, se me permite complementar sua ideia, acho que poderia inserir a "Inputbox" antes do For.. tipo: Sub InserirLinha() Dim Qtde A...