Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Does anybody can help me?
I tried with command button with macro: Sub Button1_Click() ' ' Button1_Click Macro ' Dim ws As Worksheet Range("C3").Select Selection.Copy For Each ws In Worksheets Range("D10").Select ActiveSheet.Paste Next wSheet End Sub |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Sub Button1_Click()
' ' Button1_Click Macro ' Dim ws As Worksheet MyVal = Range("C3") For Each ws In Worksheets ws.Range("C3").Value = MyVal Next ws End Sub |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Thanks a lot!
with little change Sub Button1_Click() Dim ws As Worksheet MyVal = Range("C3") For Each ws In Worksheets If Not ws.Name = Sheets(1).Name Then ws.Range("d7").Value = MyVal End If Next ws End Sub works gr works great! "Greg Glynn" wrote in message ... Sub Button1_Click() ' ' Button1_Click Macro ' Dim ws As Worksheet MyVal = Range("C3") For Each ws In Worksheets ws.Range("C3").Value = MyVal Next ws End Sub |
#4
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
See added line of code below
On Tue, 14 Dec 2010 23:46:11 +0100, "DVAL" wrote: Does anybody can help me? I tried with command button with macro: Sub Button1_Click() ' ' Button1_Click Macro ' Dim ws As Worksheet Range("C3").Select Selection.Copy For Each ws In Worksheets ws.select Range("D10").Select ActiveSheet.Paste Next wSheet End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
macro to find cell content in sheets and make sheet active | Excel Discussion (Misc queries) | |||
Active Cell Copy And Paste Sheet to Sheet | New Users to Excel | |||
wud like 2 open the w.book of 12 sheets with my desired sheet? | Excel Worksheet Functions | |||
Copy from active sheet and paste into new sheet using info from cell in active | Excel Programming | |||
To copy from a range in another sheet to the active cell | Excel Programming |