Conditonal Statements for Worksheets

[ngkf7]

Hi,

I am fairly new to Macros and VBA and have been learning a lot over the past 2 days...I was just wondering is there a way I can check to see if a specific worksheet exists in my workbook, and if it does, select that one, and if it doesnt, to create one?


Thanks

 

[HalfAce]

is there a way I can check to see if a specific worksheet exists in my workbook, and if it does, select that one, and if it doesnt, to create one?

Hello ngkf7, welcome to the board.
Quick little example:

Sub SelectOrCreateSheet()
On Error Resume Next
Sheets("YourSheetName").Activate
If Err.Number <> 0 Then Sheets.Add.Name = "YourSheetName": Err.Clear
End Sub

Hope it helps.

 

[ngkf7]

Thanks

Thanks, I hope that solves my problem. I'll be able to find out in a bit. On another note though, I'm trying to elaborate on that condition now, so if the page exists, then there is probably already data on it, so I need to find the last row that doesnt have data, then paste a selection onto the next row.

 

[ngkf7]

bump

bump

anyone know how to do it?

 

[HalfAce]

OK, this will select (or create & select) a sheet named "YourSheetName" and then determine
the first unused row in column A, then copy a range from the source sheet to that row.

Sub SelectOrCreateSheet()
Dim NxtRw&
On Error Resume Next
Sheets("YourSheetName").Activate
If Err.Number <> 0 Then Sheets.Add.Name = "YourSheetName": Err.Clear

NxtRw = Sheets("YourSheetName").Cells(Rows.Count, "A").End(xlUp)(2).Row

Sheets("YourCopySourceSheet").Range("YourCopySourceRange").Copy _
  Sheets("YourSheetName").Cells(NxtRw, "A")

End Sub

My question though is, will that selected/created sheet always be named the same, or will
you want the user to be able to input the name of the sheet they want to select/create?