Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » mapuo
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Удаление строк под фигурой
 
#
15.07.2019 13:11:12
решилось само.
Код
Sub delete_rows()
With ActiveSheet.Shapes(Application.Caller)
.TopLeftCell.Select
Rows.Range(ActiveCell.Row & ":" & ActiveCell.Row + 15).Select
Selection.Delete Shift:=xlUp
End With
End Sub
 
Перейти    
Удаление строк под фигурой
 
#
15.07.2019 11:19:41
Добрый день, прошу помощи

На листе есть фигура (кнопка) на которую завязан макрос удаления строки, на которой эта фигура расположена.
Как увеличить количество строк, которые подлежат удалению? Тот код, который работает, удаляет только одну строку, а мне нужно удалить еще и нижеследующие 15 относительно фигуры  :(
Код
Sub delete_rows()
  With ActiveSheet.Shapes(Application.Caller)
    .TopLeftCell.EntireRow.Delete
    .Delete
  End With
End Sub
Изменено: mapuo - 15.07.2019 14:47:08
 
Перейти    
Перенос данных из формы в ячейки листа
 
#
10.07.2019 07:54:50
Цитата
artyrH написал:
mapuo , может, попробовать заменить Cells на Range
Пробовал, почувствовал только прилив сил, чтобы пистолет зарядить одним патроном. ))
 
Перейти    
Перенос данных из формы в ячейки листа
 
#
10.07.2019 07:53:40
Цитата
Андрей_26 написал:
как то так

Андрей, от всей души благодарю! )
 
Перейти    
Перенос данных из формы в ячейки листа
 
#
09.07.2019 17:00:43
Добрый день всем.

Жутко туплю, все перечитал (да, куча тем этому посвящена), но "не шмогла я". При открытии книги открывается форма с 4 полями для заполнения их текстом.
Нужно, чтобы после нажатия на кнопку "сохранить" в форме, данные перенеслись в конкретные ячейки в рабочем листе книги. Форма открывается, заполняю данные, нажимаю на Сохранить в форме и все.
У меня постоянно ругается с runtime error начиная со второй строки. Уже и text ставил вместо value. Короче рука уже тянется застрелиться.

На кнопке висит вот это
Код
Private Sub CommandButton1_Click()
Cells("C2").Value = TextBox1.Value
Cells("C3").Value = TextBox2.Value
Cells("C4").Value = TextBox3.Value
Cells("C5").Value = TextBox4.Value
Unload UserForm1
ActiveWorkbook.Save
End Sub

Ткните меня носом, пожалуйста.
 
Перейти    
Переименование листа через диалоговую форму
 
#
01.07.2019 12:53:40
От души благодарю, работает.
 
Перейти    
Переименование листа через диалоговую форму
 
#
01.07.2019 12:36:22
Здравствуйте, прошу помощи.

Вставляю макросом копию существующего листа в конце книги, но нужно, чтобы пользователь в это же время ввел ручками название этого нового листа.
Руки у меня крюки, поэтому не могу понять как вернуть введенный текст в название этого создаваемого листа.
Код
Sub new_page_add()
Sheets("RAW").Visible = xlSheetVisible
Sheets("RAW").Select
Sheets("RAW").Copy after:=Sheets(Sheets.Count)
Sheets("RAW").Visible = xlSheetHidden
Set newname = Application.InputBox("Введите краткое название объекта", Type:=2)
ActiveSheet.Name = newname
ActiveSheet.Protect Password:="0000"
End Sub
 
Перейти    
Написать два макроса, первый по созданию нового листа на базе шаблона, второй - по заполнению отчетной таблицы данными
 
#
28.06.2019 09:59:27
Благодарю skais675 за выполненную работу.
Все прекрасно.
Изменено: mapuo - 02.07.2019 15:33:39
 
Перейти    
Написать два макроса, первый по созданию нового листа на базе шаблона, второй - по заполнению отчетной таблицы данными
 
#
27.06.2019 10:10:23
UPD. Работа возобновлена. С Исполнителем предварительно договорено.

Есть книга с шаблонным листом, листом с отчетной таблицей и листом (листами) с данными.

Требуется:

Написать два макроса, первый по созданию нового листа на базе шаблона, второй - по заполнению отчетной таблицы данными.

Более точное ТЗ - внутри файла.

Размер вознаграждения - предложение от исполнителя после рассмотрения им объема работы.

Файл с образцом и ТЗ прилагаю

Изменено: mapuo - 01.07.2019 10:31:43
 
Перейти    
Макрос, формирующий "сводную" таблицу на первом листе по отдельным ячейкам второго, третьего и т.д.
 
#
26.06.2019 16:47:32
перенес тему в Работу
Изменено: mapuo - 27.06.2019 10:11:59
 
Перейти    
Страницы: 1
Наверх