Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Собрать ненулевые значения из столбца и записать элементы, к которым относятся
 
Добрый день! Написал код в VBA для отбора элементов (ненулевые, без повторов, столбец G) и расчет суммы по каждому элементу (аналогично суммесли). Код работает, но у меня есть вопрос - насколько я его правильно описал, такое ощущение, что усложнил код. Посмотрите, пожалуйста.
Код
Sub Condition_vibor4()

Dim i As Integer, j As Integer

'Описываем цикл
For i = 7 To 20 '7 - начало строки массива данных, а 20 - конец массива (можно заменить на "последнюю строку"

For j = 1 To 5 '1 - начальная строка для размещения данных, 5 - число зарезервированных строк под двнные

' условие для остановки макроса при достижении i = 20 и более
If i > 19 Then
End
End If
'

If Cells(i, 8) > 0 And Cells(j, 9) <> Cells(i, 7) And Cells(i, 7) <> Cells(i + 1, 7) Then
Cells(j, 9) = Cells(i, 7).Value
Cells(1, 10) = "=SumIf($G$7:$G$16,I1,$H$7:$H$16)"
i = i + 1
Else

If i = 18 Then
countvalues = Application.WorksheetFunction.CountA(Range("I1:I5"))
Cells(1, 10).Select
    Selection.AutoFill Destination:=Range("J1:J" & countvalues), Type:=xlFillDefault
End If

i = i + 1
j = j - 1
End If

Next j
Next i

End Sub


Спасибо!
VBA вставка строки между уникальными значениями
 
Добрый день! Написал код в VBA на добавление строки между уникальными значениями (в строках, столбец один и тот же), но не уверен что правильно написал процедуру. Может быть есть возможность как-то иначе описать процедуру (проще)?

Спасибо!
Сбор всех формул с листа на отдельный лист" (макрос)
 
Добрый день! Подскажите как можно решить данную задачу:

Нужно собрать все адреса ячеек с формулами и сами формулы с листа "Исходные данные" и вывести их как сделано на листе "Список формул";

Спасибо!
Изменено: Macedon - 11 сен 2017 11:21:51
Userform: rак создать условие на зависимость Label от значений в нескольких Textbox
 
Добрый день! Помогите, пожалуста, с Userform. Я никак не могу прописать зависимость от нескольких Textbox для элемента Label. ЧТо нужно изменить, чтобы работало корректно? То есть нужно, чтобы Done, появлялось при условие что и в текстбоксах (txt1 и txt2) есть положительное значение (не 0 и не ""!) Постоянно обновляется, если идет изменение по текстбоксам (txt1 или txt2). Спасибо!
Код
Private Sub txt1_Change()
  If Me.txt1.Value > 0 And Me.txt2.Value > 0 Then
  Me.lbltext.Visible = True
  Else: Me.lbltext.Visible = False
  End If
End Sub
Смещение диапазона заполнения баз данных, Нужна помощь по коду в VBA
 
Добрый день! Помогите, пожалуйста, с кодом VBA (код не мой, но я вроде его освоил):
Код
Option Explicit

Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("PartsData")

