Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem with clearing cells
Hi,
I need to clear all the data from specified cells on two sheets. When step into the macro it works fine. When I run the macro from a comman button the 'All_Barcodes' sheet is displayed with cells B2:D100 highlighted with all of the data still present. Please help. jvine ------------------------------------------------------------- Sub Clear() ' ' Clear Macro ' Macro recorded 29/03/2004 by Janene Vine ' YesNo = MsgBox("This will DELETE all barcodes, ready to accept today ' barcode entries." & Chr(13) & "Do you want to continue?", vbYesNo vbCritical, "Caution") Select Case YesNo Case vbYes Application.ScreenUpdating = False Sheets("Barcodes").Select ActiveSheet.Unprotect ActiveWorkbook.Unprotect Range("B2:B1001").Select Range("B1001").Activate Selection.ClearContents Range("B2").Select ActiveSheet.Unprotect ActiveWorkbook.Unprotect Sheets("All_Barcodes").Visible = True Sheets("All_Barcodes").Select Range("B2:B1001").Select Range("B1001").Activate Selection.ClearContents Range("B2").Select ActiveWindow.SelectedSheets.Visible = False Sheets("Barcodes").Select Range("B2").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True Scenarios:=True ActiveWorkbook.Protect Structu=True, Windows:=False Sheets("Barcodes").Select Range("B2").Select Application.ScreenUpdating = True Case vbNo MsgBox "Action cancelled", vbInformation, "Human Immunology Barcod Form Checks" End Select End Sub ---------------------------------------------------------------- -- Message posted from http://www.ExcelForum.com |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Clearing cells without clearing formulas | Excel Discussion (Misc queries) | |||
clearing cells | Excel Worksheet Functions | |||
Clearing Cells | New Users to Excel | |||
Excel VBA Problem - Clearing multiple checkboxes | Excel Programming | |||
Clearing cells | Excel Programming |