Posts by kemas

Re: Apply filtering to multiple columns in a Pivot Table

Thank you
in 2007
what is Alternative

Re: Apply filtering to multiple columns in a Pivot Table

any help?

Re: Apply filtering to multiple columns in a Pivot Table

forum.ozgrid.com/index.php?attachment/35778/thanks AAE

l=please see this file

[Blocked Image: http://posterous.com/getfile/files.posterous.com/mennah/Q3HJX6IgKf5X2hGqe3vBGnm7jT4GvEulNv5sFfaMzkrDo1755NcC9izcTo1p/Capture22121.jpg]

I have a pivot table
how to use " Or" in two columns when we make filter

I want to view all rows which
Column1 = "cat" [COLOR="red"]Or[/COLOR] column2 = "cat"

Not
Column1 = "cat" [COLOR="red"]AND[/COLOR] column2 = "cat"

By code or any way
Thanks!

Re: Remove repeated words from column A

Range("a:a").RemoveDuplicates 1, xlYes

Re: Populate multiple cells using corresponding drop down list

this in test b24
=VLOOKUP($A$24;MaterialData;COLUMN())

[COLOR="red"]EDIT by Moderator: Do not use code tags on formulas. They are reserved for VBA code only[/COLOR]

Re: Display value from cell at different worksheet

thank you AAE

it is working better with me in

Private Sub Worksheet_Change(ByVal Target As Range)

Re: MsgBox code is not executed

PCI

i want to ask u about this line in autofilter code

With ActiveSheet.AutoFilter[COLOR="red"].Filters(2[/COLOR])

What is first filter
What is second filter

If you please
Can u give me a simple example to this in a sheet?

And I am waiting for your answer

very thanks

Re: Delete all cells with zeros in two worksheets

if we delete Hidden cells
can we use

.UsedRange.Offset(1, 0).EntireRow.Delete

Re: Delete all cells with zeros in two worksheets

I want to ask you AAE

why we use xlCellTypeVisible

Re: Determine a Non-contiguous columns range

very good

this use union to do this

that is selects 3 column

when we copy this
and paste it in other sheet

the paste is
column b
column c
column v

we want past is b,v,c

thanks

i merge ur code with my code to paste

b,c,v

to

b,v,c

as we want

see this

it is a gold code

Sub test()
Dim r1 As Range
Dim r2 As Range
Dim r3 As Range
Dim lastrow As Long
Dim r4 As Range
lastrow = Sheets(1).Range("b" & Rows.Count).End(xlUp).Row
Dim myrng As Range
Set r1 = Sheets(1).Range("B2:B" & lastrow)
Set r2 = Sheets(1).Range("v2:v" & lastrow)
Set r3 = Sheets(1).Range("g2:g" & lastrow)
Set r4 = Union(r1, r2, r3)
Sheets(2).Cells.ClearContents
With r4
For i = 1 To 3
r4.Areas(i).Copy Sheets(2).Cells(1, i)
Next i
End With
Set r1 = Nothing
Set r2 = Nothing
Set r3 = Nothing
Set r4 = Nothing
End Sub

i used this code to Determine a Non-contiguous columns range
column b,c,v

i want last row in all column = a variable = last row

i used this code

Sub test()
Dim lastrow As Long
lastrow = Sheets(2).Range("b" & Rows.Count).End(xlUp).Row
Dim myrng As Range
Set myrng = Sheets(2).Range("B6:C" & lastrow, "V5:V" & lastrow)
myrng.Select
End Sub

but it selects all columns from b to v = 21contiguous columns

i want to select just 3 columns
b,c and v all to lastrow

it is very important to me
thanks

Re: Copy and paste non-consecutive ranges

SORRY mikerickson IT IS NOT WORKING WITH ME

THIS IS MY CODE
AND IT IS WORKING GOOD
IT IS A VERY SIMPLE AND GOOD CODE

For i = 1 To 3
Range("KEMAS2").Areas(i).Copy Destination:=Sheets(2).Cells(2, i)
Next i

Re: Copy and paste non-consecutive ranges

Copy and paste non-consecutive ranges
that is better

===
PCI thank u for your rePlay
mikerickson thanks i'm trying your code and i will return to u

I have a non-consecutive range like this

KEMAS2  =SHEET1!$[COLOR="red"]B[/COLOR]$1:$[COLOR="red"]B[/COLOR]$14;SHEET1!$[COLOR="red"]E[/COLOR]$1:$[COLOR="red"]E[/COLOR]$14;SHEET1!$[COLOR="red"]C[/COLOR]$1:$[COLOR="red"]C[/COLOR]$14

column b,e,c
i copy it and paste to other sheet by this code

Range("KEMAS2").Copy Destination:=Sheets(2).Range("A1")

the code paste it
b,c,e

how can i paste it as it's columns order

b,e,c

Re: Autofilter in blank column not working

Ok!
thank you Batman
I will try this
what is 2 A & 4 means (aa4:aa" & last row)

i know aa = all the rows in column a

Re: Autofilter in blank column not working

my file is too big

when i make a sample file
it is working right
but it is not in my file

it is the same code
what is the Possible reasons to disable it?
see that file

Re: Autofilter, show all if criteria is blank.

Ger Plante

see this

Re: Autofilter in blank column not working

any help?

Re: Autofilter in blank column not working

Thanks Krishnakumar
when i used "<>"
the result must be (0)
but the result is all the rows in column (178 rows)