Need help fellers

[sachin30us]

Hey guys,

So this what i want to do. I created a button and when i press the button I want the macro to insert today's date on Cell A2 Then on cell B3 I want the Macro to insert a text box from Cel B3 to cell Cell G8 This box needs to be a scrollable box.

Then, Once the file is closed and reopened the macro should re-enter the date in Cell 10 and recreate the same box from B11 to G19 and on and on.

Please let me know if this is possible.

Many THanks in advance for the above.

 

[oldbrewer]

you are not clear enough eg cell 10

put today's date in cell A2, copy B3 to G8, close file (close spreadsheet?) open spreadsheet, put today's date in cell ???? copy B11 to G19

is this what you want?

 

[sachin30us]

you are not clear enough eg cell 10

put today's date in cell A2, copy B3 to G8, close file (close spreadsheet?) open spreadsheet, put today's date in cell ???? copy B11 to G19

is this what you want?

Many Thanks for your reply...

So this what i want to do. I created a button in cel lH1 and when i press the button I want the macro to insert today's date on Cell A2 Then on cell B3 to F 10 I want the Macro to insert a text box. This box needs to be a scrollable box.

Then, I want to add another button and the sole purpose of this button would be to read the Cell A11 which will have a date in it entered manually and upon pressing the button it will create the same scrollable text box box from B12 onwards.

SO the objective of the second button will be to read the last cell in column A in this case A 11 and then goto cell B12 and create a scrollable box...

THe macro that i have posted belo adds the date to cell a2 and created a text box which really is not scrollable. Please advise if i can make a scrollable text box.

Many Thanks

Please let me know if this is possible.

Below is what my macro currently looks like for the first button i have created called button 6


Sub Button6_Click()
'
' Button6_Click Macro
'
Range("A2").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(1, 1).Select 'Selects cell in same Column, 1 Row DOWN

Range("B3:F10").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

 

[sachin30us]

Many Thanks for your reply...

So this what i want to do. I created a button in cel lH1 and when i press the button I want the macro to insert today's date on Cell A2 Then on cell B3 to F 10 I want the Macro to insert a text box. This box needs to be a scrollable box.

Then, I want to add another button and the sole purpose of this button would be to read the Cell A11 which will have a date in it entered manually and upon pressing the button it will create the same scrollable text box box from B12 onwards.

SO the objective of the second button will be to read the last cell in column A in this case A 11 and then goto cell B12 and create a scrollable box...

THe macro that i have posted belo adds the date to cell a2 and created a text box which really is not scrollable. Please advise if i can make a scrollable text box.

Many Thanks

Please let me know if this is possible.

Below is what my macro currently looks like for the first button i have created called button 6

UPDATED MACRO
Range("A2").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(1, 1).Select 'Selects cell in same Column, 1 Row DOWN
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=66, Top:=26.25, Width:=550.5, Height:= _
88.5).Select