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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 92 След.
Копирование ячейки только с четных листов в сводную таблицу
 
zewa02717,
макросом так:
Код
Sub aaa()
ActiveSheet.Range("B2:C" & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row).ClearContents

For Each ws In ThisWorkbook.Worksheets
    If ws.Index Mod 2 = 0 Then
        lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
        ActiveSheet.Range("B" & lLastRow + 1) = ws.Range("B3")
        ActiveSheet.Range("C" & lLastRow + 1) = ws.Range("B6")
    End If
Next
End Sub
Изменено: evgeniygeo - 28.03.2024 17:37:14
При открытии двух файлов их значения становятся одинаковыми
 
djackson,
пробовали менять формат на xlsm?
Расчет помесячного прироста ЗП
 
ольга,
взять ЗП текущего месяца и предыдущего используя доп столбцы
Преобразовать двумерную таблицу в один столбец., Как из массива данных сделать список из одного стрлбца
 
Atajan,
во вложении
Макрос для сбора данных, Сводный файл на основе собранных данных из разных файлов
 
Danila_B,
VBA:
https://www.excel-vba.ru/chto-umeet-excel/prosmotret-vse-fajly-v-papke/
PQ:
https://baguzin.ru/wp/glava-4-import-vseh-fajlov-iz-papki/
Изменено: evgeniygeo - 28.03.2024 10:00:18
Выделение повторяющиеся информации по блокам
 
iefremov,
как вариант:
Код
=ЕСЛИ(B2="";ЛОЖЬ;ЕСЛИ(СЧЁТЕСЛИ(ДВССЫЛ("B" & ПОИСКПОЗ(2;1/(""=$B$1:B2);1) & ":B" & ПОИСКПОЗ(ИСТИНА;B3:B33="";0)+СТРОКА());B2)=ПОИСКПОЗ(ИСТИНА;B3:B33="";0)+СТРОКА()-ПОИСКПОЗ(2;1/(""=$B$1:B2);1)-1;ИСТИНА;ЛОЖЬ))
Сложение 1 к дробному числу
 
AntonBr, приветствую!
Приложите пожалуйста небольшой пример в формате excel с указанием как есть и как надо  ;)

Пока пальцем в небо так:
Код
=ЛЕВСИМВ(A2;ПОИСК("/";A2)-1)+1&"/"&ПРАВСИМВ(A2;ДЛСТР(A2)-ПОИСК("/";A2))
Изменено: evgeniygeo - 28.03.2024 06:44:46
Преобразовать двумерную таблицу в один столбец., Как из массива данных сделать список из одного стрлбца
 
Atajan,
для более детального составления кода нужен файл, а пока могу предложить:
Код
Sub aaa()
Rng = Range("A1:D" & 10)
For r = 1 To UBound(Rng)
For c = 1 To 4
    lLastRow = Cells(Rows.Count, 6).End(xlUp).Row
    Cells(lLastRow + 1, 6) = Rng(r, c)
Next c
Next r
End Sub
Изменено: evgeniygeo - 28.03.2024 06:40:18
Накопление суммы в какую дату
 
Lilikusliss,
приложите небольшой пример в формате excel + не советую менять шрифт, ели прочитал  :D
Изменено: evgeniygeo - 28.03.2024 06:31:35
Блокировка столбца от редактирования после ввода данных
 
tanya_828,
пишу в лс
Копирование данных из одного Эксель в другой по Ключевому слову
 
fanadanf30,
разделите формулу и поставьте в 2 столбца)))
Копирование данных из одного Эксель в другой по Ключевому слову
 
fanadanf30,
как вариант:
Код
=ЕСЛИОШИБКА(ЕСЛИ(ИНДЕКС('[ФАЙЛ НОМЕР 2.xlsx]Лист1'!$C$1:$C$5000;ПОИСКПОЗ($A1;'[ФАЙЛ НОМЕР 2.xlsx]Лист1'!$A$1:$A$5000;0))<>0;ИНДЕКС('[ФАЙЛ НОМЕР 2.xlsx]Лист1'!$C$1:$C$5000;ПОИСКПОЗ($A1;'[ФАЙЛ НОМЕР 2.xlsx]Лист1'!$A$1:$A$5000;0));ИНДЕКС('[ФАЙЛ НОМЕР 2.xlsx]Лист1'!$D$1:$D$5000;ПОИСКПОЗ($A1;'[ФАЙЛ НОМЕР 2.xlsx]Лист1'!$A$1:$A$5000;0)));"Нет данных")
Решение оптимизационной задачи о назначении, Необходимо распределить автобусы разной вместимости на конкретные рейсы с учетом мощности пассажиропотока на них
 
Сергей,
думаю, что попытать счастья можно, но в платной ветке форума: Работа
Как суммировать по критериям столбцов и строк, Не удается прописать формулу, чтобы суммировать все пересечения
 
KsuKsu,
Код
=СУММПРОИЗВ(('Исходные данные'!$A$3:$A$6=$A2)*('Исходные данные'!$C$1:$G$1="закупка");'Исходные данные'!$C$3:$G$6)

и
Код
=СУММПРОИЗВ(('Исходные данные'!$A$3:$A$6=$A2)*('Исходные данные'!$C$1:$G$1="продажа");'Исходные данные'!$C$3:$G$6)
Изменено: evgeniygeo - 27.03.2024 10:53:38
Получение значения самого среза
 
dim678,
Вам тоже картинку с тем, что все ок работает прислать?)))
Сумма текста в ячейках, Сумма отработанных часов
 
