Erik Wesley

Opa, precisando estamos ai.

Talvez falte referenciar melhor. Eu não consigo utilizar o código direto na sua planilha pois ele requer outros arquivos. Então você terá que fazer as alterações por contra própria com base nos códigos que lhe passei.

Acabei de testar ela, ta funcionando! Ele consegue encontrar os valores na planilha Sugestão. Aqui um exemplo: Sub Buscar() Dim C As String Dim D As String C = "R1" D = "69" Range("C3").Select Do Do If ActiveCell.Value <> C Then ActiveCell.Offset(1, 0).Select End If Loop Until ActiveCell.Value = C ActiveCell.Offset(0, 1).Select If ActiveCell.Value <> D Then ActiveCell.Offset(1, -1).Select End If Loop Until ActiveCell.Value = D MsgBox "Encontrados" End Sub Pode colocar na sua planilha Sugestão para ver como está funcionando corretamente.

Onde você colocou o código? Manda pra mim novamente a planilha depois que você colocou o código, vou usar como base pra resolver.

Fiz da seguinte maneira: ' Referencias Dim Ref As String Dim Ref2 As String Dim Ref3 As String ' Setar Referencias Range("D2").Select Ref2 = ActiveCell.Value Range("E2").Select Ref3 = ActiveCell.Value Range("AO2").Select Ref = ActiveCell.Value ' Abrir SUGESTÃO Windows("Sugestão_01.xlsx").Activate Range("c2").Select 'Busca as referencias na planilha SUGESTÃO Do Do If ActiveCell.Value <> Ref2 Then ActiveCell.Offset(1, 0).Select End If Loop Until ActiveCell.Value = Ref2 ActiveCell.Offset(0, 1).Select If ActiveCell.Value <> Ref3 Then ActiveCell.Offset(0, -1).Select ActiveCell.Offset(1, 0).Select End If Loop Until ActiveCell.Value = Ref3 'Caso encontre ActiveCell.Offset(0, 12).Select ActiveCell.Value = Ref

Sim! Só aguardar que já dou um jeito. PS: Você tem quer somar toda a coluna AO? Você quer achar sempre esta mesma referencia no mesmo local?

Entendi. Ele tem que achar a referencia na coluna D e E para colar (Na mesma linha/direção) o valor na coluna P.

Agora sim, tudo faz sentido!!!!! Na planilha "TESTE FILTRO" há uma coluna com o nome "Valor Liquido", você precisa que ele some esses valores e cole na planilha "Sugestão_01", e se os valores já estiverem preenchidos você quer que ele cole os dados na coluna "BASE DE CALCULO". Só isso?

Só precisar upar o arquivo em algum servidor (Ex: DropBox), e depois postar o link aqui.

Coloque uma copia da planilha e não o código. Pode ser tudo em branco mesmo.

É a mesma coisa, só que maior... Se tiver como postar sua planilha será mais fácil (Ou um exemplo do que quer).

Você pode fazer um loop. Ex: Do If ActiveCell.Value <> "Valor Procurado" Then ActiveCell.Offset(1,0).Select End If Loop Until ActiveCell.Value = "Valor Procurado"

Você pode compartilhar sua planilha, será muito mais fácil.

Sub Investimento() Dim anocelula As String mes1 = InputBox("Insira o Mês do Primeiro Investimento: ") If mes1 = "" Then Exit Sub End If Range("C4").Value = mes1 Ano1 = InputBox("Insira o Ano do Primeiro Investimento: ") Range("D4").Value = Ano1 mes2 = InputBox("Insira o Mês do Último Investimento: ") Range("C5").Value = mes2 ano2 = InputBox("Insira o ano do Último Investimento: ") Range("D5").Value = ano2 Primeiro = Range("D4").Value Ultimo = Range("D5").Value anos = Ultimo - Primeiro anocelula = Primeiro For i = 1 To anos + 1 ActiveCell.Range("A1:L1").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With ActiveCell.Value = anocelula anocelula = anocelula + 1 Selection.Merge ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.FormulaR1C1 = "Jan" ActiveCell.Offset(0, 1).Range("A1").Select ActiveCell.FormulaR1C1 = "Fev" ActiveCell.Offset(0, -1).Range("A1:B1").Select Selection.AutoFill Destination:=ActiveCell.Range("A1:L1"), Type:= _ xlFillDefault ActiveCell.Range("A1:L1").Select ActiveCell.Offset(-1, 0).Range("A1:L3").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With ActiveCell.Offset(3, 0).Range("A1").Select Next End Sub Tente agora. Só depois de muito tempo que entendi oque precisava. Inclui também uma condicional caso você decida cancelar a ação, agora ele não vai rodar sem informações.

Eu fiz assim: Dim Val1 As Double Dim Val2 As Double Dim Val3 As Double Val1 = Textbox1.Value Val2 = Textbox2.Value Val3 = Textbox3.Value Textbox4.Value = Val1 + Val2 + Val3 E mesmo com .TEXT funciono igual.

Parece muito confuso... Pode ser mais direto no que precisa? Ou, filtrar melhor?

Talvez se você postar o código que já tem, podemos otimiza-lo.

De nada! Precisando estamos ai.

Veja se este lhe atende: Sub Transferir() Application.ScreenUpdating = False If ActiveCell.Value = "" Then MsgBox "Selecione uma celula preenchida", vbExclamation, "AVISO" Exit Sub End If Sheets("Plan2").Select Range("A1").Select Sheets("Plan1").Select Do ActiveCell.Select Selection.Copy Sheets("Plan2").Select Do If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Select End If Loop Until ActiveCell.Value = "" ActiveCell.Select ActiveSheet.Paste Sheets("Plan1").Select ActiveCell.Offset(1, 0).Select Loop Until ActiveCell.Value = "" MsgBox "Todas as celulas copiadas", vbInformation, "IMPORTANTE" Application.ScreenUpdating = True End Sub Ele funciona assim: 1º Selecione a 1º célula que deseja copiar (No caso aqui: Plan1). 2º Ele vai na planilha destino (Plan2) e seleciona A1 como referencia para colar. 3º Volta para a planilha 1 e copiar a primeira celular. 4º Vai até a planilha de destino e verifica se a célula inicial (A1) contém dados, se houve ira selecionar imediatamente a debaixo, e se esta também conter dados ira repetir o processo até encontrar uma célula vazia. 5º Volta a planilha 1 e seleciona uma célula abaixo da última copiada e repete o processo. 6º Ela irá rodar até que não hajam mais dados na planilha 1. Você pode colocar referencias para serem digitadas antes de iniciar o macro como o inputbox, como: Planilha 1 e planilha de destino, celular inicial para copiar e para colar e etc.

Isso é bem simples. Mais apenas para confirmar: Você precisa que ele pegue os dados da planilha A e cole na planilha B, repetindo o processo para todas as linhas correto?

É simples, mais um pouco confuso, pode disponibilizar um arquivo semelhante?

Você pode criar 1 coluna com o nome das máquinas, outra com a última preventiva realizada, e outra com a próxima, depois use uma condicional de sua preferencia para indicar a célula com data vencida (Como cores ou símbolos).

Hm... Se for só isso é simples! Mais antes, quais são as variáveis de "SIM" e de "NÃO"? Outra: Quer inserir essas variáveis como "respostas" na planilha? Se sim, tem alguma célula especifica? Aguardo retorno.

Você pode fazer uma nova função que ative a função já configurada no botão.

Se puder disponibilizar um arquivo com dados irreais poderia ser mais simples.