Run-Time error '438': Object Doesn't support this property or method

[Peter Thompson]

Hello,

I am getting a run-time error and I dont understand the reason why. The error occurs at the point "Selection.paste" , which I have bolded. I don't understand why it is failing as it has copied the data and selected the correct cell. This is driving me mad, please help!


Sub import2()
Worksheets("WWBDALL").Select
Range("b2").Value = FileDateTime("S:\Logistic\2. Demand and Capacity Planning\Lifestyle Demand - MK\Drops & Selects\Downloads\wwbdall.csv")
If Range("B1") < Range("B2") Then
Workbooks.Open Filename:= _
"S:\Logistic\2. Demand and Capacity Planning\Lifestyle Demand - MK\Drops & Selects\Downloads\wwbdall.csv"
Range("A1:J60000").Select
Selection.Copy
Windows("WWBSALL Master.xls").Activate
Range("A5").Select
Selection.Paste
Range("a5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete
Range("a5").Select
Else
End If
End Sub

 

[RoryA]

Try:

Activesheet.Paste

instead of Selection.Paste.

 

[Peter Thompson]

Thanks that worked great. I would be interested to know why the code I was was originally using failed so I could avoid making the same error in the future.

 

[RoryA]

The Range object (which is what you had selected) does not have a Paste method, only a PasteSpecial one. The Worksheet object does have a Paste method though.

 

[darkdragonnet]

Sub TimKiemNoiDung(ByRef Arr() As Integer, ChuoiTim As String)

Dim j As Integer

j = 1
Sheets("Sheet1").Select
Range("a1").Select
'stringsearch = "Kinh Sách"
Do
Cells.Find(What:=ChuoiTim, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
If Arr(1) = ActiveCell.Column Then
Arr(0) = j - 1
GoTo EndTimKiemNoiDung
End If

Arr(j) = ActiveCell.Colum
j = j + 1

Loop
EndTimKiemNoiDung:

End Sub

Help me. I'm error on line Arr(j) = ActiveCell.Colum

 

[CharlesChuckieCharles]

TypO

Arr(j) = ActiveCell.Colum


Arr(j) = ActiveCell.Column

 

[darkdragonnet]

Thanks

I'm careless.