KjBox OzMVP - Super Moderator

  • Male
  • from Kuching, Borneo
  • Member since Jan 10th 2007
Reactions Received
Profile Hits
  • This mate is a Wizard with the lines!!!

  • Hi I trust you and your Family are keeping well

    I tried to send something on Whats app but it needed a code from you now.

  • Hi Charles

    How are you and your Family going keeping well I trust ?????

  • hello Charles, hope you are well.

  • KjBox is excellent......has helped me so much with VBA codes. A real expert. Thanks for everything.

    • Hi,

      in this code, i would like the data to paste in Values Format .this code copy formulas on destination sheet. i want to copy only values not formula. Could you please help me on this.

      Thanks in advance

      Sub CopySelectedRows()

      Dim rCopy As Range

      Dim lAreas As Long

      On Error Resume Next

      Set rCopy = Application.InputBox("Select Rows to copy. " _

      & "Use Ctrl for non-contiguous rows", "COPY ROWS", Selection.Address, , , , , 8)

      On Error GoTo 0

      If rCopy Is Nothing Then Exit Sub 'Hit Cancel

      If rCopy.Columns.Count <> Columns.Count Then

      MsgBox "Please select entire row(s)"

      Run "CopySelectedRows"


      For lAreas = 1 To rCopy.Areas.Count

      rCopy.Areas(lAreas).Copy Sheet18.Cells(Rows.Count, 1).End(xlUp)(2, 1)

      Next lAreas

      End If