Consulting

Results 1 to 2 of 2

Thread: Macro for moving the columns

  1. #1
    VBAX Regular
    Joined
    Feb 2017
    Posts
    21
    Location

    Macro for moving the columns

    Hello, I created a macro for the purpose of checking whether there are columns with specific string my spreadsheet and in case there are, the macro should copy those columns into columns I-M. The problem is that my macro copy only the first value found into the entire column. Is there any way I could make it work? Thanks.
    Sub Find()
        Dim rngFound As Range
        With Worksheets(3).Range("h:xy")
            Set rngFound = .Find(What:="Pos", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    
            Columns("i").Value = rngFound.Value
            Columns("j").Value = rngFound.Offset(0, 1).Value
            Columns("k").Value = rngFound.Offset(0, 2).Value
            Columns("l").Value = rngFound.Offset(0, 3).Value
            Columns("m").Value = rngFound.Offset(0, 4).Value
        
        End With End Sub

    Attached Files Attached Files

  2. #2
    Knowledge Base Approver VBAX Guru
    Joined
    Apr 2012
    Posts
    4,369

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •