Range problem

[ppapp44]

Dear Team!

Finally I have only a very short test code to test range (for copy).
I tried R1C1 and the original style but the range object doesn't work.

"Method "range" of Object '_global' failed" (1004) or (I used "A1" as well) "object variable or with block variable not set" (91) and (somehow) "Application defined or object defined error"
RefernceStyle R1C1 is on or off (the message is different but the problem is the same
In this case the Cells(1,1) shows the content of A1.
I have multi language (Hungarian and English) Win10, Office 2013. I implemented the TBarCode Add-ins (30daysdemo) a fewdays ago.

This the code:
'Application.ReferenceStyle = xlR1C1
Worksheets("eladas").Select
Dim rng As range
rng = ThisWorkbook.Worksheets("eladas").range(Cells(1, 1))
Worksheets("eladas").rng.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Cikktorzs").Select
ActiveSheet.Paste

For Index = 1 To 500
Debug.Print Error$(Index)
Next Index

 

[gallen]

When setting an object you must use the 'Set' keyword so it should read

[B][COLOR=#ff0000]Set[/COLOR][/B] [COLOR=#333333][FONT='inherit']rng = ThisWorkbook.Worksheets("eladas").range(Cells(1, 1))[/FONT][/COLOR]

 

[Caleeco]

You could simplify the code to something like this:

Sub CodeReduction()
Dim wsEladas As Worksheet, wsCikktorz As Worksheet

Set wsEladas = ThisWorkbook.Worksheets("eladas")
Set wsCikktorz = ThisWorkbook.Worksheets("Cikktorzs")

wsEladas.Cells(1, 1).Copy wsCikktorz.Cells(1, 1)

For Index = 1 To 500
    Debug.Print Error$(Index)
Next Index

End Sub

Generally there's no need to select ranges before you apply a method (like COPY).

Hope that helps
Caleeco

 

[Norie]

Not sure what you are doing with rest of the code but for rng try this.

Dim rng As range

    Set rng = ThisWorkbook.Worksheets("eladas").Cells(1, 1)

    rng.Copy