Adding contants controls

[rhino4eva]

Sub test()
Sheets("1PLATE").Range("P25").Copy
Sheets("1PLATE").Range("C4:E11").Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns, LookIn:=xlValues).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub


I am trying to develop a vba code to add auto add in my controls into a worksheet
the first line selects a text value and copies it
the second line looks to see if there is a empty cell thin the range I have defined ie 4 columns and eight rows

all is well until the 8th cell is already full.... it then fills the 9th row which is outside the range
I would like it to fill the first row of the next column

could anyone see what I am missing

Adam

 

[Domenic]

Re: help with adding contants controls

Glad I could help!

Cheers!

 

[rhino4eva]

Re: help with adding contants controls

wrt to this original code :

the code is able to look for blank cells within the given range and paste the value of "p25" into that well .It can repeated over and over again . As it does the value keeps adding the "c" column until c 11 where it moves over d 1,2,3,4,5 etc


I have a new project that need to rotate this process by 90 degrees

ie a1,b1,c1,d1 followed by a2,b2,c,2,d2 etc down to row 31


I have tried to fathom it out but a can't figure it .... anyone help me please