Removal of highlighted colour

[roger@]

blank

[HansV]

You can't always ask for complete solutions.

Please start writing the macro yourself - you should know by now what to do at the beginning and end of the macro.
If you run into problems, post the code that you have and ask for help with a specific issue.

[alansidman]

crossposted: https://chandoo.org/forum/threads/condi ... our.41931/" onclick="window.open(this.href);return false;

[HansV]

Thanks for the heads-up, Alan.

Roger@/r@1234 (etc.): if you post the same question in more than one forum, you should ALWAYS mention that, with a link to the other place(s) where you posted it, to avoid wasting people's time.

[roger@]

Sorry Sir i will not repeat this mistake again but i tried writing the code but i was unable to write the code bcoz this is diiferent
so plz guide

[Rudi]

    
Surely you can study up and use code provided for you from your other posts which sound very similar in nature.

See: copy and paste the data conditionally post# 253227
See: delete and clear the data by vba post# 253586
See: change of data post# 252590

[roger@]

i tried but i was unable to make the code
i know how to open a file by vba
i know how to save it
i know how to close it
only this much i have learned till yet and i am still learning sir

[roger@]

Sure HansV sir i in future i will not repeat this mistake again

[HansV]

As I mentioned before: the purpose of this forum is to help other users (such as you) to write their own code, not to write all the code for them. If you aren't able to learn to write the code yourself, you don't have to be ashamed - none of use can do everything. But forums such as this one, Chandoo, OzGrid, ExcelGuru, ExcelForum etc. are not the right place for you. You should hire an Excel developer to write the code for you.

[roger@]

Sir u know everything it takes time to learn this and write a code like u and i am trying to do the same

[HansV]

If you mean that, you shouldn't ask for others to create a complete solution for you each time.

[roger@]

u r right Sir but i have only 2 question this one and one more
after that my work is completed
u know sir its not simple to write a code like u
it takes time devotion to learn vba i will learn vba its not hard only it takes time to learn

[Rudi]

Roger,

Please understand that we are not trying to be unhelpful or ignorant of your requests, but it becomes increasingly difficult to want to help someone when they make no effort to show progress. Each question you ask requires us to rewrite an entire automated solution because you are unwilling to use what we've provided and at the least post something that we can work with.

If you are unwilling to learn VBA then I'd recommend to take Hans's advice and get a programmer to write code for you. If you really were wanting to learn VBA you would have been posting multiple samples of code even if it was just to celebrate in your own successes and get further encouragement. (I speak here from my own experiences when I joined the forum)!

Roger, you must really make more of an effort to help yourself by the advice and assistance provided here. If you don't show that effort, even the best of us will lose the will to want to help you.

[roger@]

Code: Select all

Sub Code()
    Dim wbk1 As Workbook
    Dim wsh1 As Worksheet
    Dim lngLast1 As Long
    Dim rng1 As Range
    Dim wbk2 As Workbook
    Dim wsh2 As Worksheet
    Dim lngLast2 As Long
    Dim r2 As Long

    Application.ScreenUpdating = False

    Set wbk1 = Workbooks.Open(ThisWorkbook.Path & "\1.xls")
    Set wsh1 = wbk1.Worksheets(1)
    lngLast1 = wsh1.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

    Set wbk2 = Workbooks.Open(ThisWorkbook.Path & "\2.xlsx")
    Set wsh2 = wbk2.Worksheets(1)
    lngLast2 = wsh2.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

    
            End If
        End If
    Next r2

    Application.DisplayAlerts = False
    wbk1.Close SaveChanges:=True
    wbk2.Close SaveChanges:=True
    Application.DisplayAlerts = True

    Application.ScreenUpdating = True
End Sub

I know only this much
I dont know how to write the middle vba code so plz have a look

[HansV]

That shows you can copy and paste, but not that you made any attempt to understand the code, let alone write something yourself. I refer you again to the advice that Rudi and I gave you.

[roger@]

Dim wbk1 As Workbook
Dim wsh1 As Worksheet

workbook 1 worksheet1 for 1.xls


Dim wbk2 As Workbook
Dim wsh2 As Worksheet
workbook 1 worksheet1 for 2.xlsx

Set wbk1 = Workbooks.Open(ThisWorkbook.Path & "\1.xls")
Set wsh1 = wbk1.Worksheets(1)
putting the path of the files


Application.DisplayAlerts = False
wbk1.Close SaveChanges:=True
wbk2.Close SaveChanges:=True
Application.DisplayAlerts = True

Application.ScreenUpdating = True


saving the changes in the file after the process

yes i have copied the code but i have copied the thing which i know

[HansV]

This discussion is pointless.

[roger@]

i just wanted to say that all of u helped me alot in making the system now 2 more steps and my system is completed
i will complete my system but i will be more happy if u support me

[roger@]

Thnx for all ur support

[Doc.AElstein]

Hello rider , roger, RangeRover , Leonardo , umpsbug, xyz1234, Pftang Pftang OLE WigWam Biscuit Barrel
See cross post:
http://www.excelfox.com/forum/showthrea ... -condition" onclick="window.open(this.href);return false;
http://www.excelfox.com/forum/showthrea ... #post10839" onclick="window.open(this.href);return false;
:)