![]() |
#1
|
|||
|
|||
![]()
please help me on this
Firstly , Cell B1 will take the value from A1 then if A1 value changed ,the new value will be in Cell B2.(B1 will not change) if A1 changed again ,it's value will be in Cell B3.(B1,B2 will not change) if A1 changed Again ,it's value will be in Cell B4.(B1,B2,B3 will not change) and so on please can you do it by formula, if not by VB macro. thank you in advance Reda. |
#2
|
|||
|
|||
![]()
Hello theexpat
I'm one of those as well ![]() Put this code in the sheet module by right clicking the sheet tab, click view code & paste it in the module. Enter whatever in A1 press enter & do it again etc Cheers Code:
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Target2 As Range Dim Lrow As Long Set Target2 = Me.Cells(1, 1) ' Cell A1 On Error GoTo ExitOut If Not Intersect(Target, Target2) Is Nothing Then Application.EnableEvents = False If IsEmpty(Target2.Offset(, 1)) Then Target2.Offset(, 1) = Target GoTo ExitOut Else Lrow = Me.Columns(2).Find(What:="*", LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, searchdirection:=xlPrevious, _ MatchCase:=False, SearchFormat:=False).Row Target.Offset(Lrow, 1) = Target2 GoTo ExitOut End If Else GoTo ExitOut End If ExitOut: Application.EnableEvents = True On Error GoTo 0 Exit Sub End Sub |
#4
|
|||
|
|||
![]()
No Probs
![]() |
#5
|
|||
|
|||
![]()
One more help please
I want to make it for any cell. |
#6
|
|||
|
|||
![]()
What do you mean? Explain please
|
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
msnarayanan | Excel | 4 | 07-29-2015 06:16 AM |
![]() |
Holgate1967 | Excel | 1 | 11-29-2013 09:37 AM |
Changing resources against tasks with actual values | joday48 | Project | 3 | 06-28-2012 05:13 AM |
Change values in cells based on criteria | SaneMan | Excel Programming | 2 | 02-02-2012 07:58 AM |
HELP! Powerpoint is changing my RGB values! | christine | PowerPoint | 0 | 07-04-2011 09:25 AM |