Can you explain this code snipet? 1

[snowcold]

I have been researching different code snipets to copy text from one worksheet to another and I have this one snipet ...but I do not quite understand what is going on...

 Lastcol = sh.Cells.Find(What:="*", _
                            After:=sh.Range("A1"), _
                            Lookat:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByColumns, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Column

and this

For Each sh In Worksheets
    If sh.UsedRange.Count > 1 Then
       Last = Lastcol(WS)
       With sh.Columns("A:A")
         WS.Columns(Last + 1).Resize(, _
         .Columns.Count).Value = .Value
         WS.Columns(Last +1 ).Columns.AutoFit
       End With
   End If
Next

 

[PHV]

The F1 key with the cursor inside the appropriate keyword (like Find, UsedRange, Resize, ...) didn't help ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[snowcold]

very cool, unaware of this...

 

[firefytr]

Also, the LastCol part is finding the last used column (which contains data) in the specified sheet (in this case "sh"). This is NOT the same thing as Excel's Last Cell [column]. To see what I mean, press F5 | Special | Last Cell. If you've added/deleted data, this may go past your actual last column. The way you've posted via code is probably the most accurate way to detect the last cell (column). To do rows, just change two parts...

LastRow = sh.Cells.Find(What:="*", _
                            After:=sh.Range("A1"), _
                            Lookat:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Row

HTH

-----------
Regards,
Zack Barresse