'''find  first empty row in database
''iRow = ws.Cells(Rows.Count, 1) _
''  .End(xlUp).Offset(1, 0).Row
'revised code to avoid problems with Excel tables in newer versions
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'check for a part number
If Trim(Me.txtPart.Value) = "" Then
  Me.txtPart.SetFocus
  MsgBox "Please enter a part number"
  Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtPart.Value
ws.Cells(iRow, 2).Value = Me.txtLoc.Value
ws.Cells(iRow, 3).Value = Me.txtDate.Value
ws.Cells(iRow, 4).Value = Me.txtQty.Value

'clear the data
Me.txtPart.Value = ""
Me.txtLoc.Value = ""
Me.txtDate.Value = ""
Me.txtQty.Value = ""
Me.txtPart.SetFocus

End Sub

Интересует как поправить код, чтобы заполнение данных шло не с ячейки A1, а, например, F5 (и любой другой позиции). Лист для данных исходно пустой, потом нужно добавлять новые записи с новой строки. Сейчас код подсчитывает количество строк с данными и добавляет данные на 1 строку ниже. Можно ли как-нибудь привязать операцию, что если на листе есть ячейка с "Предмет", то данные из формы заполняются под этой ячейкой, а если под этим полем есть данные то добавляет на строку ниже?

Спасибо большое!
Userform: вывод на передний план при смене активного окна, без возможности активации иного приложения / листа и т.д.  до выбора
 
Добрый день! Бьюсь с формами и циклами уже несколько часов - все никак не получается: форма не выводится на передний план, а идет "мерцание" для выбора активного приложения как это устранить? UserForm1.vbModeless show - не предлагать, здесь нельзя, так как макрос "бежит дальше". Спасибо большое!

Здесь нужно, видимо, скорректировать код
Код
wda.WindowState = wdWindowStateMinimize
Windows("tesr.xlsm").Activate
UserForm1.Show

Код цикла:
Код
For vib = 1 To 10

wda.WindowState = wdWindowStateMinimize
Windows("tesr.xlsm").Activate
UserForm1.Show

'''''''''''''''''''''''''
'''''''''ЦИКЛ'''''''''''
'''''''''''''''''''''''''

''''
Range("C7:F15").Select
Selection.Copy
''''
With wda
.ActiveDocument.Bookmarks("ob_1").Select

End With

wda.Selection.PasteSpecial False, False, False

'
Application.CutCopyMode = False
'Очистка буфера обмена

''''
Range("C1:E5").Select
Selection.Copy
''''
With wda
.ActiveDocument.Bookmarks("ob_2").Select

End With

wda.Selection.PasteSpecial False, False, False

'
Application.CutCopyMode = False
'Очистка буфера обмена

''''
wda.Activate
wda.Selection.TypeParagraph
wda.Selection.TypeParagraph
wda.Selection.TypeText Text:="ob_1"
wda.Selection.MoveLeft Unit:=wdCharacter, Count:=4, Extend:=wdExtend
wda.Selection.Bookmarks.Add Name:="ob_1"
wda.Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend
wda.Selection.TypeParagraph
wda.Selection.TypeParagraph
''''

wda.Activate
wda.Selection.TypeParagraph
wda.Selection.TypeParagraph
wda.Selection.TypeText Text:="ob_2"
wda.Selection.MoveLeft Unit:=wdCharacter, Count:=4, Extend:=wdExtend
wda.Selection.Bookmarks.Add Name:="ob_2"
wda.Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend
wda.Selection.TypeParagraph
wda.Selection.TypeParagraph
''''

'''''''''''''''''''''''''
''''''КОНЕЦ ЦИКЛА'''''''
'''''''''''''''''''''''''
Next vib

End Sub
Пересоздание Bookmarks, Помощь с кодом
 
Добрый день! Форумчане, помогите с кодом - никак не могу из Excel пересоздать закладку в Word.
Код
Sub forum()

Dim wda As Word.Application

On Error Resume Next

Range("C7:F15").Select
Selection.Copy
 
    On Error Resume Next

    Set wda = CreateObject("Word.Application")    ' создаём приложение Word (без подключения библиотеки Word)

    wda.Visible = True    ' делаем Word видимым
    
    Set wd = wda.Documents.Open("U:\Шаблоны\forum.docm")
 
With wda
.ActiveDocument.Bookmarks("ob_1").Select

End With

wda.Selection.PasteSpecial False, False, False

'
Application.CutCopyMode = False
'Очистка буфера обмена

wda.Activate
wda.Selection.TypeParagraph
wda.Selection.TypeParagraph
wda.Selection.TypeText Text:="ob_1"
wda.Selection.MoveLeft Unit:=wdCharacter, Count:=4, Extend:=wdExtend
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="ob_1"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    
End Sub

Спасибо!
Применение формул Excel в описание диапазона в VBA
 
Здравствуйте!

Пробую свои силы в написание кода макроса для копирования диапазона. У меня получилось сделать, но только с применение ячеек (в которых указаны формулы)
Можно ли как-то описать расчет по формулам внутри самого макроса без использования ячеек?

1 формула в  ячейке J2: =СЧЁТ($J$5:$J$9)
2 формула в ячейке J3: =СТРОКА(J4)

Спасибо!
Код
Sub Макрос4()

   Dim k As Integer, m As Integer

k = Cells(3, 10)
m = Cells(2, 10)
If m <> "0" Then
    Range("J" & k & ":K" & k + m).Copy
    End If

