#1   Report Post  
Posted to microsoft.public.excel.programming
Sal Sal is offline
external usenet poster
 
Posts: 84
Default If Macro

Is there a macro that will say if Column A and Column B on Sheet3 have
contents follow this code€¦

I am going to put a long code here

But if Column A and Column B do not have contents follow this code

application.displayalerts = false
Sheets("Sheet3").Delete
Sheets("Sheet3a").Delete
application.displayalerts = true

End Sub

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 10,124
Default If Macro

try

Sub ifcolaandbblank()
If WorksheetFunction.CountA(Columns("a:b")) 0 Then
'do this
Else
On Error GoTo nono
Application.DisplayAlerts = False
Sheets("sheet3").Delete
Sheets("sheet3a").Delete
Application.DisplayAlerts = True
End If
Exit Sub
nono:
MsgBox "not there"
End Sub--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Sal" wrote in message
...
Is there a macro that will say if Column A and Column B on Sheet3 have
contents follow this code€¦

I am going to put a long code here

But if Column A and Column B do not have contents follow this code

application.displayalerts = false
Sheets("Sheet3").Delete
Sheets("Sheet3a").Delete
application.displayalerts = true

End Sub


  #3   Report Post  
Posted to microsoft.public.excel.programming
Sal Sal is offline
external usenet poster
 
Posts: 84
Default If Macro

This is really good stuff. Thank you very much.

"Don Guillett" wrote:

try

Sub ifcolaandbblank()
If WorksheetFunction.CountA(Columns("a:b")) 0 Then
'do this
Else
On Error GoTo nono
Application.DisplayAlerts = False
Sheets("sheet3").Delete
Sheets("sheet3a").Delete
Application.DisplayAlerts = True
End If
Exit Sub
nono:
MsgBox "not there"
End Sub--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Sal" wrote in message
...
Is there a macro that will say if Column A and Column B on Sheet3 have
contents follow this code€¦

I am going to put a long code here

But if Column A and Column B do not have contents follow this code

application.displayalerts = false
Sheets("Sheet3").Delete
Sheets("Sheet3a").Delete
application.displayalerts = true

End Sub



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
AutoRun Macro with a delay to give user the choice to cancel the macro wanderlust Excel Programming 2 September 28th 07 04:09 PM
Macro not showing in Tools/Macro/Macros yet show up when I goto VBA editor [email protected] Excel Programming 2 March 30th 07 07:48 PM
how to count/sum by function/macro to get the number of record to do copy/paste in macro tango Excel Programming 1 October 15th 04 01:16 PM
macro to delete entire rows when column A is blank ...a quick macro vikram Excel Programming 4 May 3rd 04 08:45 PM
Start Macro / Stop Macro / Restart Macro Pete[_13_] Excel Programming 2 November 21st 03 05:04 PM


All times are GMT +1. The time now is 03:49 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"