Zshan
New member
- Joined
- Apr 28, 2020
- Messages
- 31
- Reaction score
- 0
- Points
- 0
- Excel Version(s)
- Excel10
IT seems to be easy but I cant figure out how to copy data with multiple cases matched.
its like 3 sheets:
RECORD
DATA
OUTPUT
RECORD IS MAIN SHEET,
SO ITS LIKE THIS:
Dim RA, RB, RC As Range
Dim DA1, DB1, DC1 As Range
Dim DA2, DB2, DC2, DD2, DE2, DF2, DG2 As Range
Dim OA As Range
Dim WS1, WS2, WS3 As Worksheet
Set WS1 = Workbooks("QST.xlsm").Worksheets("RECORD")
Set WS2 = Workbooks("QST.xlsm").Worksheets("DATA")
Set WS3 = Workbooks("QST.xlsm").Worksheets("OUTPUT")
Set RB = WS1.Range("B999999").End(xlUp)
Set RA = WS1.Range("B999999").End(xlUp).Offset(-1, -1)
Set RC = WS1.Range("B999999").End(xlUp).Offset(0, 1)
'THESE CELLS COULD BE CONTAING ANYTHING LIKE TEXTS,VALUES OR FORMULAS!
'NOW I WANT A CODE WHICH COULD FIND IN "DATA" SHEET A ROW THAT HAS CELL,
'IN COLUMN "B" SAME AS 'RB' (SUPPOSE AS DB1)
'IN COLUMN "C" SAME AS 'RC' (SUPPOSE AS DC1)
'AND ABOVE THAT ROW IN COLUMN "A" SAME AS 'RA' (SUPPOSE AS DA1)
'IF THESE THREE THINGS ARE MATCHED,
'FROM 'RA' MATCHED CELL TO LAST FILLED CELL IN COLUMN "B",
'IT'LL LOOK IF IN THE LAST ROW CELL IN COLUMN "C" IS FILLED BUT CELLS IN COLUMN "D","E","F" & "G" ARE EMPTY
'& IN COLUMN "A" ABOVE THAT ROW CELL TEXT = "CLEAR"
'THEN COPY ALL SELECTED & PASTE VALUES IN 'OA'
'IF ITS NOT HAPPENING IN LAST ROW BUT IN SECOND LAST OR THIRD LAST OR ANYWHERE ELSE IT SHOULD BE COPIED TILL THERE SAME LIKE IN THE FILE!
'BUT IF CASE IS LIKE DATA & RECORD THEN NOTHING SHOULD HAPPEN!
'IF CASE IS LIKE DATA1 & RECORD1 THEN OUTPUT1 SHOULDBE RESULT & SO ON!
I am uploading the file nammed QST.xlsm coz its difficult to explain question without reading this file.
I hope if anybody could help me out here!
Thanks.
its like 3 sheets:
RECORD
DATA
OUTPUT
RECORD IS MAIN SHEET,
SO ITS LIKE THIS:
Dim RA, RB, RC As Range
Dim DA1, DB1, DC1 As Range
Dim DA2, DB2, DC2, DD2, DE2, DF2, DG2 As Range
Dim OA As Range
Dim WS1, WS2, WS3 As Worksheet
Set WS1 = Workbooks("QST.xlsm").Worksheets("RECORD")
Set WS2 = Workbooks("QST.xlsm").Worksheets("DATA")
Set WS3 = Workbooks("QST.xlsm").Worksheets("OUTPUT")
Set RB = WS1.Range("B999999").End(xlUp)
Set RA = WS1.Range("B999999").End(xlUp).Offset(-1, -1)
Set RC = WS1.Range("B999999").End(xlUp).Offset(0, 1)
'THESE CELLS COULD BE CONTAING ANYTHING LIKE TEXTS,VALUES OR FORMULAS!
'NOW I WANT A CODE WHICH COULD FIND IN "DATA" SHEET A ROW THAT HAS CELL,
'IN COLUMN "B" SAME AS 'RB' (SUPPOSE AS DB1)
'IN COLUMN "C" SAME AS 'RC' (SUPPOSE AS DC1)
'AND ABOVE THAT ROW IN COLUMN "A" SAME AS 'RA' (SUPPOSE AS DA1)
'IF THESE THREE THINGS ARE MATCHED,
'FROM 'RA' MATCHED CELL TO LAST FILLED CELL IN COLUMN "B",
'IT'LL LOOK IF IN THE LAST ROW CELL IN COLUMN "C" IS FILLED BUT CELLS IN COLUMN "D","E","F" & "G" ARE EMPTY
'& IN COLUMN "A" ABOVE THAT ROW CELL TEXT = "CLEAR"
'THEN COPY ALL SELECTED & PASTE VALUES IN 'OA'
'IF ITS NOT HAPPENING IN LAST ROW BUT IN SECOND LAST OR THIRD LAST OR ANYWHERE ELSE IT SHOULD BE COPIED TILL THERE SAME LIKE IN THE FILE!
'BUT IF CASE IS LIKE DATA & RECORD THEN NOTHING SHOULD HAPPEN!
'IF CASE IS LIKE DATA1 & RECORD1 THEN OUTPUT1 SHOULDBE RESULT & SO ON!
I am uploading the file nammed QST.xlsm coz its difficult to explain question without reading this file.
I hope if anybody could help me out here!
Thanks.
Attachments
Last edited by a moderator: