Pergunta : Macro para verific uma folha da base de dados e a reverter com valor

Dia de Gd,

I am na necessidade de um MACRO em Excel que podem automaticamente introduzir uns dados em uma pilha obtendo estes dados de uma outra folha; o

Example deve ser como aquele; o

database prima a folha para ser como segue; o
LIVERPOOL 21.000 do

A B
, 00
NEW YORK 6.512, 00
LONDON 11.000, 00
ROTTERDAM 9.750, 00
MILAN 33.100, 00
BARCELONA 12.100, 00



So o que eu preciso é; o

I estará usando uma outra folha, e nesta folha quando eu escrevo em um
LIVERPOOL da pilha (realmente ao número C3 da pilha), eu quero o MACRO verific o coloumn A da folha da base de dados/achado LIVERPOOL/converso ele a 21000 quando eu pressiono entro no número C3

HOpe da pilha acima sou explanatório e olhando amavelmente para a frente a ouvir seu asssitance amável que é mal needed class= do

Resposta : Macro para verific uma folha da base de dados e a reverter com valor

Olá!,
O código é executado cada vez que você seleciona uma outra pilha. Para essa razão seu nome deve estar ligada dos nomes reconhecidos perto prima porque o disparador do evento e “Worksheet_SelectionChange2” não são um deles.
Em todo o caso está aqui o código extensible que você pode personalizar para serir suas necessidades. Apenas adicionar/linhas da supressão no código com as pilhas que você precisa.
Naturalmente, como etech0 disse acima, você poderia usar a fórmula de VLOOKUP mas você pediu um macro. Ver a lima unida para um exemplo naquela demasiado. Sentir livre escolher todo o método que você gostar!

Cristi
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

Worksheet_SelectionChange secundário confidencial (alvo de ByVal como a escala)
    LastRowText não ofuscante como por muito tempo
    intRow não ofuscante como por muito tempo
    strCol não ofuscante como a corda
    strTemp não ofuscante () como a corda
    Escurecer i como por muito tempo
    '
    'apenas para a segurança
    Se strPrevCell = "" então
        strPrevCell = ActiveCell.Address
        Retirar o submarino
    Terminar se
    '
    ':: adicionar abaixo de mais linest com todas as pilhas que você precisa (por exemplo “10”, “$D$12”, etc.)
    '
    Se strPrevCell = “3” ou _
       strPrevCell = “4” ou _
       strPrevCell = “5” então
            strTemp = separação (strPrevCell, “$")
            intRow = CLng (strTemp (2))
            strCol = strTemp (1)
        '
        ':: encontrar a última fileira na coluna A
        '
        LastRowText = folhas (1). Pilhas (ActiveSheet.Rows.Count, “A”). Extremidade (xlUp). Fileira
        '
        ':: dar laços com os valores na coluna A
        '
        Para i = 1 a LastRowText
            '
            'se o valor na coluna A é o mesmo com o valor em nossa pilha a seguir põr em nossa pilha o valor na coluna B
            Se UCase (folhas (1). Pilhas (i, “A”)) = UCase (pilhas (intRow, strCol)) Então
                As pilhas (intRow, strCol) = cobrem (1). Pilhas (i, “B”)
                Retirar para
            Terminar se
        Em seguida
    Terminar se
    strPrevCell = ActiveCell.Address
Submarino da extremidade
Outras soluções  
 
programming4us programming4us