Experimente mudar as linhas abaixo para io interior do Loop: 'atualiza o valor dos nomes para a proxima linha Name = Sheets("Base").Rang...

...porém todas as vezes que aparece o nome "teste1 " no caso eu queria que fosse o valor de uma célula dessa planilha... Exemplo, 'coloque ...

Cole a fórmula abaixo em 'C25' e em seguida arraste para a direita. =PROC(2;1/($C2:$C22=C24);$B2:$B22)

Sub GeraPlanilha() Dim m As Long, k As Long, x As Long, t As Long, c As Long, r As Range, LR As Long Application.ScreenUpdating = False k = ...

Agora preciso que a planilha gerada seja alterada seu cabeçalho Claro, chefe. Já vou providenciar. na coluna "A1" Para se referir a colu...

c.Offset(0, 2).Value = Format(jtfHoraInicio.Value,"hh:mm")

Veja se o arquivo anexado atende.

Porem gostaria uma caixa de mensagem informando que esta inválido (se impossibiltar de preencher melhor ainda) Experimente aplicar a Validação de Dad...

Experimente: no lugar do evento ---> Private Sub Workbook_Open() coloque ---> Private Sub Workbook_Activate() e no lugar do evento ---> Pri...

...mas acontece que tenho muitos dados para serem comparados (aproximadamente 250 mil linhas em cada base)... Dúvidas: 1 - considerando cada planilha...

... foi exatamente nesta que testei,... reenviei com esse mesmo código... Negativo! Verifique novamente célula por célula e você vai comprovar a dif...

... E está apenas substituindo os valores.... ... (quando lanço apenas substitui os que ja estao lançados) Amigão, você já disponibilizou neste tópic...

A macro funciona assim: 1. ao preencher 'C3' da planilha "Venda" o código insere nessa planilha os dados relativos ao valor inserido, buscad...

Experimente o código abaixo no lugar do atual. Private Sub Worksheet_Change(ByVal Target As Range) Dim cod As Range 'Me.Protect "125812&...

Experimente: Private Sub Worksheet_Change(ByVal Target As Range) 'Plan1.Unprotect Password:="125812" If Target.Address = ...