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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 71 След.
Преобразование формул в значения где значение больше нуля...
 
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Long
ThisWorkbook.Worksheets("List1").Activate
For i = 4 To Cells(Rows.Count, 4).End(xlUp).Row
 If Cells(i, 4).Value <> 0 Then
    Cells(i, 4).Value = Cells(i, 4).Value
 End If
Next i
ThisWorkbook.Save
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i As Long
ThisWorkbook.Worksheets("List1").Activate
For i = 4 To Cells(Rows.Count, 4).End(xlUp).Row
 If Cells(i, 4).Value <> 0 Then
    Cells(i, 4).Value = Cells(i, 4).Value
 End If
Next i
End Sub
Подстановка данных в таблицу из другой таблицы на основе введенных данных в столбце другой таблицы
 
Возникло много встречных вопросов, да еще выдает сообщения о циклических ссылках и ошибке в s4. Похоже, нужно заниматься всем этим очень плотно, а у меня сейчас нет такой возможности :(
HB
 
Спасибо! Тоже надеюсь, что благодаря нашей помощи кто-то становится счастливей! :)  
HB
 
Большое спасибо всем!  
Подстановка данных в таблицу из другой таблицы на основе введенных данных в столбце другой таблицы
 
Да, действительно, с яблоками проще было :)
На досуге поковыряюсь, поразбираюсь с Вашими таблицами, может что и получится сварганить, но если это все нужно сделать срочно - наверное лучше перенести тему в платный раздел.
Подстановка данных в таблицу из другой таблицы на основе введенных данных в столбце другой таблицы
 
Покажите файл с реальной структурой таблиц и отчётов,  попробуем подправить ☺
Подстановка данных в таблицу из другой таблицы на основе введенных данных в столбце другой таблицы
 
Наверное, можно и формулами, но я так не умею  :)
Вариант макросом:
Меню-раскладка. Вывод данных диапазона в одной ячейке.
 
В "С2" и протянуть вправо:
Код
=ИНДЕКС(C3:C12;ПОИСКПОЗ("*";C3:C12;0))
Но с таким подходом хлебнете горя :)  В одном столбце у Вас может быть несколько РАЗНЫХ значений. И как тогда?
Изменено: _Igor_61 - 9 Янв 2020 15:20:48
Взаимосвязи Приход, расход, остатки, Из прихода и расхода сделать остатки
 
С наступающим!
Не нужно изобретать велосипед, есть много бесплатных готовых складских программ и еще посмотрите вот это.
С такой структурой учета, которую Вы предлагаете, в скором времени у Вас возникнут большие проблемы. Но если хотите оставить Ваш вариант - см. пример.
Выполнение действий, если поиском найдено значение
 
Вот теперь вообще непонятно стало, что нужно сделать
Копировать данные из таблицы и вставить., Копировать рассчитанные данные в таблице и вставить как значение в соответствующую таблицу.
 
Код
Sub Удалить_таблицы()
    Dim lr As Long
    lr = Cells(Rows.Count, 7).End(xlUp).Row
    Range("20:" & lr + 2).Delete
End Sub
Об остальном создайте другую, новую тему, так как это совсем другой вопрос, никак не относящийся к текущей теме
Копировать данные из таблицы и вставить., Копировать рассчитанные данные в таблице и вставить как значение в соответствующую таблицу.
 
Так нужно?
Окно ввода появляется два раза
 
Не понял почему, но вот так вроде второй раз не выскакивает:
Код
Private Sub CommandButton1_Click()
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
   ActiveCell = ComboBox1.Value
   Call dorog
End Sub

Sub dorog()
UserForm1.Hide
d = Application.InputBox _
(Prompt:="Сутки на дорогу")
If d = 0 Then [p15] = ""
[p15] = d
End Sub
Выполнение действий, если поиском найдено значение
 
Попробую и я угадать :)
Код
Sub Poisk_()
    Dim sUslovie
    Dim i As Long
For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
    sUslovie = Cells(i, 3).Value
On Error GoTo Dalee
 If Range("A:A").Find(What:=sUslovie).Row Then
    MsgBox "Есть такое слово:  " & Chr(10) & sUslovie
 End If
Dalee:
Next i
End Sub 
Robot JORDAN, с Вас чистый файл, у меня уже кончаются, может до Нового года не хватить :)
Изменено: _Igor_61 - 27 Дек 2019 14:19:06
Удаление/замена html тегов в ячейках
 
Приложите файл с макросом, про который пишете, что он не чистит.
Как обращаться к создаваемому листу, имя которому присваивается сцеплением текста?
 
