Вопрос : Макрос для того чтобы проверить лист базы данных и revert с значением

День Gd,

I am в потребности МАКРОСА в Эксел которое может автоматически ввести данные в клетку путем получать эти данные от другого листа;

Example должно быть как то;

database первенствует лист для того чтобы нижеследовать;
LIVERPOOL 21.000

A B
, НЬЮ-ЙОРК 6.512 00
, 00
LONDON 11.000, 00
ROTTERDAM 9.750, 00
MILAN 33.100, 00
BARCELONA 12.100, 00



So мне нужно;

I будет использовать другой лист, и на этом листе когда я пишу в
LIVERPOOL клетки (фактическ к номеру C3 клетки), я хочу МАКРОС проверить coloumn a листа базы данных/находки ЛИВЕРПУЛ/новообращенного оно до 21000 когда я отжимаю вхожу на номер C3

HOpe клетки вышеуказанный объясняющий и смотрящ добросердечно вперед к слышать ваше добросердечное asssitance которое будет плох needed class=

Ответ : Макрос для того чтобы проверить лист базы данных и revert с значением

Hi,
Кодий исполнено everytime вы выбираете другую клетку. Для той причины свое имя должно быть дальше имен узнанных мимо первенствует по мере того как пуск случая и «Worksheet_SelectionChange2» не одним из их.
В лубом случае здесь раздвижное Кодий вы можете подгонять для того чтобы одеть ваши потребности. Как раз добавьте/линии delete в Кодем с клетками, котор вам.
Конечно, по мере того как etech0 сказало выше, вы smogли использовать формулу VLOOKUP но вы попросили макрос. См. прикрепленный архив для примера на том слишком. Чувствуйте свободно выбрать любой метод, котор вы любите!

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:

Приватное Sub Worksheet_SelectionChange (цель ByVal как ряд)
    Тусклое LastRowText как длиной
    Тусклое intRow как длиной
    Тусклое strCol как шнур
    Тусклое strTemp () как шнур
    Затемните I как длиной
    '
    'как раз для безопасности
    Если strPrevCell = "" после этого
        strPrevCell = ActiveCell.Address
        Выходите подводная лодка
    Закончитесь если
    '
    ':: добавьте под linest с всеми клетками, котор вам (например «10», «$D$12», etc)
    '
    Если strPrevCell = «3» или _, то
       strPrevCell = «4» или _
       strPrevCell = «5» после этого
            strTemp = разделило (strPrevCell, «$")
            intRow = CLng (strTemp (2))
            strCol = strTemp (1)
        '
        ':: находите последний рядок в колонке a
        '
        LastRowText = листы (1).Cells (ActiveSheet.Rows.Count, «a»). Конец (xlUp). Рядок
        '
        ':: закрепите петлеть через значения в колонке a
        '
        Для I = 1 к LastRowText
            '
            'если значение в колонке a этим же при значение в нашей клетке тогда положенное в нашу клетку значение в колонке b
            Если UCase, то (листы (1).Cells (I, «a»)) = UCase (клетки (intRow, strCol)) После этого
                Клетки (intRow, strCol) = покрывают (1).Cells (I, «b»)
                Выходите для
            Закончитесь если
        Затем
    Закончитесь если
    strPrevCell = ActiveCell.Address
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us