| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Copy text from cell to cell with one cell changing text
I want to copy text from cell Sheet1 B1 to cell Sheet2 C3. Then when text is
changed in cell Sheet1 B1 the new text is copied to next cell in Sheet2 columnC (cell C4) and so on. |
|
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Copy text from cell to cell with one cell changing text
Put the following in Sheet1 worksheet code:
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("B1"), Target) Is Nothing Then Exit Sub End If n = Sheets("Sheet2").Cells(Rows.Count, "C").End(xlUp).Row + 1 If n < 3 Then n = 3 End If Set r2 = Sheets("Sheet2").Cells(n, "C") Target.Copy r2 End Sub -- Gary''s Student gsnu200710 "Bobby" wrote: I want to copy text from cell Sheet1 B1 to cell Sheet2 C3. Then when text is changed in cell Sheet1 B1 the new text is copied to next cell in Sheet2 columnC (cell C4) and so on. |
|
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Copy text from cell to cell with one cell changing text
Works but I need adjustments. 1 How do I change format when text is moved to
C3. I tried conditional formating but it does not allow to change font. 2 The formula I used for C3 is CELL "contents" Is this correct? 3 I have a drop down button in B1. When text was copied to C3 the drop down followed. How do I eliminate that? Thanks "Gary''s Student" wrote: Put the following in Sheet1 worksheet code: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("B1"), Target) Is Nothing Then Exit Sub End If n = Sheets("Sheet2").Cells(Rows.Count, "C").End(xlUp).Row + 1 If n < 3 Then n = 3 End If Set r2 = Sheets("Sheet2").Cells(n, "C") Target.Copy r2 End Sub -- Gary''s Student gsnu200710 "Bobby" wrote: I want to copy text from cell Sheet1 B1 to cell Sheet2 C3. Then when text is changed in cell Sheet1 B1 the new text is copied to next cell in Sheet2 columnC (cell C4) and so on. |
|
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Copy text from cell to cell with one cell changing text
Removing the drop-down is easy.
What kind of formattting do you wish to apply to C3 (and on down) after the paste?? -- Gary's Student gsnu200710 "Bobby" wrote: Works but I need adjustments. 1 How do I change format when text is moved to C3. I tried conditional formating but it does not allow to change font. 2 The formula I used for C3 is CELL "contents" Is this correct? 3 I have a drop down button in B1. When text was copied to C3 the drop down followed. How do I eliminate that? Thanks "Gary''s Student" wrote: Put the following in Sheet1 worksheet code: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("B1"), Target) Is Nothing Then Exit Sub End If n = Sheets("Sheet2").Cells(Rows.Count, "C").End(xlUp).Row + 1 If n < 3 Then n = 3 End If Set r2 = Sheets("Sheet2").Cells(n, "C") Target.Copy r2 End Sub -- Gary''s Student gsnu200710 "Bobby" wrote: I want to copy text from cell Sheet1 B1 to cell Sheet2 C3. Then when text is changed in cell Sheet1 B1 the new text is copied to next cell in Sheet2 columnC (cell C4) and so on. |
|
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Copy text from cell to cell with one cell changing text
Formatting is different in column C - pattern, font, no drop down arrow and
so on. I tried format and conditional formatting. Thanks "Gary''s Student" wrote: Removing the drop-down is easy. What kind of formattting do you wish to apply to C3 (and on down) after the paste?? -- Gary's Student gsnu200710 "Bobby" wrote: Works but I need adjustments. 1 How do I change format when text is moved to C3. I tried conditional formating but it does not allow to change font. 2 The formula I used for C3 is CELL "contents" Is this correct? 3 I have a drop down button in B1. When text was copied to C3 the drop down followed. How do I eliminate that? Thanks "Gary''s Student" wrote: Put the following in Sheet1 worksheet code: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("B1"), Target) Is Nothing Then Exit Sub End If n = Sheets("Sheet2").Cells(Rows.Count, "C").End(xlUp).Row + 1 If n < 3 Then n = 3 End If Set r2 = Sheets("Sheet2").Cells(n, "C") Target.Copy r2 End Sub -- Gary''s Student gsnu200710 "Bobby" wrote: I want to copy text from cell Sheet1 B1 to cell Sheet2 C3. Then when text is changed in cell Sheet1 B1 the new text is copied to next cell in Sheet2 columnC (cell C4) and so on. |
|
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Copy text from cell to cell with one cell changing text
Formatting is different in column C - pattern, font, no drop down arrow and
so on. I tried format and conditional formatting. "Gary''s Student" wrote: Removing the drop-down is easy. What kind of formattting do you wish to apply to C3 (and on down) after the paste?? -- Gary's Student gsnu200710 "Bobby" wrote: Works but I need adjustments. 1 How do I change format when text is moved to C3. I tried conditional formating but it does not allow to change font. 2 The formula I used for C3 is CELL "contents" Is this correct? 3 I have a drop down button in B1. When text was copied to C3 the drop down followed. How do I eliminate that? Thanks "Gary''s Student" wrote: Put the following in Sheet1 worksheet code: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("B1"), Target) Is Nothing Then Exit Sub End If n = Sheets("Sheet2").Cells(Rows.Count, "C").End(xlUp).Row + 1 If n < 3 Then n = 3 End If Set r2 = Sheets("Sheet2").Cells(n, "C") Target.Copy r2 End Sub -- Gary''s Student gsnu200710 "Bobby" wrote: I want to copy text from cell Sheet1 B1 to cell Sheet2 C3. Then when text is changed in cell Sheet1 B1 the new text is copied to next cell in Sheet2 columnC (cell C4) and so on. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Cell colors or text color changing when date in cell gets closer. | Excel Worksheet Functions | |||
| Copy text from text box to cell in another worksheet | Excel Worksheet Functions | |||
| Changing certain text within a cell | Excel Discussion (Misc queries) | |||
| Changing cell format - for example text to numeric | Excel Discussion (Misc queries) | |||
| Copy a string text to cell if another cell not empty | Excel Discussion (Misc queries) | |||
Linear Mode
