Уважаемый опять я. Код “Чистый заполненный лист” что то не срабатывает в самом начале. Строка If ActiveSheet.UsedRange.Cells.Count = 1 And ActiveSheet.UsedRange = "" Then окрашена в желтый цвет. На одном форуме мне дали другой код. Он работает, но только на заполненный лист. Я не предусмотрел кнопку CommandButton5 которая постоянно находится на листе. Выходит что лист у меня, постоянно заполнен данными. Как теперь выполнить условие, с учетом данной кнопке.
Они что то молчат ответ на вопрос дали, а ответ на мою ошибку молчат. Я опять к вам.
Private Sub CommandButton1_Click()
If IsEmpty(Worksheets(1).UsedRange) Then
MsgBox ("Лист чистый")
Else
MsgBox ("Лист заполнен данными")
End If
End Sub
Где
MsgBox ("Лист чистый") ставишь код выполнения при чистом листе
MsgBox ("Лист заполнен данными") ставишь код выполнения при заполненом листе
Примечание:
--------------------------------------------------------------------------------------------------------------------------------------------------------------
По сохранению в предыдущий теме
1.При клике по кнопке сохранить ошибка строки кода wb.Worksheets(i).Delete окрашен в желтый цвет.
2. Появляется Книга1 с листами V_ГСМ и Лист! При закрытие в ручную, запрашивает сохранение.
3. Папка V ГСМ не создается.
4. Основной файл с которого производилось сохранение, тоже запрашивает сохранение при закрытие в ручную
6. Вы говорите задать путь в ячейке А9. Но туда у меня импортируются данные.
5 Внизу указан код скопированный непосредственно с Basic
Dim ws As Worksheet, wb As Workbook, PathToSave As String, FileName As String, FolderName As String, fs As Object
Set ws = ThisWorkbook.ActiveSheet
Set wb = Workbooks.Add
Application.DisplayAlerts = False
ws.Copy after:=wb.Worksheets(1)
wb.Worksheets(1).Delete
wb.Worksheets(1).Name = ws.Name
For i = 2 To wb.Worksheets.Count
wb.Worksheets(i).Delete
Next i
PathToSave = wb.Worksheets(1).Range("A9").Value
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.