Griver, наверное Вам нужно совсем другое - как создаваемому листу присвоить уникальное имя (ИМХО)?  А потом уже будет видно, как к нему обращаться. Никто же не знает как появляется значение в Cells(277, 1). Я бы через счет листов или через дату-время делал.
Перенос из строки первого листа в следующие по названию
 
Если фильтром выберите какой-то станок, историю тоже увидите. А в столбцах правее можно и планы записывать.
А как у Вас составлено задание - формулами не получится, нужно макрос писать.
Перенос из строки первого листа в следующие по названию
 
Поставьте на листе "Общее" фильтр в столбце "С" и остальные  листы будут не нужны.
Табель учета рабочего времени, Написание макросов
 
Вопросы к создателю темы:
1.что значит 8 с нижним индексом 2? Что Вы подразумеваете под нижним индексом? Подстрочный шрифт? В примере все восьмерки одинаковые, формат ячеек общий. Но у меня 2007 Excel, может поэтому так отображается.
2.Перевод текстовых значений в числовое - посмотрите функции преобразования CByte,  CLng и т.д. - что Вам лучше подойдет.
3.Файл-пример в первом сообщении - точно тот о чем тема? Из него не понятно, как и по какому принципу отделять первую смену от второй.
Пожалуйста, обратите внимание на замечания модераторов и на остальные вопросы к Вам, если действительно хотите получить помощь.  
Перенос значений в нужные столбцы по условию "Дата"
 
Замените Date на Cells(4,3).Value
Название темы: "Перенос значений в нужные столбцы по условию "Дата"
Перенос значений в нужные столбцы по условию "Дата"
 
Код
Sub Perenos()
    Dim lD&, i
    lD = Left(Date, 2)
For i = 9 To Cells(Rows.Count, 4).End(xlUp).Row
    Cells(i, lD + 5).Value = Cells(i, 4).Value
    Cells(i, 4).ClearContents
Next i
End Sub
Изменено: _Igor_61 - 30 Сен 2019 09:28:01
Перенос строк с одного листа на другой по несколько значениям ячейки
 
Вариант:
Код
Sub Test()
    Dim iCell As Long, i As Long, j As Long, Priznak
    Priznak = Array("c", "a")
    
    For i = 0 To UBound(Priznak)
     For iCell = 1 To Cells(Rows.Count, 1).End(xlUp).Row
         j = Sheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row
      If Cells(iCell, 1) = Priznak(i) Then
         Rows(iCell).Copy Sheets("Лист2").Rows(j + 1)
      End If
     Next iCell
    Next i
End Sub
Дубль темы
Изменено: _Igor_61 - 26 Сен 2019 04:25:32
Создание листов по фильтру со сводной таблицы и их переименование, Макрос
 
gling, здравствуйте! Прикольно, не знал про такое :)
Создание листов по фильтру со сводной таблицы и их переименование, Макрос
 
Вариант: сделать отдельно список всех менеджеров и пробежаться по нему циклом.
Формула для отображения текста из нескольких ячеек в одной
 
Откуда "True" берется тоже не понял, но чтобы избавиться как вариант:
Код
Range("A1") = Right(Str, Len(Str) - 6)
:)
Или без Set:
Код
Range(Cells(i + 1, 2), Cells(j - 1, 2)).Select 
Изменено: _Igor_61 - 15 Авг 2019 20:48:39
Получения каждого слова в отдельной ячейки
 
"Имеем" и "Нужно" :)
Работа со сводной таблицей. Выделение строк цветом.
 
Цитата
fareng8 написал:
я бы на месте экселя делал так же)
Очень хороший посыл :)
Цитата
fareng8 написал:
чтобы после изменения порядка построения таблицы выделение сохранялось
Макросом (ИМХО, т.к. не знаю возможности последних версий, может уже они умеют разные сводные между собой подружить), но т.к. сводная берет данные из каких-то  первоначальных данных => конкретный макрос под конкретную задачу (результат на основе исходных данных).
P.S. Как вариант - сохранять видимые данные из первой сводной как значения и потом на основе этих значений работать со второй. Но наверное лучше сразу поставить конкретную задачу макросу.  
Изменено: _Igor_61 - 4 Авг 2019 13:31:34
Получения каждого слова в отдельной ячейки
 
IHOR, к #2 - разделитель пробел. Только предварительно уберите заголовки с объединенными ячейками
Добавить слово в указанное ко-во ячеек и выбор ячейки напротив первой выделенной
 
vikttur, точно, а я чего-то из Москвы в Питер через Америку :)  
Добавить слово в указанное ко-во ячеек и выбор ячейки напротив первой выделенной
 
Похоже, уже не нужно... И нужно ли было?
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 71 След.
Наверх