RogerioFernandes

Pessoal - Boa tarde Estou precisando de ocultar 10 linhas através de VBA, funcionaria da seguinte maneira quando eu clicasse duas vezes em cima de determinada célula da coluna A automaticamente ocultaria as 10 linhas abaixo desta célula e quando eu clicasse novamente duas vezes em cima desta mesma célular mostraria novamente estas linhas que estavam ocultas

Tenho que gerar um grafico onde os valores x e y estão localizados na coluna A e B "Sheets("Plan1").Range("A1:B18")". Estou precisando de em vez de utilizar os valores destas duas colunas, lançar os valores x e y diratamente no código VBA . Poderiam me ajudar. Sub Grafico() Application.CutCopyMode = False Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Sheets("Plan1").Range("A1:B18"), PlotBy:= _ xlColumns ActiveChart.Location Where:=xlLocationAsNewSheet With ActiveChart .HasTitle = False .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With End Sub

Leandro, obrigado pelo retorno. Mas este código não trouxe o resultado esperado, ele deveria trazer o número da última linha que contém o critério que está na celula E = 4 e retornar o valor = 10, observe que o critério = 4 repete 3 vezes e que ele aparece pela última vez na linha 10, este deveria ser o resultado na célula F1 = 10

Pessoal estou precisando recuperar o nº da última linha da coluna D cujo valor é igual à célula E1 o resultado deverá ser inserido na célula F1. EX Valor da celula E1 = 4 Resultado da célula F1 = 10 ( ou seja o último valor encontrado esta na linha 10 ) Coluna D Linha1 4 Linha2 3 Linha3 6 Linha4 7 Linha5 8 Linha6 2 Linha7 5 Linha8 4 Linha9 3 Linha10 4 Linha11 5 Linha12 5