Frage : Makro, zum eines Datenbankblattes zu überprüfen und mit Wert umzuschalten

Gd Tag,

I morgens mangels eines MAKRO in Excel, die Daten in einer Zelle automatisch einsetzen kann, indem sie diese Daten von einem anderen Blatt erhalten;

Example sollte wie das sein;

database übertreffen Blatt, um wie zu sein folgen;

A B

LIVERPOOL 21.000, 00
NEW YORK 6.512, 00
LONDON 11.000, 00
ROTTERDAM 9.750, 00
MILAN 33.100, 00
BARCELONA 12.100, 00



So, was ich benötige, ist;

I benutzen ein anderes Blatt, und auf diesem Blatt, wenn ich in ein Zelle (wirklich zur Zellenzahl C3)
LIVERPOOL schreibe, wünsche ich MAKRO coloumn A des Datenbankblattes/der Entdeckung LIVERPOOL/Bekehrter es bis 21000 überprüfen, wenn ich hereinkomme auf die Zellenzahl C3

HOpe oben genannt bin erläuternd bedränge und freundlich vorwärts schauend zum Hören Ihres freundlichen asssitance, das schlecht needed ist

Antwort : Makro, zum eines Datenbankblattes zu überprüfen und mit Wert umzuschalten

Hallo,
Der Code durchgeführt lle, jedes Mal wenn Sie eine andere Zelle vorwählen. Aus diesem Grund muss sein Name von den Namen eingeschaltet sein, die vorbei erkannt, übertreffen, da Ereignis-Auslöser und „Worksheet_SelectionChange2“ nicht einer von ihnen ist.
Sowieso ist hier der ausdehnbare Code, den Sie besonders anfertigen können, um Ihren Notwendigkeiten zu entsprechen. Einfach hinzufügen/Löschunglinien im Code mit den Zellen, die Sie benötigen.
Selbstverständlich während etech0 oben sagte, konnten Sie die VLOOKUP Formel verwenden, aber Sie gebeten um ein Makro. Die angebrachte Akte auf dem als ein Beispiel auch sehen. Frei fühlen, jede mögliche Methode zu wählen, die Sie mögen!

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:
6:
37:
38:
39:

Privates VorWorksheet_SelectionChange (ByVal Ziel als Strecke)
    Schwaches LastRowText als lang
    Schwaches intRow als lang
    Schwaches strCol als Schnur
    Schwaches strTemp () als Schnur
    I als lang verdunkeln
    '
    'gerade zur Sicherheit
    Wenn strPrevCell = "" dann
        strPrevCell = ActiveCell.Address
        Unterseeboot herausnehmen
    Beenden wenn
    '
    ':: unter linest mit allen Zellen hinzufügen, die Sie benötigen (z.B. „10“, „$D$12“, usw.)
    '
    Wenn strPrevCell = „3“ oder _
       strPrevCell = „4“ oder _
       strPrevCell = „5“ dann
            strTemp = aufspaltete (strPrevCell, „$")
            intRow = CLng (strTemp (2))
            strCol = strTemp (1)
        '
        ':: die letzte Reihe in Spalte A finden
        '
        LastRowText = Blätter (1).Cells (ActiveSheet.Rows.Count, „A“). Ende (xlUp). Reihe
        '
        ':: durch die Werte in der Spalte A schlingen
        '
        Für i = 1 zu LastRowText
            '
            'wenn Wert in Spalte A der selbe mit dem Wert in unserer Zelle dann in unsere Zelle eingesetzt der Wert in Spalte B ist
            Wenn UCase (Blätter (1).Cells (i, „A“)) = UCase (Zellen (intRow, strCol)) Dann
                Zellen (intRow, strCol) = bedeckt (1).Cells (i, „B“)
                Für herausnehmen
            Beenden wenn
        Zunächst
    Beenden wenn
    strPrevCell = ActiveCell.Address
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us