Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Problems with filtering and output


Hi Guys,

I've got 2 problems with my vba code.

Description of my spreadsheet : The spreadsheet has 2 worksheets.
Worksheet A has 4 columns (descr, cl, il, and a1). All the columns
except for the descr column contain crosses (x). Worksheet B is a
worksheet where I have to post results (it's an output page).

Problems :
1. I've got to filter the descriptions (column descr) based on the
crosses in the columns cl, il and a1. However, filtering should be
based on the following rules :
Descr A : cl x, il, a1 x -- output because there is a cross in column
cl
Descr B : cl, il, a1 -- not sent to output because there are no
crosses
Descr C : cl, il x, a1 x -- output because there is a cross in columns
il and a1

2. I want to put the output from problem 1 in a single field in
worksheet B. The output will contain a list of descriptions.

Can someone help me to build this VBA code please ?

Floep


--
floep
------------------------------------------------------------------------
floep's Profile: http://www.excelforum.com/member.php...o&userid=36853
View this thread: http://www.excelforum.com/showthread...hreadid=565612

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 6,953
Default Problems with filtering and output

Sub ABC()
Dim cell as Range, rng as Range
Dim s as String
with worksheets("worksheet A")
set rng = .Range(.Cells(2,1),.Cells(rows.count,1).End(xlup))
End with
for each cell in rng
if cell.offset(0,1).Value = "x" or _
cell.offset(0,2).Value = "x" and _
cell.offset(0,3).Value = "x" then
s = s & cell.value & vbNewLine
end if
Next
Worksheets("Worksheet B").Range("B9").Value = s
End Sub

--
Regards,
Tom Ogilvy



"floep" wrote:


Hi Guys,

I've got 2 problems with my vba code.

Description of my spreadsheet : The spreadsheet has 2 worksheets.
Worksheet A has 4 columns (descr, cl, il, and a1). All the columns
except for the descr column contain crosses (x). Worksheet B is a
worksheet where I have to post results (it's an output page).

Problems :
1. I've got to filter the descriptions (column descr) based on the
crosses in the columns cl, il and a1. However, filtering should be
based on the following rules :
Descr A : cl x, il, a1 x -- output because there is a cross in column
cl
Descr B : cl, il, a1 -- not sent to output because there are no
crosses
Descr C : cl, il x, a1 x -- output because there is a cross in columns
il and a1

2. I want to put the output from problem 1 in a single field in
worksheet B. The output will contain a list of descriptions.

Can someone help me to build this VBA code please ?

Floep


--
floep
------------------------------------------------------------------------
floep's Profile: http://www.excelforum.com/member.php...o&userid=36853
View this thread: http://www.excelforum.com/showthread...hreadid=565612


Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Filtering and Text/number problems Jugglertwo Excel Discussion (Misc queries) 3 September 26th 08 06:24 PM
filtering problems KW Excel Worksheet Functions 1 May 29th 08 05:20 PM
Problems with filtering and output floep[_2_] Excel Programming 3 July 28th 06 12:49 PM
Problems with filtering and output floep Excel Programming 1 July 27th 06 03:45 PM
Problems with filtering!! Barry Jive Excel Programming 3 June 22nd 05 08:50 AM


All times are GMT +1. The time now is 07:59 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"