About Us

axel

Solved this way
Set m = y.Offset(20, 0)

Set m = y.Offset(8, 0)

Thanks
--
Copy & paste developer

"JLGWhiz" wrote:

Set m = x.Offset(20, 0)

Set m = x.Offset(8, 0)

The two lines above are attempting to Offset from an object variable that
has not yet been defined. x is an empty object variable at this point in
the code.

"Axel" wrote in message
...
Hi!
I struggle to make the offset method to change with the selected case.
anyone that can se what am doing wrong?

Sub kopi()

Dim x As Range
Dim y As Range
Dim Stilling
Dim m As Range

Stilling = Sheet1.Range("E3").Value

Select Case Stilling

Case "Senior Boresjef"
Set y = Sheet2.Range("B2:M2")
Set m = x.Offset(20, 0)

Case "Vedlikeholdsleder"
Set y = Sheet2.Range("B14:M14")
Set m = x.Offset(8, 0)

Case Else
MsgBox "Select a job description"

End Select

For Each x In y
If Not IsEmpty(x) Then
m.Resize(6, 1).Copy

Sheets("Skjema").Select
Run "lim"
End If

Next
End Sub
Sub lim()
Dim rngDestination As Range

Set rngDestination = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
rngDestination.Select

Selection.PasteSpecial Paste:=xlValue, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

End Sub
--
Copy & paste developer

.

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
OFFSET PROBLEM	txm49	Excel Discussion (Misc queries)	2	October 11th 07 08:15 PM
offset problem	jjordan	Excel Programming	2	May 24th 07 01:50 PM
Summing multiple hits using match, offset and index method	[email protected]	Excel Programming	2	March 8th 06 09:35 AM
Offset Method and Interpreting Absolutes in Range Objects	ExcelMonkey	Excel Programming	7	February 8th 06 11:09 PM
Can I use a defined integer in an OFFSET method?	BrookStevenson	Excel Programming	1	March 23rd 05 03:00 AM

Menu

About Us