Posts by Reafidy

Cross Post

Please read the rules regarding cross posting.

Cross posted here.

Cross posted here

Please start a new thread with your question.

Ok so try:

[VBA]
Sub Macro1()
Dim lRowStart As Long

Application.ScreenUpdating = False

lRowStart = 22

With Sheet1
.Rows(lRowStart).AutoFilter Field:=1, Criteria1:="1"
.Rows(lRowStart).Columns(2).Offset(1).Resize(.AutoFilter.Range.Rows.Count).Copy Sheet2.Range("A1")
.UsedRange.AutoFilter
End With

Application.ScreenUpdating = True

End Sub [/VBA]

Another way is using excels built in features:

[VBA]Sub Macro1()
Dim lRowStart As Long

Application.ScreenUpdating = False

With Sheet1
.Rows(lRowStart).AutoFilter Field:=1, Criteria1:="1"
.Rows(lRowStart).Columns(2).Offset(1).Resize(.AutoFilter.Range.Rows.Count).Copy Sheet2.Range("A1")
.UsedRange.AutoFilter
End With

Application.ScreenUpdating = True

End Sub[/VBA]

Quote from skywriter

Maybe things like this led to it.

Actually we use to be a lot less tolerant, numbers were at there highest and content was at its best. But you weren't here so you wouldn't know. If you are asking though, I believe it was mainly the decision to take the forum to paid questions.

Quote from AliGW

I dared to say that I found the interface problematic at the very start and was shot down in flames.

Oh stop being such a drama queen Ali, its getting tiresome. It was a mere suggestion on my behalf that you take a little time to try and get use to it first, that's all, nothing more - so leave it at that please. We were busy working on bugs and other stuff at the time anyway, it was never an attempt to stop you voicing your opinion.

It is concerning that many of you are finding the interface hard to navigate and we do take your comments on-board. We will certainly do whatever we can to try and improve it.

Quote from vbtest

The short version of that ramble is - don't see how it looks now as how it will always look, it can always be tweaked and improved.

Precisely, thank you for your ongoing support Mark.

Ozgrid was once the busiest excel forum on the net, unfortunately there were a number of factors that led to its decline in numbers. These numbers were declining before the upgrade and the upgrade was a best intended attempt and improving those numbers.

DiogoCuba,

Please send me a private message with a current email address, your email address listed is bouncing emails back to me.

OK, I will look into this for you.

Your welcome!

Quote from stakhui

Sorry that I crossposted as i wasn't aware that excelforum.com and ozgrid.com is the same forum. My apologies for not putting the code with the [CODE]. I hope that I have done it right this time. I have tried debugging it and been googling it for the past 2 days.

We are not the same forum, we have members that use both forums. Your comment suggests you still do not understand why cross-posting is an issue. Make sure you read the link posted above by Alan.

maichal,

This question is still asking too much of a free help forum. Please read this article:

https://mattgemmell.com/what-have-you-tried/

If you want help with a complete project rather than a single question then please see the hire help forum:

http://www.ozgrid.com/forum/forum/hire-help

Please read post 6.

Then start a new thread with a single question.

Re: Adjust Search Macro to Search Across Multiple Sheets

Hi Craigside. You should see the reputation button now. Thanks.

Re: Is this Possible

You have posted in the hire help section. Please state the amount you are willing to pay.

Re: Requesting a Review of a Spreadsheet

Cytop, I skimmed what you wrote after the horizontal rule as well, thinking it was a signature.

Re: Requesting a Review of a Spreadsheet

I havnt looked at your file yet as im on a mobile, but what happens if the user disables macros before opening the workbook. Are you still protected?

Re: VBA Code to find matching cell text in a different sheet and copy paste that colu

You were using trim in your sample code so I presumed it was a requirement and that your headings may have white spaces. xlup looks for the next used cell above the last cell in the column.

Re: VBA Code to find matching cell text in a different sheet and copy paste that colu

Try this:

Sub HTH()
    
    Dim rCell As Range
    Dim rFind As Range
    Dim iColumn As Integer
    
    For Each rCell In Sheets("StaticData").Range("E4", Sheets("StaticData").Cells(Rows.Count, "E").End(xlUp))
    
       Set rFind = Sheets("NewData").Rows(1).Find(What:=Trim(rCell.Value), _
            LookIn:=xlValues, _
            LookAt:=xlWhole, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, _
            MatchCase:=False)
            
            If Not rFind Is Nothing Then
            iColumn = iColumn + 1
                Sheets("NewData").Columns(rFind.Column).Copy Sheets("NewColumns").Columns(iColumn)
            End If
    Next rCell




End Sub