End Sub
Копирование таблиц с меняющимися диапазонами данных (нужен макрос)
 
Добрый день!

Подскажите, пожалуйста, как сделать макросом копирование каждой из 3 таблиц, если данные меняются постоянно (количество строк).
То есть каждый раз непонятно сколько строк будет в каждой таблице (планирую через ИНДЕКС подтягивать с другого листа не более 30 строк для каждой таблицы).
Удалять строки нельзя, так как потом это все будет через макрос выгружаться в Word.


Спасибо!
Изменено: Macedon - 21 июн 2017 16:40:58
Форматирование таблиц и текста имортируемых из Excel в Word через Bookmarks
 
Добрый день!

Подскажите, пожалуйста, как мне поправить макрос, чтобы:
1) Вставка таблицы (закладка "Tablo_0") происходила по центру и для нее удалить интервал перед абзацем и после абзаца;
2) Для вставляемого текста из ячейки (закладка "bookmark_3") применить шрифт Calibri
Код
Sub Format_Excel_Word_transfer()
Dim wda As Word.Application
  
Set wda = CreateObject("Word.Application")
  
With wda
.Visible = True
.Documents.Open "U:\Format_Excel_Word_transfer\Templateform.dotx"
.ActiveDocument.Bookmarks("Table_0").Select
End With
  
Worksheets("Sheet1").Activate
Range("A1:B2").Copy
wda.Selection.PasteSpecial False, False, False

With wda
.Visible = True
.Documents.Open "U:\Format_Excel_Word_transfer\Templateform.dotx"
.ActiveDocument.Bookmarks("bookmark_3").Select
End With
  
Worksheets("Sheet1").Activate
Range("C2").Copy
wda.Selection.PasteSpecial

With wda
.Visible = True
.ActiveDocument.SaveAs Filename:= _
        "U:\Format_Excel_Word_transfer\" & "Test " & Format(Now, "ddMMyy") & ".docx", _
        FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False
End With
End Sub

Спасибо!
Из Excel в Word через Bookmarks, Оптимизация кода макроса
 
Добрый день, форумчане!

Подскажите, пожалуйста, как правильно описать копирование в Word из Excel через закладки? Код у меня (найден в интернете) работает, но смущает, что я что-то лишнее написал :(

Если что, текст будет копироваться из разных ячеек, листов, а также целые таблицы (пока код только на ячейки с определенного листа).
Код
Sub OpenDocument()
 
Dim wda As Word.Application
 
Set wda = CreateObject("Word.Application")
 
With wda
.Visible = True
.Documents.Open "U:\Documentik.docx"
.ActiveDocument.Bookmarks("Pervaya").Select
End With
 
Worksheets("qwerty").Activate
Range("B1").Copy
wda.Selection.PasteSpecial

With wda
.Visible = True
.Documents.Open "U:\Documentik.docx"
.ActiveDocument.Bookmarks("Vtoraya").Select
End With

Range("C1").Copy
wda.Selection.PasteSpecial
 
End Sub

Вывести ТОП n через массив по n условиям
 
Добрый день!

2 день мучаюсь, но все никак не могу понять как реализовать задачу через формулу массива.

Есть 3 столбца:
Название Значение 1 Значение 2
Нужно вывести ТОП 3, одновременно удовлетворяющих 2 условиям; 1) выбрать Топ 3 по Значение 1 (приоритет) и Топ 3 по Значению 2

Как пример:
НазваниеЗначение 1Значение 2
Абрикос101%
Помидор202%
Тверь50-1%
Плот525%
Деяст526%
Днем312%
Супер5212,50%
АКОП60011%
Итоговый результат:
АКОП
Супер
Деяст
Изменено: Macedon - 9 июн 2017 15:25:11
Удаление ненужных символов в ячейке формулой, Множественное удаление символов из ячейки ("+", " ", "-" и т.д.)
 
Добрый день!

Подскажите, пожалуйста, как можно осуществить одновременное удаление ненужных символов из ячейки ("+", " ", "-" и т.д.) ?
Пробовал через подставить и функцию ИЛИ - не сработало :cry:
Как пример:

