Доброе утро уважаемые форумчане.
Возможно глупый вопрос для вас , а я не могу к сожалению в интернете найти информацию по данному вопросу.
Есть макрос который проверяет существует ли лист в другой книге и если нет то копирует скрытый лист (MFO_3ay_Dog) и называется его с именем из ячейки, но вот беда, если существует лист Primer1 то вбив в имя листа primer1 то он попытается создать лист и потом выдаст ошибку. ( Что плохо очень для меня ) Как сделать чтобы макрос проверял имена листов с учетом регистра? Спасибо. Файлы прилагаю.
[vba]Код
Sub papa()
Dim im As String
im = Workbooks("MFO_Scenariy.xlsm").Worksheets("basic_process").Range("a6") & ""
Dim Sh As Worksheet, i As Long
Dim file As String
i = 1
file = "Resultati_testov_mfo.xlsm"
For Each Sh In Workbooks("Resultati_testov_mfo.xlsm").Sheets
im = Sh.Name
If im = Workbooks("MFO_Scenariy.xlsm").Worksheets("basic_process").Range("a6").Value Then
MsgBox " & im & " существует."
tt
Exit Sub
End If
i = i + 1
Next Sh
'--=======-=======----=======-=======----=======-=======----=======-=======----=======-=======----=======-=======----=======-=======----=======-=======--
Workbooks("Resultati_testov_mfo.xlsm").Sheets("MFO_3ay_Dog").Visible = xlSheetVisible
Workbooks("Resultati_testov_mfo.xlsm").Sheets("MFO_3ay_Dog").Copy After:=Workbooks(file).Sheets(Sheets.Count)
With ActiveSheet
.Name = Workbooks("MFO_Scenariy.xlsm").Worksheets("basic_process").Range("a6") & ""
End With
Workbooks("Resultati_testov_mfo.xlsm").Sheets("MFO_3ay_Dog").Visible = xlSheetHidden
'End If
End Sub
[/vba]