G
Guest
I have 2 spreadheets PickX.xls and Picklist.xls
Picklist.xls is open and needs to receive data for column A only from
PickX.xls.
How do I write the code to get all of column A of PickX.xls into column A of
Picklist . I want all data whether it is numeric,blank or consisting of
characters.
I need this code to go just before the for loop that is set up in the
Picklist.xls.
Private Sub cmdRemoveEndOfData_Click()
Dim Rng As Range
Dim Rng2 As Range
Set Rng = Range("A1", Range("A65536").End(xlUp))
Set Rng2 = Range("K1")
For Each c In Rng
If Not IsNumeric(c) Then
c.Select
Selection.Cut
Rng2 = Range("K1").Select
ActiveSheet.Paste
End If
Next c
MsgBox "Mainframe character has been removed"
Range("K1").ClearContents
ThisWorkbook.Save
Call OpenTemplate
ThisWorkbook.Close
Picklist.xls is open and needs to receive data for column A only from
PickX.xls.
How do I write the code to get all of column A of PickX.xls into column A of
Picklist . I want all data whether it is numeric,blank or consisting of
characters.
I need this code to go just before the for loop that is set up in the
Picklist.xls.
Private Sub cmdRemoveEndOfData_Click()
Dim Rng As Range
Dim Rng2 As Range
Set Rng = Range("A1", Range("A65536").End(xlUp))
Set Rng2 = Range("K1")
For Each c In Rng
If Not IsNumeric(c) Then
c.Select
Selection.Cut
Rng2 = Range("K1").Select
ActiveSheet.Paste
End If
Next c
MsgBox "Mainframe character has been removed"
Range("K1").ClearContents
ThisWorkbook.Save
Call OpenTemplate
ThisWorkbook.Close