Hi Alexander, Assign below code to the button:-
Sub dkp()
Application.ScreenUpdating = False
Range("D:D").Select
ActiveCell.End(xlDown).Select
On Error GoTo dk:
For i = 1 To 65536
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Value = 1
ActiveCell.Offset(0, 1).Value = 30
Next
dk:
MsgBox "all blanks cells have been processed"
End Sub
Workbook containing test scenario and the tested macro is also attached
herewith. Thanks.
--
DILIP KUMAR PANDEY
MBA-HR,B COM(Hons.),BCA
Mobile: +91 9810929744
dilipan...@gmail.com
dilipan...@yahoo.com
New Delhi - 110062
On 10/17/09, Alexander Cargill <zanderman1...@googlemail.com> wrote:
>
>
> Hi all im a bit off a noob and i was wondering iif you can help. I
> have a form with an option box I want the option box first search for
> the first blank cell in the D coulmn and then place the number 1 in
> the first available blank box in column D and in the ajacent cell the
> number 30 can anyone help please??
>
> alex
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
----------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,500 subscribers worldwide and receive many nice notes about the
learning and support from the group. Our goal is to have 10,000 subscribers by
the end of 2009. Let friends and co-workers know they can subscribe to group at
http://groups.google.com/group/excel-macros/subscribe
-~----------~----~----~----~------~----~------~--~---
Filling Blank Cells- By DILipandey.xls
Description: MS-Excel spreadsheet
