Populate Pre-Defined text

[crimzon]

Hi,

I want to populate my predefined text in certain cells of Sheet2 by click on RadioButton1 which is located on Sheet1.
Kindly help me out with or any your code

Private Sub BasicButton1_Click()

Sheets("Sheet2").Range("A14").Select
ActiveCell.Value = 11


Sheets("Sheet2").Range("A20").Select
ActiveCell.Value = "San Diago"

Sheet("Sheet2").Range("A21").Select
ActiveCell.Value = "New York/San Diago - Brooklyn"

End Sub

[TMS]

Please use Code Tags in your posts

Please Login or Register  to view this content.

Regards, TMS

[crimzon]

i tried your code and it works fine but when I incorporate below two lines it gives Application defined or object defined error.

underline code is for Sheet1


Private Sub BasicButton1_Click()

ActiveSheet.Shapes.Range(Array("GroupPlan")).Visible = False
Rows("17:24").EntireRow.Hidden = True

With Sheets("Sheet2")
.Range("A14").Value = 11
.Range("A20").Value = "San Diago"
.Range("A21").Value = "New York/San Diago - Brooklyn"
End With
End Sub[/CODE]

[TMS]

i tried your code and it works fine

Then your question has been answered and this is a new question.

new question, new thread.

Please mark this as solved and start a new thread. Link to this one of you think it provides some background. Suggest you upload a sample workbook in the new thread.


If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.