БМВ,
может быть еще, что буквы будут в начале, а числа в конце  :D
перенос значения ячейки по заданному условию, перенос значения ячейки по заданному условию
 
Aim,
если привязываться к 5:
Код
Sub aaa()
lLastRow = Cells(Rows.Count, 4).End(xlUp).Row
Rng = Range("A3:E" & lLastRow)
For r = 1 To UBound(Rng)
    If Rng(r, 1) <> "" Then
        Start = Rng(r, 1)
        Range("A" & r + 2 & ":C" & r + 3).ClearContents
    End If
    If Rng(r, 4) = 5 Then
        Range("A" & r + 2) = Start
    End If
Next
End Sub
Изменено: evgeniygeo - 27.03.2024 09:18:35
Сумма текста в ячейках, Сумма отработанных часов
 
БМВ,
я думаю, что в сокращенные дни там будет 7В, а еще могут быть переработки, которые отнесут на отдельные дни 4В или 12 часовые смены

P.S. просто у меня все так на работе  :D
Изменено: evgeniygeo - 27.03.2024 08:48:35
Получение значения самого среза
 
dim678,
добрый день!
Так ведь срез и фильтрует Вашу таблицу.

Сделайте небольшой пример, может быть тогда станет более понятно.
Изменено: evgeniygeo - 27.03.2024 08:45:40
Расчет помесячного прироста ЗП
 
ольга,
почему бы просто не сделать сводной?
текущий и предыдущий месяц можно определить формулой в изначальной таблице:
Код
=ЕСЛИ([@[Зарплатные ведомости.Дата]]=КОНМЕСЯЦА(СЕГОДНЯ();-1)+1;"Текущий месяц";
ЕСЛИ([@[Зарплатные ведомости.Дата]]=КОНМЕСЯЦА(СЕГОДНЯ();-2)+1;"Предыдущий месяц";""))
Анализ и представление
 
Igor Paperin,
к сожалению, у меня даже не запускается Ваше видео по ссылку, чтобы понять что к чему  :sceptic:
Сумма текста в ячейках, Сумма отработанных часов
 
Kosheli,
чтобы тупо сложить все числа, убрав буквы
Код
=СУММ(ЕСЛИОШИБКА(--ПСТР(F9:AJ9;МИН(ЕСЛИ(ЕЧИСЛО(-ПСТР(F9:AJ9;СТРОКА($1:$99);1));СТРОКА($1:$99)));ПРОСМОТР(2;1/ЕЧИСЛО(-ПСТР(F9:AJ9;СТРОКА($1:$99);1));СТРОКА($1:$99))-МИН(ЕСЛИ(ЕЧИСЛО(-ПСТР(F9:AJ9;СТРОКА($1:$99);1));СТРОКА($1:$99)))+1);""))
Изменено: evgeniygeo - 27.03.2024 07:46:47
Открыть файл по ссылке в Sharepoint, а не скачивать его
 
затупил...надо просто в конце ссылки добавить "?web=1"
https://stackoverflow.com/questions/72717086/force-open-sharepoint-url-instead-of-download
Изменено: evgeniygeo - 26.03.2024 17:19:06
Открыть файл по ссылке в Sharepoint, а не скачивать его
 
Всем привет!
У меня есть реестр в excel файлов в папке Teams, я создаю ссылки собирая данные из ячеек:
Код
ГИПЕРССЫЛКА("https://sharepoint.com/:w:/r/teams/msteams_555/Shared Documents/General/Миграция/Клин/Документы/"&B4&"/"&B4&".doc";B4&".doc")

Но при открытии данной ссылки, документ скачивается, а хотелось бы открывать его в браузере. Это возможно?
Изменено: evgeniygeo - 26.03.2024 17:07:12
Переход к следующему номеру Акта с помощью Макроса
 
zippomen1337,
во вложении
Разделить текст по столбцам (Выгрузка из 1С)
 
GalunaL,
сделайте пример итога таблицы, который Вы хотите получить и я думаю, что участники форума помогут  ;)
Изменено: evgeniygeo - 26.03.2024 06:35:58
Разделить текст по столбцам (Выгрузка из 1С)
 
GalunaL,
как вариант, можно привязаться к цветам ячеек
Изменено: evgeniygeo - 26.03.2024 06:18:53
Систематизация файлов, Windows 11
 
Ranker Dark,
как вариант, можно создать некий файл для ссылок в excel, который при входе с помощью vba будет выстраивать ссылки на папки или файлы:
https://excelvba.ru/code/FilenamesCollection
https://excelvba.ru/code/SubFoldersCollection
https://www.excel-vba.ru/chto-umeet-excel/prosmotret-vse-fajly-v-papke/
Две таблицы слить в одну
 
Jva,
для списка
Код
=УНИК(ГСТОЛБИК(B3:E3;B7:F7))

для значений
Код
=$C2*СУММЕСЛИ($B3:$E3;B12;$B4:$E4)+$C6*СУММЕСЛИ($B7:$F7;B12;$B8:$F8)
Изменено: evgeniygeo - 25.03.2024 15:26:16
Вывести уникальные значения из несвязанных диапазонов
 
RayI,
в 365:
Код
=ФИЛЬТР($A$11:$B$14;ЕСЛИОШИБКА(ПОИСКПОЗ($A$11:$A$14;$A$3:$A$8;0);"")="")

или PQ (во вложении)
Изменено: evgeniygeo - 25.03.2024 12:25:21
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 92 След.
Наверх