Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Удаление похожей строки
 
Пытливый, нужно с макросами чтобы все автоматически происходило
Удаление похожей строки
 
Помогите пожалуйста с макросом.
Нужно удалить из листа 1 строку, если она соответсвует строке из листа 2
Добавить макросы и поля ввода
 
Добрый день!
У меня есть вот такой макрос. Он копирует строку и переносит, ее на другой лист в БазуДанных.
Код
Sub стол()

Range("A3:S3").Copy
With Sheets("АДМИН")
.Range("B" & .Cells(Rows.Count, 2).End(xlUp).Row + 1).PasteSpecial xlValues

End With
End Sub
У меня кафе и мне нужно добавлять столы.
В новом столе должны появится строки для ввода и этот макрос, чтобы скопировать данные в БазуДанных. После отправки стол должен быть удален (т.е. строки для ввода и макрос для него удалить)
Как сменить значок EXCEL?
 
Андрей VG, Спасибо, а можно на русском, а то с переводчиком гугл, всеравно мало что понял
Фиксированная ширина EXCEL
 
Добрый день!

При скрытии интерфейса EXCEL, встает вопрос чтобы лист не мог смешаться вправо и влево. То есть по ширине был фиксированным. Перемешение по высоте оставить.
Но самый лучший вариант, чтобы с помощью скролбара не мог спуститься ниже заполненных ячеек (Ячейки могут быть просто заполнены цветом)
Скрытие интерфейса EXCEL
 
justirus,
Не правильно выразился, мне полностью этот элемент нужно скрыть (ДОБАВЛЕНИЕ НОВОГО ЛИСТА)
Закрытие без сохранения
 
yoozhik, Спасибо работает, но только не в модуля, а в книге
Как сменить значок EXCEL?
 
Добрый день!
Как можно сменить значок EXCEL? На свой
Закрытие без сохранения
 
Добрый день!
Как сделать чтобы в EXCEL по закрытию не выводилось сообщение сохранить?
Нужно чтобы EXCEL автоматически сохранялся по закрытию, но не выводил сообщение о сохранении.
Скрытие интерфейса EXCEL
 
justirus, с макросом все получилось.
Я убрал и тем самым востановил скрол бар и переключени между листами. Я незнаю как запретить создание нового листа. И сменить значок в EXCEL
Код
.DisplayHorizontalScrollBar = Value: .DisplayVerticalScrollBar = Value
.DisplayWorkbookTabs = Value
Изменено: afanasev_n_a - 06.11.2015 00:13:25
Скрытие интерфейса EXCEL
 
Добрый день!
Нужно скрыть весь интерфейс. Оставить только полосу прокрутки по бокам, и переключение между листами (ОЧЕНЬ ВАЖНО, ЧТОБЫ НЕЛЬЗЯ БЫЛО СДЕЛАТЬ НОВЫЙ ЛИСТ)
И еще нужно изменить значок EXCEL в шапке программы


Использовал такой макрос
Код
Private Sub ChangeInterface(Value As Boolean) With Application
.ScreenUpdating = False
.Caption = IIf(Value = True, Empty, "Наше окно")
.DisplayStatusBar = Value: .DisplayFormulaBar = Value
Dim iCommandBar As CommandBar
For Each iCommandBar In .CommandBars
iCommandBar.Enabled = Value
Next
With .ActiveWindow
.Caption = IIf(Value = True, .Parent.Name, "")
.DisplayHeadings = Value: .DisplayGridlines = Value
.DisplayHorizontalScrollBar = Value: .DisplayVerticalScrollBar = Value
.DisplayWorkbookTabs = Value
End With
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"
.ScreenUpdating = True
End With
End Sub
 
Private Sub УбратьВсё()
ChangeInterface False
End Sub
 
Private Sub ВосстановитьИнтерфейс()
ChangeInterface True
End Sub
Изменено: afanasev_n_a - 05.11.2015 09:44:31
Копирование на скрытый лист
 
yoozhik, Спасибо большое сделал защиту VBA проекта ( я так понимаю только в VBA можно изменить супер скрытый лист на обычный?)
Копирование на скрытый лист
 
yoozhik, Спасибо работает) а на защищенный лист я так понимаю копировать нельзя? Если например смогут найти лист через VisualBasic, все равно в листе изменить не смогут ничего, без пароля.
Копирование на скрытый лист
 
Добрый день!

Есть макрос на копирование ячеек на другой лист. Я хотел бы чтобы данные можно было копировать на суперскрытыйлист (который делается через VisualBasic)
Дело в том что сотрудники не должны видеть информацию, после того как ввели ее. В идеале конечно сделать лист защищенным, но с этим я вообще не знаю как справится. Помогите пожалуйста

Вот макрос:
Код
Sub добавить()        Range("A9:S9").Select
    Selection.Copy
    Sheets("Лист2").Select
     
    Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub
Копирование со смещением
 
vikttur, А если не по теме, куда тогда писать?
Копирование со смещением
 
Grr, Спасибо огромное все получилось.
Можно я Вас еще раз потревожу.

вопрос не по теме [МОДЕРАТОР]
Изменено: afanasev_n_a - 27.10.2015 11:23:40
Копирование со смещением
 
Grr, Добрый день! Как сделать так, чтобы копировались только значения в ячейках. Просто в некоторых ячейках у меня выпадающие списки, при копировании, они тоже копируются. А мне надо чтобы при копировании копировалось только значение, которое я выбрал в выпадающем списке.
Копирование со смещением
 
Проблема такая. Иногда копирует со смещением иногда копирует в ту же строку. Что делать? При копирование макроса на другой файл excel тоже самое
Копирование со смещением
 
При копирование макроса на другой файл Excel таблица перестает смещаться (все подправил в нем и ячейки и листы)

Можете пояснить код?
Код
Sub добавить()    
    Range("A9:S9").Select
    Selection.Copy
    Sheets("Лист2").Select
    
    Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
    ActiveSheet.Paste
End Sub
Копирование со смещением
 
Да, спасибо огромное
Копирование со смещением
 
Добрый день!

Можно ли реализовать копирование со смещением в Excel

У меня есть однострочная табличка "1" из 5 столбцов (справа от таблицы кнопка "Добавить")
Нажимая эту кнопку, значения  из таблицы "1" должны переноситься в таблицу "2" на другом листе
Перенос должен быть на строку следующую за заполнеными
Т.е. после одного нажатия в таблице "2" будет одна строка, после двух нажатий две строки.

Как такое можно реализовать?
Изменено: afanasev_n_a - 23.10.2015 11:29:08
Страницы: 1
Наверх