Ir ao conteúdo
  • Cadastre-se

Roliveira82

Membro Júnior
  • Posts

    9
  • Cadastrado em

  • Última visita

posts postados por Roliveira82

  1. Bom dia. Tenho uma tabela de base de dados em linha e outra tabela que recebe esses dados, porém, não em linha. Preciso que essa segunda tabela mostre os dados da primeira quando eu digitar o prefixo. Exemplo, quando eu digitar "EST" na segunda tabela (que não está em linha corrida), preciso que apareçam os valores "3295N - PALIO 100A NEW" e sua sequencia com o prefixo "EST".  Seguem as ilustrações para melhor entendimento e grato desde já.  @cadeca @Patropi @almirsilva

    Banco de Dados.jpg

    Remessa.jpg

     

  2. Boa noite pessoal. Muito obrigado pelas respostas! @Edson Luiz Branco, o certo é sim interpolar, mas o que realmente me interessa é a busca. Só não falei da interpolação para não fugir do foco. Pode ser qualquer valor entre 2,00 e 2,10 como descrito no exemplo. Só preciso que a busca entenda que 2,05 está entre B2 e B3.@Patropi, segue a planilha para análise da fórmula. Vamos em linhas:

    PROCV procura o valor;

    Retorna #N/D pois 2,05 não existe;

    O valor precisa ser achado para tirar as médias das colunas B e C

     

    Muito obrigado mais uma vez.

    Tabela Indice de Viscosidade.xlsx

  3. Boa noite pessoal. Estou precisando de uma ajuda e sou novo no fórum. Conforme as linhas abaixo, preciso o intervalo, em linha, das colunas "B" (CÓD) até "E" (um) quando a condição achar o string "DIFERENÇA" e não a linha toda (.EntireRow.Copy). Daí eu pulo pra outra aba e colo valores na primeira linha vazia da coluna "B". Me desculpem se já existe um post como esse... Não achei!

     

    Sub SEG_CONT()

    '------ DECLARANDO VARIÁVEIS

    Dim rng As Range
    Dim i As Integer
    Dim PrimLin As Integer

    '------ SELECIONA ABA E INTERVALO

    Sheets("MAR-2016").Select
    Set rng = Range("I19:I300")

    '------ INICIA A ROTINA DE BUSCA

    For i = rng.Rows.Count To 1 Step -1

    '------ SE A CÉLULA "I" FOR IGUAL A "DIFERENÇA", ENTÃO SELECIONAR EM LINHA AS CÉLULAS DA COLUNA "B" (cod) ATÉ "E" (UM)

    If rng.Cells(i).Value = "DIFERENÇA" Then rng.Cells(i).EntireRow.Copy

    '------ SELECIONA A ABA "DOCUMENTO DE CONTAGEM" E COLA VALORES BA PRIMEIRA LINHA VAZIA DA COLUNA "B"

    Sheets("DOCUMENTO DE CONTAGEM").Select

    PrimLin = Cells(Rows.Count, "B").End(xlUp).Row
    Range("B" & PrimLin + 1).Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Next
    End Sub
     

    Selecionar internalo.jpg

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!