B+  > B
BB /*+  > BB
CCC+ /*- > CCC

Спасибо!
Перенос формул в примечания, Отображение формул в примечаниях
 
Добрый день!

Подскажите, пожалуйста, как перенести формулы в примечания? Формула в ячейке D12 :  =СУММ(C2;D2)+100
Нужна именно формула, а не результат.
Попытался макрорекодером, но, к сожалению, у меня не получает=(
 
Код
ActiveCell.FormulaR1C1 = "=R[-10]C[-1]+R[-10]C+100"
    Range("D12").Select
    Range("D12").Comment.Text Text:="=СУММ(C2;D2)+100"
    Range("E10").Select
End Sub
Изменено: Macedon - 15 май 2017 14:58:31
Регрессия месяца, автозаполнение формулой
 
Добрый день!

Подскажите как можно сделать в Excel, чтобы отображался день/месяц/год как t-1.
То есть в ячейке стоит "Апр", то нужно в соседней вывести "Мар". Списки и т.п. нельзя использовать.
Выборка данных из диапазона по условию
 
Добрый день, форумчане!

Помогите с формулой на примере: http://www.planetaexcel.ru/techniques/2/81/
Как прописать условия для диапазона. Например, вывод данных для диапазона A2:A16, которые меньше или равно 4,, но больше 2.
Код
=ЕСЛИОШИБКА(ИНДЕКС($B$2:$B$16;НАИМЕНЬШИЙ(ЕСЛИ(A2:A16<=4;СТРОКА(B2:B16)-1;"");СТРОКА()-5));"")

Спасибо!
ДВССЫЛ (преобразование абсолютной ссылки на ячейку)
 
Добрый день!

Помогите, пожалуйста, с ДВССЫЛ, я никак не могу понять как прописать протягивание формул с данной функцией :cry:
Пытаюсь прописать сценарии с этой замечательной функцией, но к сожалению пока не выходит.

Что есть:
В ячейке F17 формула =ЕСЛИ($B$7="new";(ДВССЫЛ("'"&$I$1&"'!I47")+ДВССЫЛ("'"&$I$1&"'!J47"))/2*$I$3;(ДВССЫЛ("'"&$H$1&"'!I47")+ДВССЫЛ("'"&$H$1&"'!J47"))/2*$H$3)
В ячейке G17 - =ЕСЛИ($B$7="new";(ДВССЫЛ("'"&$I$1&"'!J47")+ДВССЫЛ("'"&$I$1&"'!K47"))/2*$I$3;(ДВССЫЛ("'"&$H$1&"'!J47")+ДВССЫЛ("'"&$H$1&"'!K47"))/2*$H$3)
Что нужно:
Возможность протягивания формулы (по строкам и столбцам), чтобы не прописывать все отдельно.
Пояснение.
текущая конструкция формул при протягивание не меняет ячейки (работает как абсолютная ссылка), а мне нужно чтобы заменялась. Изменяемые элементы выделил красным.

Большое спасибо!

P.S. По поиску искал - нужной темы не нашел, там обсуждается или ссылка на внутренний лист или книгу...
Изменено: Macedon - 30 ноя 2016 15:48:46
Импорт данных из Excel в Word (без Слияния), Решение задачи с помощью макроса
 
Добрый день, уважаемые форумчане!

Нужна ваша помощь. Задумал я немного упростить себе жизнь и скрестить Word с Excel, чтобы данные обновлялись при вносе правок в Excel.

Что нужно:
1)      Решение задачи по импорту данных макросом с Excel в Word, через Слияние не подходит;
2)      В зависимости от того, что стоит в шапке (ЯБЛОКО, АНАНАС или БАНАН), данные подтягиваются из Excel (как ВПР в Excel);
3)      Если возможно, то хотелось бы получить экспорт диаграмм и рисунков в зависимости от условия в шапке;
4)      Так как каждый раз создается новый файл Excel с обновлениями, то нужно, чтобы связи тоже обновлялись;
5)      Это по возможности, но все-таки, проводить вычисление в Word, например сумма по Вода Белки Жиры Углеводы для каждого фрукта. Хочу понять, как на данном примере решить более сложную задачу (файл Films).

Что нельзя делать:
1)      Создавать новый файл Word;
2)      Решать задачу Слиянием;
3)      Менять форматирование в Word при экспорте данных.

Большое спасибо!
Inputbox (операция деления / умножения с введеным значением через форму)
 
Добрый день, уважаемые Форумчане! Помогите решить проблему с макросом – никак не могу понять, как прописать в данном макросе операцию деления / умножения, чтобы в ячейке вводилось не значение, указанное в форме пользователем, а например, значение, деленное на 5 (то есть пользователь ввел 100, а в ячейке C27 в виде значения прописалось 20)
Код
Sub Form()

Range("C27").Select
    ActiveCell.Value = Application.InputBox("Количество фруктов в фуре")

End Sub
Большое спасибо!
Задание выбор периода дисконтирования в модели DCF, Оптимизация модели DCF
 
Добрый вечер! Задумался я над оптимизацией модели DCF, но никак не могу понять как сделать.
В ячейке S6 есть формула (для 4 лет прогноза):
Код
=(ЧПС(G$27;$K$13:$N$13)+($N$13*(1+$F28)/(G$27-$F28))*(1/(1+G$27)^$N$2)-$M$20)
и в ячейке M16:
Код
=ЧПС(C16;K13:N13)

Я хочу "научить" свою DCF строить модель в зависимости от периода дисконтирования. Вот пример формулы для 3 лет прогноза:
ячейка S6:
Код
=(ЧПС(G$27;$L$13:$N$13)+($N$13*(1+$F28)/(G$27-$F28))*(1/(1+G$27)^$N$2)-$M$20)

ячейка M16:
Код
=ЧПС(C16;L13:N13)

Как это сделать - я не знаю:(

Спасибо за помощь!

P.S. В остальных ячейках (T6 и т.д.) тоже надо менять, но может я пойму как сделать на примере...
Объединение ячеек с нескольких строк и столбцов с запись результата в соседюю правую пустую ячейку, Макрос
 
Добрый день! Помогите, пожалуйста, с решением, на мой взгляд нетривиальной задачи.

Есть несколько ячеек, в которых записаны текстовые и цифровые данные, нужно сделать объединение всех данных в соседнюю пустую ячейку, НО необходимо сделать так, что значения в разных строках в объединенной ячейки шли с новой строки (аналогично комбинации клавиш Alt+Enter).

Считаю, что макросом эту задачу под силу создать. Как я вижу его работу - пользователь выделяет ячейки, потом активирует макрос и в соседней от выделенного диапазона ячеек получает результат.

Пожелание:

1) Чтобы макрос заполнял ячейку с пробелами между слов, знаков и цифр ("яблоко 23");
2) Выбрать любое количество ячеек для объединения.

Спасибо!

P.S. Посмотрел следующие темы по "похожим" вопросам, но они, к сожалению, мне не помогают:(

http://www.planetaexcel.ru/techniques/7/89/

http://planetaexcel.ru/techniques/7/205/ (возможно здесь близко к решению моего вопроса, но данные записываются в разных ячейках, а мне нужно в одной и каждая строка с ячейками  - с новой строчки)
Изменено: Macedon - 19 фев 2016 14:10:23
Удаление строк из нескольких диапазонов / таблиц (условное форматирование), Макрос (анализ нескольких диапазонов одновременно)
 
Добрый вечер!

Я искал по форуму, находил темы с удалением строк, но ни один из вариантов мне, к сожалению, не подошел. Возможно, я не разобрался и они все-таки подходят, но:

1) Как задать диапазон применения удаления строк с четко оговоренных строк (диапазоны: B15:B50 + B60:B95 + B106:B141);
2) Применяя условное форматирование у меня ячейка, если пустая или 0, окрашивается в красный цвет - как задать макрос на удаление строк по условному форматированию;
3) В диапазоне B15:B50 вводятся значения, которые потом дублируются через ссылку на ячейку на B60:B95 и B106:B141, нужно чтобы макрос случайно не затер линкуемые ячейки.

В результате должны быть удалены пустые или строки с "0", которые выделены красным цветом.
Изменено: Macedon - 8 окт 2015 17:07:21
Макрос внутри другого макроса, Элементы управления формы (кнопка)
 
Добрый день! Помогите, пожалуйста, с решением данного вопроса.

Есть 2 макроса:
1 - создает кнопку на листе с "ссылкой" на другой макрос (Knopka);
2 - окрашиевает заданные ячейки в красный цвет, если пустая или 0 (Zalivka).

Проблема состоит в следующем - как "заменить" ссылку на макрос кодом, чтобы в доступных макросах был только 1.

Вот коды этих макросов:
Код
Sub Knopka()
'
' Knopka ??????
'

'
    ActiveSheet.Buttons.Add(200.25, 97.5, 89.25, 27).Select
    Selection.OnAction = "Zalivka"
    Selection.Characters.Text = "GO"
    With Selection.Characters(Start:=1, Length:=17).Font
        .Name = "Calibri"
        .FontStyle = "Bold"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
    Range("G10").Select
End Sub
Код
Sub Zalivka()
'
' Zalivka ??????
'

'
    Range("B15:B50").Select
    Range("B15:B50,B60:B95").Select
    Range("B60").Activate
    Range("B15:B50,B60:B95,B106:B141").Select
    Range("B106").Activate
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub
Решением не является "скопируйте оба макрос в книгу и все будет работать", так как эти 2 макроса являются лишь элементами огромного макроса создания шаблона для анализа информации. То есть по уровню они находятся на 2 и 3 этапе... Кроме того, макрос окраски по условию применяется только по нажатию кнопки (этап 2) пользователем.
Макрос вставки текста из ячеек в письмо с адресами, Макрос (буфер обмена+письмо со списком адресов)
 
Добрый день! Подскажите, пожалуйста, как решить задачу с использованием макроса. Попытался адаптировать на примере.

1. Есть файл, в котором заполняются данные по товарам;
2. Нужно скопировать данные из диапазона F3:F7 листа активной книги в буфер обмена, с которого запускается макрос;
3. Вставить данные (в значениях текст в кодировке Юникод) в тело письмо со списком адресов из активной книги с листа "Список рассылки" (A2:A4);
4. Тема письма "Складские запасы", а в подписи указать "Склад №1"

Скрин (что должно получиться) и пример прилагаются.

Спасибо!
Динамический диапазон для поиска и суммирования нужных значений по нескольким критериям
 
Добрый день! Помогите, пожалуйста, решить следующую проблему:

Есть несколько таблиц с даннымм на одном листе, нужно провести суммирование по типу товара по полю Стоимость заказанных товаров, руб., НО есть "вражеский" столбец Стоимость проданных товаров, руб. в другой таблице, который пока мешает корректному расчету. Как это сделать?
Важно!
Нельзя именовать диапазоны, "рвать на куски" и вводить допстолбцы и допстроки. Кроме того, таблица может расширяться и сокращаться в длину.

Спасибо!
Макрос выбора имени листа из диалогового окна, диалоговое окно с выбором имени или переименование по заданному шаблону
 
Добрый день! Помогите, пожалуйста, создать макрос.

Нужно дать новое название каждому листу книги.
Пример, если лист книги имеет Имя "Лист1" или "Sheet 1", то назовем его "Spisok", если Имя "Лист 2" или "Sheet 2", то назовем его "Data".
Процедура выполняется до конца переименования всех листов книги (не более 10 листов).

Идеальный вариант макроса - диалоговое окно со списоком имен, в котором можно выбрать как назвать определенный лист. Тогда запускать макрос можно с конкретного листа.
В макросе нельзя использовать связки с другими файлами и ссылаться на ячейки книги!

Спасибо!
ВПР с динамическим диапазоном для каждого листа
 
Добрый день!

Возникла проблема с ВПР. Нужно сделать так, чтобы диапазон в ВПР менялся в зависимости от длины таблицы, а конкретно заканчивался на последней непустой ячейке. Нужна формула. Ни макросы, ни умные и сводные таблицы, дополнительные столбцы нельзя применять. Начало диапазона на каждом листе одинаковое, а конец разный, который выводит информацию из другой таблицы.

Спасибо!  
Как правильно настроить макрос для данных с конкретной позиции (ячейки)?
 
Добрый вечер! Я, к сожалению, еще на начальном пути работы с VBA и макросами, однако уже нашел фактически готовый макрос для решения своих задач, но его требуется доработать. Сейчас макрос собирает имена листов и выводит данные по столбцам на 8-ой строке. Вопрос: как "допилить" макрос для вывода данных, начиная с ячейки C8. Спасибо большое!
Страницы: 1
Наверх