Create 3D Cell References with Macro

SamanthaSkilltec

New Member
Joined
Apr 11, 2019
Messages
20
Hi all... me again *sigh*

I am trying to create a macro that will create a 3d-reference to another sheet - all references need to be added to the sheet 'Reminders' and will be based on the values in the active row on the active sheet.

I kinda had two macros that did bits of what I wanted and I've tried to put it all together but to no avail... I'm not getting debug messages anymore (yay) but the only part that's working is the part copying the contents of Cell A1 on the active sheet into the last empty row of column A on Reminders... nothing else happens.

I'll be so, SO super grateful if anyone can help!

TIA!

Samantha

Sub cellRefTEST()
'
Dim lastrow As Long


With ThisWorkbook.Worksheets("Reminders")
lastrow = FormulaR1C1 = "=ActiveSheet!R[ActiveCell.Row]C[1]"
'(2, .Cells(.Rows.Count, "B").End(xlUp).Row + 1)

'.Range("B" & lastrow).
'Range("A" & ActiveCell.Row).Value =
'FormulaR1C1 = "=ActiveSheet!R[ActiveCell.Row]C[1]"
'.Resize(, 16).Value = _


'.Resize(, 16).Value

Dim R As Range
'Range("A1:E1").Copy

Set R = Worksheets("Reminders").Cells(Rows.Count, 1).End(xlUp) 'last cell in Column A with data
If Len(R.Value) > 0 Then Set R = R.Offset(1)
R.Value = ActiveSheet.Range("a1").Value
End With
End Sub
 

Excel Facts

How can you turn a range sideways?
Copy the range. Select a blank cell. Right-click, Paste Special, then choose Transpose.
Only a guess, based on the bits of code posted:

Worksheets("Reminders").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 16).Formula = "='" & ActiveSheet.Name & "'!A" & ActiveCell.Row
 
Upvote 0
Only a guess, based on the bits of code posted:

Worksheets("Reminders").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 16).Formula = "='" & ActiveSheet.Name & "'!A" & ActiveCell.Row

PERFECT!!!

Thank you so much! This was the last major thing to sort out for this project!! :)

Many thanks

Samantha
 
Upvote 0

Forum statistics

Threads
1,213,491
Messages
6,113,963
Members
448,536
Latest member
CantExcel123

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top