Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Send multiple cell values to multiple cells
I transfer (automaticly) data form one cell to another cell. That
other cell contains no formula or what so ever. e.g. cell A1 is empty, and cell A1 contains the value 12345. I send this value to cell D1 from cell A1 or any other cell. How can I do this code for multiple cells? e.g. A1 to D1, A2 to D2, A3 to D3 ext. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Intersect(Target, Me.Range("G6")) Is Nothing Then Exit Sub On Error GoTo CleanUp Application.EnableEvents = False With Target If .Value < "" Then Excel.Range("A1").Value = Target.Value End If End With CleanUp: Application.EnableEvents = True End Sub Thanks in Advance. BR, John |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Send multiple cell values to multiple cells
Hi,
Maybe this Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Or IsEmpty(Target) Then Exit Sub On Error GoTo CleanUp If Not Intersect(Target, Range("A1:A10")) Is Nothing Then ' change to suit Application.EnableEvents = False Target.Offset(0, 3).Value = Target.Value End If CleanUp: Application.EnableEvents = True End Sub Mike "FinlandGuy" wrote: I transfer (automaticly) data form one cell to another cell. That other cell contains no formula or what so ever. e.g. cell A1 is empty, and cell A1 contains the value 12345. I send this value to cell D1 from cell A1 or any other cell. How can I do this code for multiple cells? e.g. A1 to D1, A2 to D2, A3 to D3 ext. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Intersect(Target, Me.Range("G6")) Is Nothing Then Exit Sub On Error GoTo CleanUp Application.EnableEvents = False With Target If .Value < "" Then Excel.Range("A1").Value = Target.Value End If End With CleanUp: Application.EnableEvents = True End Sub Thanks in Advance. BR, John |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Send multiple cell values to multiple cells
Hi,
Well I meant is they were scattered all over the sheet. Or maybe I don't understand your code. Because it would not work if for example. A1 to E4, A4 to G4, B3 to F5. I hope you understand. Its hard to explain. Thanks BR, John |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
auto fill multiple values in multiple cells | Excel Discussion (Misc queries) | |||
Transposing Multiple Cell References to Multiple Values (NOT total | Excel Discussion (Misc queries) | |||
Conditional Formatting of Cells with Multiple Cell Values | Excel Discussion (Misc queries) | |||
Change values in multiple cells from one cell | Excel Worksheet Functions | |||
Can I send results of a formula to multiple cells? | Excel Programming |