Copy a value of a cell into a certain cell based on value entered...

MarcSwift

New Member
Joined
May 21, 2011
Messages
23
Good evening all,

The title sounds confusing so please let me try to explain.

What I am trying to achieve is...

When I type in a certain number (lets say "123") into one of those blank cells below into a sheet named "April", I would like the date above "123" to be copied and pasted into another sheet named "Annual Leave Taken" but only next to the next available cell in that row which has "123" it in.

Sheet "April"
1642186981175.png


Sheet "Annual leave taken"
1642186957487.png


Any help with this would be absolutely brilliant as I have been trying all sorts of codes and using userforms to input the data but can't for the life of me work it out.

Many thanks for your time.

Marc
 

Attachments

  • 1642186419644.png
    1642186419644.png
    4.7 KB · Views: 3
  • 1642186682492.png
    1642186682492.png
    5.1 KB · Views: 3
  • 1642186816484.png
    1642186816484.png
    4.4 KB · Views: 3

Excel Facts

Which Excel functions can ignore hidden rows?
The SUBTOTAL and AGGREGATE functions ignore hidden rows. AGGREGATE can also exclude error cells and more.

tonyyy

Well-known Member
Joined
Jun 24, 2015
Messages
1,784
Office Version
  1. 2010
Platform
  1. Windows
You might consider the following...

VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim ws1 As Worksheet, ws2 As Worksheet
Dim LastRow1 As Long, LastCol1 As Long, LastCol2 As Long
Dim n As Long

Set ws1 = Sheets("April")
Set ws2 = Sheets("Annual leave taken")
LastRow1 = Cells(Rows.Count, 1).End(xlUp).Row
LastCol1 = Cells(2, Columns.Count).End(xlToLeft).Column

If Not Intersect(Target, Range(Cells(4, 2), Cells(LastRow1, LastCol1))) Is Nothing And Target <> "" Then
    n = Application.Match(Target, ws2.Columns(1), 0)
    LastCol2 = ws2.Cells(n, Columns.Count).End(xlToLeft).Column
    ws2.Cells(n, LastCol2 + 1) = ws1.Cells(3, Target.Column)
End If

End Sub

The code should be pasted into the April sheet module, not a standard module.

Please note, the sheet "Annual Leave Taken" is first-letter capitalized in your description yet first-word capitalized on your sheet picture; please make sure the actual sheet name matches that in the code.

Also note, deleting a number from the April sheet will not have any effect on the Annual leave taken sheet.

Cheers,

Tony
 

Forum statistics

Threads
1,181,427
Messages
5,929,828
Members
436,697
Latest member
sunnypl

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
Top