How to copy row and past it in to column

[tumanovr]

Dear all I have a problem. I have found a way to copy and paste specific cells if the cell is false. When I do the paste it makes as it should pastes needed cells in rows but I need that it pastes the rows in to columns and in a specific column like "F" and not "A". can you help.

her is the code:

Please Login or Register  to view this content.

[alansidman]

Code Tags Added
Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)

However, if you continue to not use code tags, you can expect to have your thread BLOCKED until you add them yourself.

[beyond Excel]

Hi tumanovr. Try with:

Sub Macro8() 
Dim a 
With Worksheets("Check In") 
  With .Range("D3", .Cells(Rows.Count, "D").End(xlUp)) 
    a = Evaluate("If(" & .Address(external:=True) & "=False, " & .Offset(, -2).Address(external:=True) & ")") 
    a = Filter(Application.Transpose(a), False, False) 
  End With 
End With 
If UBound(a) > -1 Then Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp)(2).Resize(1 + UBound(a)) = _ 
  Application.Transpose(a) 
End Sub  

[jindon]

tumanovr,

Please Login or Register  to view this content.

[tumanovr]

Thank you for the code.

It copies the text which I need and all fine but when it pastes it pastes the down but I need that it pasts to the right

This is how it pastes now

q
a
s
f
n
t
j
b
g

but I need like that

q a s f n t j b g

[beyond Excel]

... but I need like that

q a s f n t j b g

Then try this other:

Sub Macro9() 
Dim a 
With Worksheets("Check In") 
  With .Range("D3", .Cells(Rows.Count, "D").End(xlUp)) 
    a = Evaluate("If(" & .Address(external:=True) & "=False, " & .Offset(, -2).Address(external:=True) & ")") 
    a = Filter(Application.Transpose(a), False, False) 
  End With 
End With 
If UBound(a) > -1 Then Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp)(2).Resize(, 1 + UBound(a)) = _ 
  Application.Transpose(Application.Transpose(a)) 
End Sub  

[tumanovr]

Worked perfect. Thank you

[beyond Excel]

Worked perfect. Thank you

Perfect is nice : thanks for the +rep.

[jindon]

but I need like that

q a s f n t j b g

change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

[alansidman]

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Also, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.