Hello.
Originally Posted by
fixer
...U have mentioned that ignore that post so till today i have not checked that code but today i thought to check the code if there will be any error i will try to solve it .....
I am not really sure what you are saying here.
I am sorry, but I do not understand you very well.
I think you have difficulty speaking in English.
( Just out of interest, where do you come from?. What is your mother tongue? Have you tried this https://translate.google.de/?hl=de#v...te&sl=hi&tl=en )
Originally Posted by
fixer
.. little modification in the code is required
plz see the sample file
This was last macro …
If column B of 2.xlsm match with column B of 1.xls then paste the data from column C of 2.xls as 1,2,3,4,5 and so on....
&
If column B of 2.xlsm doesn't match with column B of 1.xls then delete all the data from column C of that row
Code:
If IsError(mtchRes) Then ' If the last line errored than we did not find a match, so from the 3rd up to the last element need to be removed from the array for this row
Dim Empt As Long
For Empt = 3 To UBound(arr3(Cnt - 1), 2)
Let arr3(Cnt - 1)(1, Empt) = ""
Next Empt
Else
' a match was found, so we do not need to remove the 1 2 3 etc...
End If
_.______________________
This is new requirement…
If column B of 2.xlsm match with column B of 1.xls then clear all the data in that row from column C
If column B of 2.xlsm does not match with column B of 1.xls then paste the data from column C of 2.xls as 1,2,3,4,5 and so on…
New requirement is almost the same, but it is just now
The other way around,
or
Upside down
or,
Standing on its head,
or
Arse over Tit
Code:
If IsError(mtchRes) Then ' If the last line errored than we did not find a match, so we do not need to do anything to the array
' a match was not found, so we do not need to remove the 1 2 3 etc...
Else
' a match was found, so we need to remove the 1 2 3 etc...
Dim Empt As Long
For Empt = 3 To UBound(arr3(Cnt - 1), 2)
Let arr3(Cnt - 1)(1, Empt) = ""
Next Empt
End If
( Full macro is here:
Sub CopyPasterConditionalToPutRemark_1_2_3_etcArseOverTit() http://www.excelfox.com/forum/showth...ll=1#post13176 )
Before:
_____ Workbook: 1 1mai.xlsx ( Using Excel 2007 32 bit )
| Row\Col |
A |
B |
C |
D |
E |
F |
G |
|---|
1 |
NSE |
15083 |
6 |
> |
70000 |
A |
|
2 |
NSE |
17388 |
6 |
> |
20000 |
A |
|
3 |
NSE |
100 |
6 |
> |
170000 |
A |
|
4 |
|
|
|
|
|
|
|
_____ Workbook: 2 1Mai.xlsm ( Using Excel 2007 32 bit )
| Row\Col |
A |
B |
C |
D |
E |
F |
G |
H |
I |
J |
K |
L |
|---|
1 |
Symbol |
|
|
|
|
|
|
|
|
|
|
|
2 |
ACC |
22 |
1 |
|
|
|
|
|
|
|
|
|
3 |
ADANIENT |
25 |
1 |
2 |
3 |
|
|
|
|
|
|
|
4 |
ADANIPORTS |
15083 |
1 |
2 |
3 |
4 |
5 |
|
|
|
|
|
5 |
ADANIPOWER |
17388 |
1 |
|
|
|
|
|
|
|
|
|
6 |
AMARAJABAT |
100 |
1 |
2 |
34 |
5 |
6 |
7 |
8 |
9 |
10 |
|
7 |
ASIANPAINT |
236 |
1 |
2 |
|
|
|
|
|
|
|
|
8 |
|
|
|
|
|
|
|
|
|
|
|
|
After running macro here: http://www.excelfox.com/forum/showth...ll=1#post13176
_____ Workbook: 2 1Mai.xlsm ( Using Excel 2007 32 bit )
| Row\Col |
A |
B |
C |
D |
E |
F |
G |
H |
I |
J |
K |
L |
|---|
1 |
Symbol |
|
|
|
|
|
|
|
|
|
|
|
2 |
ACC |
22 |
1 |
2 |
|
|
|
|
|
|
|
|
3 |
ADANIENT |
25 |
1 |
2 |
3 |
4 |
|
|
|
|
|
|
4 |
ADANIPORTS |
15083 |
|
|
|
|
|
|
|
|
|
|
5 |
ADANIPOWER |
17388 |
|
|
|
|
|
|
|
|
|
|
6 |
AMARAJABAT |
100 |
|
|
|
|
|
|
|
|
|
|
7 |
ASIANPAINT |
236 |
1 |
2 |
3 |
|
|
|
|
|
|
|
8 |
|
|
|
|
|
|
|
|
|
|
|
|
Molly
Reply With Quote
Bookmarks