scale based on a cell!!

[miyat]

hi, i have a square drawn on four different lines to form a square... i want that that square will be interactive. the width and the height of the cell will scale base on the value i put in cell A1 and A2.. is it possible?

 

[SteveO59L]

For a square using cells c5:d6

Private Sub Worksheet_Change(ByVal Target As Range)
Dim side1 As Long
Dim side2 As Long

If Target.Column = 1 And Target.Row < 3 Then
side1 = Range("a1").Value / 2
side2 = Range("a2").Value / 2
Columns("C:d").ColumnWidth = side1
Rows("5:6").RowHeight = side2
End If
End Sub

 

[miyat]

hi steve, tnx for the reply... i am a beginner in vba programing... i cant actually understand that.. can u tell me that in details?tnx..

 

[miyat]

steve, it doesnt work.. should i paste it on a module or this workbook?

 

[SteveO59L]

Right-click on the sheet tab, then select the view code option.

Change the dropdown options to worksheet and change.

Paste the code between the sub/end sub lines