Avoiding copy/paste, selection to transfer data in VBA

[ItalianPlatinum]

Looking for a way to transfer a set of data over to another sheet after i set a filter without copy, selecting or pasting.

1. Sheet 1: filtered to not show blanks
   1. Want to transfer the data left showing
2. Sheet 2: Where I want to transfer the data to
3. Columns match up like this:
   1. Column A to Column A13 down
   2. Column I to Column B13 down
   3. Column J to Column C13 down
   4. so on and so on.....

 

[Peter_SSs]

I think the

("A" & nr)

is suppose to be

("A" & nrDist)

right?

Yes, I have edited to correct that now. Thanks for picking that up.

Below looks like it would work but i get runtime 1004 at here

If k=0 then the problem is occurring before this line of code. Looks like below would be an issue

If UCase(vRows(i, 1)) = "Yes" Then

.

That will never be true. It would need to be

If UCase(vRows(i, 1)) = "YES" Then

 

[ItalianPlatinum]

Interesting didn't realize Yes vs YES was that significant. I have made that change. if the column is True/False will YES still work or should I put it as TRUE? I am getting the same error message at same spot I hope having blank data in those columns are not interfering here?

 

[ItalianPlatinum]

if the column is True/False will YES still work or should I put it as TRUE?

That is what it was. I will test in full tomorrow (start to end). unfortunately I wont be near my computer the rest of the day to test.

 

[Peter_SSs]

didn't realize Yes vs YES was that significant.

UCase(vRows(i, 1))

means upper case vRows(i, 1)

 

[ItalianPlatinum]

means upper case vRows(i, 1)

i am curious how this satifies. even though YES and TRUE are different they interact the same? does the opposite of NO and FALSE also apply?

If vRows(i, 1) And UCase(vRows(i, 2)) = "YES" Then

 

[Peter_SSs]

even though YES and TRUE are different they interact the same?

I think that you are misunderstanding the syntax
If vRows(i, 1) And UCase(vRows(i, 2)) = "YES" Then
is the same as
If vRows(i, 1) = TRUE And UCase(vRows(i, 2)) = "YES" Then
Both the red part and the blue part have to individually evaluate to TRUE for the code to proceed to whatever follows in the next line.

However, since vRows(i,1) is a logical value of TRUE or FALSE it is pointless the red part above saying
If TRUE = TRUE then TRUE
or
If FALSE = TRUE then FALSE
since the final bold result is identical to the initial bold value, which is the value already held in vRows(i,1)

 

[ItalianPlatinum]

So that was very helpful it made me realize i was failing on the 2nd iteration of code because i was doing this:

If (vRows1(ii, 1)) = "TRUE" Then

when in reality it should be something like this as its already a logical value

If (vRows1(ii, 1)) Then

 

[Peter_SSs]

Ah, looks like post #51 was forgotten.