Hi,
The following codes selected range H1:J13 -
then I want to (remove blank cells, and) shift non-blank cells to the right (range H1:J13);
Please Login or Register to view this content.
below code shift non-blank cells to left:
How it will look a code to shift cells to the right?Please Login or Register to view this content.
ps. see the attach
Last edited by markos97; 07-09-2013 at 03:52 PM.
Maybe:
Please Login or Register to view this content.
Hi Markos..
Can you please check, if below code is doing your purpose..
Please Login or Register to view this content.
Regards!
=DEC2HEX(3563)
If you like someone's answer, click the star to give them a reputation point for that answer...
thanks Debraj Roy, but this 3 columns is only an example (I have many columns);
JOHN H. DAVIS, your code works good, but something is wrong, see the results after run your code, looks like... (see the next attach)
ps. in lineI change toPlease Login or Register to view this content.ps. marco doesn't work to more than 3 columns...Please Login or Register to view this content.
Last edited by markos97; 07-09-2013 at 10:15 AM.
It looks like you selected 4 columns, the code was for 3 columns.
yes,
your code works good for this 3 columns
(but must select only one column - column H:H - to get correct results) - sorry (I select all 3 columns)...
but... I need a macro to work on more than 3 columns...
Hi Markos..
Try this..
change color are to set your rangePlease Login or Register to view this content.
thanks Debraj Roy,
but... your code do the same as below code:
both codes only reverse horizontally the range, changing cells order...Please Login or Register to view this content.
codes related to yours: http://stackoverflow.com/questions/9...with-excel-vba
Last edited by markos97; 07-10-2013 at 01:53 PM.
any other help?
Sample sheet with expected output.. we cant run macro on JPG..
OK, Debraj Roy, see the attach, in ThisWorkbook, "my" codes, like this:
In sheet 1 (Arkusz1) - my input data,Please Login or Register to view this content.
In sheet 2 (Arkusz2) - how looks my output data (but remember we operate on a single sheet - in this case, to show the essence of things - is presented on two sheets)
ok. see my attach...
HI Markos...
With a single error.. If no special cells found, still its inserting a single..Please Login or Register to view this content.
@ Other:
Can someone help me , how to catch, if no Specialcells BLANKS found
thank you Debraj,
yes your macro
generate this single error, I see it...
I noticed that the error occurs in the three longest data rows (rows number 16, 18, and 34 - in this case)
in lineI change to:Please Login or Register to view this content.- it is more convenient for me...Please Login or Register to view this content.
ps. sorry, my range is M3:AB39 (not AB:40 - but it's not important...);
hm...? so, What do we do with this error? Any ideas?
sorry , can't use "With selection",- because the code work incorrectly...
your code work great(!)but:
we must extended our range
by one empty column (to the right direction)!
(from the range M3:AB39 to the range M3:AC39,)
I did it!,- but someone know what's wrong with this code?!
see the next attach with a correct solution...
ps. in sheet2 (Arkusz2) incorrectly solution (!), let me explain:
if we use in our sheet the code first time,
in the upper right corner,
in first row, the last cell is blank
(in this case AC3 is blank!)
,but when we clear the date, and run second time our code,
the results will be perfect every time!
even after the file is closed and re-open it!
in sheet1 (Arkusz1) the data before running our code...
Last edited by markos97; 07-13-2013 at 02:12 AM.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks