Cuestión : Macro para comprobar una hoja de la base de datos y a invertir con valor

Día de Gd,

I necesitando una MACRO en Excel que pueden insertar automáticamente datos en una célula obteniendo estos datos de otra hoja; el

Example debe ser como eso; el

database sobresale la hoja para ser como sigue; el
LIVERPOOL 21.000, 00
NUEVA YORK 6.512, 00
LONDON 11.000, 00
ROTTERDAM 9.750, 00
MILAN 33.100, 00
BARCELONA 12.100, 00



So del

A B
qué necesito es; el

I utilizará otra hoja, y en esta hoja cuando escribo en un
LIVERPOOL de la célula (realmente al número C3 de la célula), quisiera que la MACRO comprobara el coloumn A de la hoja/del hallazgo LIVERPOOL/convertido de la base de datos él a 21000 cuando presiono entro en el número C3

HOpe de la célula antedicho soy explicativo y de mirada amablemente adelante a oír su asssitance bueno que sea gravemente needed class= del

Respuesta : Macro para comprobar una hoja de la base de datos y a invertir con valor

Hola,
Se ejecuta el código cada vez que usted selecciona otra célula. Por esa razón su nombre debe estar prendido de los nombres reconocidos cerca sobresale pues el disparador del acontecimiento y “Worksheet_SelectionChange2” no es uno de ellos.
De todas formas aquí está el código extensible que para requisitos particulares usted puede modificar para adaptarse a sus necesidades. Apenas agregar/las líneas de la cancelación en código con las células que usted necesita.
Por supuesto, como etech0 dijo arriba, usted podría utilizar la fórmula de VLOOKUP pero usted ha pedido una macro. Ver el archivo atado para un ejemplo en eso también. ¡Sentir libre de elegir cualquier método que usted tenga gusto!

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 secundario privado (blanco de ByVal como gama)
    LastRowText dévil como de largo
    intRow dévil como de largo
    strCol dévil como secuencia
    strTemp dévil () como secuencia
    Amortiguar i como de largo
    '
    'apenas para la seguridad
    Si strPrevCell = "" después
        strPrevCell = ActiveCell.Address
        Salir el submarino
    Terminar si
    '
    ':: agregar debajo de la más linest con todas las células que usted necesita (e.g. “10”, “$D$12”, los etc)
    '
    Si strPrevCell = “3” o _
       strPrevCell = “4” o _
       strPrevCell = “5” entonces
            el strTemp = partió (strPrevCell, “$")
            intRow = CLng (strTemp (2))
            strCol = strTemp (1)
        '
        ':: encontrar la fila pasada en la columna A
        '
        LastRowText = hojas (1).Cells (ActiveSheet.Rows.Count, “A”). Extremo (xlUp). Fila
        '
        ':: colocar con los valores en la columna A
        '
        Para i = 1 a LastRowText
            '
            'si el valor en la columna A es igual con el valor en nuestra célula después puesto en nuestra célula el valor en la columna B
            Si UCase (hojas (1).Cells (i, “A”)) = UCase (células (intRow, strCol)) Entonces
                Las células (intRow, strCol) = cubren (1).Cells (i, “B”)
                Salir para
            Terminar si
        Después
    Terminar si
    strPrevCell = ActiveCell.Address
Submarino del extremo
Otras soluciones  
 
programming4us programming4us