Search:

As always, Many thanks WestConn1. Will try this in a moment

Hi again guys!

I am trying to copy some content from a a very big txt file to Excel.
Ideally the code should read;
-every line that starts with # copy and paste into cell A1
-then beneath...

Thanks Westconn. I think I had been placed Exit For i wrong place before. Now works, Thank you so much!

I have code below which is a part of a macro that I use to generate reports from an excel scheduling tool. How can I ensure that once function "TaskActive" is true in "E" & HH range then update word...

This worked, many thanks koolsid!! :)

Oh I see what you mean, In my case If condition in range is not met then code exits, then another range until end of spreadsheet.
I will incorporate this and see if I get any luck.

Many, many thanks for your help!
I take it I will now change function to;

Function TaskActive(rng As Range) As Boolean
Dim aCell As Range, dtStartDate As Date
For Each aCell In rng...

Hi koolsid,

Please find attached with comments. Please let me know if comments are unclear.

98941

Have done and posting sample with comments asap!

oh! thanks for your help Koolsid and yes I can also see the red highlight now.

Oops! looks like the red highlight didn't work.
I know the type mismatch might be to do with values, but all values in E range are in date format

Thanks koolsid for your prompt response;

The function accepts a range;
Here's full code where I have included your solution;


For Each rng In rngOutputColC.Offset(, 9).Cells
...

Hi Guys,

How can I amend this code so that the when in column E all non empty cell values beneath active cell (including active cell) are compared to TaskActive function?


If...

This works now guys! Many thanks for all your help.

Many thanks techgnome

My laptop crashed and could not post reply y'day. Yes I have changed code where function is called to:

If recentwork (Range ("I" & rng.Row).Value, Range ("J" &...

Sorry guys! :blush: I have amended function to below but same error in main sub,


Function recentwork(dtreleaseDate As Date, dthandoverdate As Date) As Boolean
If dtreleaseDate <=...

:) Oh! Thanks guys. I will try that just now

Hi Guys!

I have the following function where when I try and run the macro I get "Argument Not Optional" error in main macro

The part in main macro where function is called is as follows;

If...

Hi Guys!

I have VBA code that is presently looping through column B in excel and updating column A bookmarks in table in word document. I have created bookmarks (A1 to A5) in this table each in...

Very many thanks vbfbryce. I have followed your instructions and the code is behaving well.

Many thanks! :)

Many thanks for your prompt reply and code vbfbryce.
In this case the last cell of interest is one that has "STOP" in it. That is code exists when cell with STOP is activated. Is there a way of...

Hi Guys,

I am trying to develop a macro that copies cell data in a column range. However in this column range other cells are empty and I want the macro to ignore all empty cells. Ideally the...

Thanks! Seenu.

I have resolved this through
Application.WorksheetFunction.WorkDay

:)

The below code extracts a date range and updates column "I". I want to use same code to update column "M", but this time I want the code to subtract/take away 10 working days from date values in "I"....

Have tweaked the code and it works!

Just a quick question guys! I have a macro that populates cells in a a certain column with numbers. Is it possible that upon update of these cells, they are automatically multiplied by 0.5.

E.g....

You are the man Koolsid! I don't think I was even thinking straight anymore. But hey thanks to you!
This works now so can move on to next stage.

Many thanks! :)

You are the man Koolsid! I don't think I was even thinking straight anymore. But hey thanks to you!
This works now so can move on to next stage.

Many thanks! :)

G9,11,12,15 and 18 should also be returning a value right i.e. 1 for all the others and 2 for G18?
But at present there's nothing

Can not thank you enough Koolsid. Here's my attached test doc.
I have it running but for some reason it has put only zeros in some cells in column G. See attached file. I have only realised that...

Awesome! That code you've highlighted, maybe I got it muddled up as I had tried to record a macro too. As of the cells, It's my error again in my thread. The code should merely count the cells with...

Thanks! Koolsid

SumOfColoredCells = SumOfColoredCells + MyrngColors.Value

On debug this gives overflow error 6, any ideas what this is?

The first one should be looking into column C until it gets STOP then should exit.

The second bit should look into entire row for colored cells whilst code iterates from cell C8 in Column C until...

Thanks Koolsid!

I have come up with the following code, it doesn't give error messages but is not putting value in column G i.e. sum of all colored cells and stepping into it (F8) runs endlessly....

Westconn1

Background color is just a manual fill by user.

Many thanks!

Hi Adrian

Many thanks for you reply. Perhaps my title and thread are not as clear and I'm still a VBA novice. What I want is for code to look into C8 then if there is value it looks for colored...

Hi guys!

From below, once I manage to select 100 cells to the right, how do I then look into these selected cells to see if they have a background color other than black. Total the sum of coloured...

Hi,

Am not sure what I'm trying to achieve is realistic. I want to run through a specific column (column B) and when cell reads begin, the macro works through all cells with data in this column...

Many thanks guys. I tried changing the date format and yes it works Seenu.
Resource Dragon, I'll try and put something that converts the dot to slashes or hyphens.

Really appreciate all your...

Thanks! I'm currently out and will try this when i get back home and will let you know how i get on! Thanks for your great help.