problem with selecting a range

[kbishop94]

This is on a worksheet. I am using a command button to select (I'm trying to select!) a range on another worksheet and paste it onto the worksheet where the command button is.

THIS works:

ActiveWorkbook.Worksheets("Seatex Incident Log").Cells(18, 6).Select
Selection.Copy

THESE do NOT:

ActiveWorkbook.Worksheets("Seatex Incident Log").Cells(18, 18), Cells(707, 18).Select
Selection.Copy

ActiveWorkbook.Worksheets("Seatex Incident Log").Range(Cells(18, 18), Cells(rCol, 18)).Select

the code works for selecting and copying a single cell, but not for a range.

 

[Fluff]

If you only want values try

Sub kbishop()
   Dim Ary As Variant, Data As Variant
   Dim UsdRws As Long
   
   Ary = Array(1, 4, 5, 6, 10, 17)
   With Sheets("Seatex Incident Log")
      UsdRws = .Range("B" & Rows.Count).End(xlUp).Row
      Data = Application.Index(.Range("B18:R" & UsdRws).Value, Evaluate("row(1:" & UsdRws - 17 & ")"), Ary)
   End With
   ActiveSheet.Range("B2").Resize(UBound(Data), 6).Value = Data
End Sub

 

[kbishop94]

Try this

Sub test()
  Dim lr As Long, sh As Worksheet
  Set sh = Sheets("Seatex Incident Log")
  lr = sh.Range("B" & Rows.Count).End(xlUp).Row
  sh.Range("B18:B" & lr & ",E18:G" & lr & ",K18:K" & lr & ",R18:R" & lr).Copy
End Sub

Awesome! thank you ?

 

[DanteAmor]

Again with pleasure. Thanks for the feedback