ThisisBigBrother.com - UK TV Forums

ThisisBigBrother.com - UK TV Forums (https://www.thisisbigbrother.com/forums/index.php)
-   General Chat (https://www.thisisbigbrother.com/forums/forumdisplay.php?f=8)
-   -   Anyone here any good with Excel? (https://www.thisisbigbrother.com/forums/showthread.php?t=133542)

Lae 24-03-2010 10:03 PM

Anyone here any good with Excel?
 
Hey all, basically I want to create a Reset macro that clears the contents of certain cells, but also resets the combo boxes to "Please Select". Here's some visual aid :)

http://img31.imageshack.us/img31/3402/paintclear.png

Here's the code I'm using now, pretty basic. Really appreciate it if anyone can help :)

Sub Reset()
'
' Reset Macro
'
'
' Keyboard Shortcut: Ctrl+z
'

Range("E8").Select
Selection.ClearContents
Range("E9").Select
Selection.ClearContents
Range("E10").Select
Selection.ClearContents
Range("E11").Select
Selection.ClearContents
Range("E12").Select
Selection.ClearContents
Range("E13").Select
Selection.ClearContents
Range("E14").Select
Selection.ClearContents
Range("E15").Select
Selection.ClearContents
Range("E16").Select
Selection.ClearContents
Range("E17").Select
Selection.ClearContents
Range("E18").Select
Selection.ClearContents
Range("E19").Select
Selection.ClearContents
Range("E20").Select
Selection.ClearContents
Range("E21").Select
Selection.ClearContents
Range("H12").Select
Selection.ClearContents
Range("I6").Select
Selection.ClearContents
Range("I7").Select
Selection.ClearContents
Range("I8").Select
Selection.ClearContents
Range("I4").Select
Selection.ClearContents
Range("C3").Select

End Sub

Iceman 24-03-2010 10:04 PM

sorry i did it 3 years ago and cant remember a thing......:(

Lae 25-03-2010 04:52 PM

Bump :(

ILoveTRW 25-03-2010 05:45 PM

you should be using Microsoft Access for databases


All times are GMT. The time now is 06:06 PM.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
User Alert System provided by Advanced User Tagging (Pro) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.