Vraag : Macro om gegevens te selecteren

In het dossier in bijlage van Excel, bevat Sheet1 gegevens, en Sheet2 bevat een lijst van aantallen in Col. A.  Een macro is nodig om elk aantal in Sheet2 Col. A te bekijken en een gelijke op Sheet1 Col. A. te vinden.  Als een gelijke wordt gevonden, kopi�ër de gegevens (op Sheet1 worden gevonden) met betrekking tot dat aantal op aan Sheet3. die
Attachments:
van
Test.zip (579 KB) Tesst

Antwoord : Macro om gegevens te selecteren

Hallo Rishi,

Probeer de volgende macro.


Laat me weten of hebt u om het even welke kwesties,

- Ardhendu
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Expliciete optie

Sub Macro4 ()

Schemerige ws1     als Aantekenvel, _
    ws2     als Aantekenvel, _
    ws3     als Aantekenvel, _
    lst1    als Geheel, _
    lst2    als Geheel


Reeks ws1 = Bladen („Sheet1“)
Reeks ws2 = Bladen („Sheet2“)
Reeks ws3 = Bladen („Sheet3“)

lst1 = ws1.Cells (65536, „A“). Eind (xlUp). Rij
lst2 = ws2.Cells (65536, „A“). Eind (xlUp). Rij

ws1.Range („A1: F“ & lst1) Actie .AdvancedFilter: =xlFilterCopy, CriteriaRange: =ws2.Range („A1: “ & Lst2), _
    CopyToRange: =ws3.Columns („A: F“), Uniek: =True
Sub van het eind
Andere oplossingen  
 
programming4us programming4us