Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Ошибка при копировании листа в новую книгу (Method or data member not found)
 
#1
04.04.2020 09:05:08
Добрый день, уважаемые Форумчани!
Прошу помочь, ниже макрос, которые  работает нормально если его ставлю в рабочую книгу, а если в свою настройку, то ругается на ошибку(Method or data member not found).
Скажите пожалуйста,  что нужно сделать чтобы не давал такую ошибку
Код
Sub SheetsNames()
    Dim i As Integer: ActiveCell.ClearContents
    For i = 1 To Sheets.Count: ActiveCell(i, 1) = Sheets(i).Name: Next
End Sub
 
 
 
#2
04.04.2020 09:19:26
Добрый день!

Попробуйте так
Код
Sub SheetsNames()
Dim i As Integer, ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
    i = i + 1
    Range("A" & i) = ws.Name
Next ws
End Sub
 
 
 
#3
04.04.2020 09:57:40
Спасибо большое!!
 
 
 
#4
04.04.2020 10:25:57
такая же ситуация с этим макросом, есть решение?
Код
Public Sub CopySheetAndRename()
    Dim newName As String
 
    On Error Resume Next
    newName = InputBox("Enter the name for the copied worksheet")
 
    If newName <> "" Then
        activeSheet.Copy After:=Worksheets(Sheets.Count)
        On Error Resume Next
        activeSheet.Name = newName
    End If
End Sub
 
 
 
#5
04.04.2020 10:43:33
Код
Public Sub CopySheetAndRename()
    Dim newName As String
    On Error Resume Next
    newName = InputBox("Enter the name for the copied worksheet")
  
    If newName <> "" Then
        activeSheet.Copy After:=Worksheets(Sheets.Count)
        activeSheet.Name = newName
    End If
    On Error Resume Next
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#6
04.04.2020 11:27:40
к сожалению ещё ругается
 
 
 
Страницы: 1
Наверх