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

Страницы: 1 2 След.
Как изменяя данные в форме изменить их на листе?
 
#
22.11.2019 14:59:48
Вот сам файл
 
Перейти    
Как изменяя данные в форме изменить их на листе?
 
#
22.11.2019 14:45:21
Коллеги есть лист(1)  где находятся данные;
Эти данные прогружаются из формы(2);
Но если вдруг мне нужно скорректировать данные на листе я меняю это в форме и нажатием кнопки "СОХРАНИТЬ" они должны меняться и на листе.

Но есть НО -  клиентом много с разными номерами сделок и именами, как правильно прописать код?

Вот есть часть кода, но понимаю, что-то тут не так, потому-что пробрасывает в первую строку, а не в то место где именно информация по данной сделке
Прошу помощи.
Код
Private Sub CommandButton2_Click()
   Dim iText$, icell As Range
     iText = TextBox2: If iText = "" Then Exit Sub
    Set icell = Worksheets("КЛИЕНТЫ").UsedRange.Find(iText, , xlValues, xlPart) 'xlPart
    If Not icell Is Nothing Then
 icell.EntireRow.Cells(1, 3) = TextBox2
 icell.EntireRow.Cells(1, 4) = TextBox3
 icell.EntireRow.Cells(1, 5) = TextBox4
 icell.EntireRow.Cells(1, 6) = TextBox5
 icell.EntireRow.Cells(1, 7) = TextBox6
 icell.EntireRow.Cells(1, 8) = TextBox7
..........
..........
End If
End Sub
Изменено: symmetry - 22.11.2019 14:46:50
 
Перейти    
Как пробросить сначала данные в форму Visual Basic, а после обратно с изменениями назад в ячейки на листах?
 
#
21.11.2019 16:44:33
Я же не прошу мне сделать какой-то огромный проект, а прост опрошу помочь в формуле.
И это файл нужен весь для ТЗ потому что тут задействованы все листы
Изменено: symmetry - 21.11.2019 16:45:20
 
Перейти    
Как пробросить сначала данные в форму Visual Basic, а после обратно с изменениями назад в ячейки на листах?
 
#
21.11.2019 16:15:01
Добрый день, специалисты Excel.

Есть следующая задача:
Вначале вносим в 1. имя клиента или номер сделки
В ячейке 2. выходит список схожих значений по всем листам
Далее 3.пробрасываем данные со всех листов в соответствующие  ячейки(принцип ВПР)
-Далее редактируем при необходимости эти ячейки

Нажимаем сохранить 4. и все что мы ранее сохранили должно поменяться на листах Excel.

Просьба помочь хотя бы с несколькими ячейками мне нужно понять принцип и далее я сам.
Заранее спасибо
Изменено: symmetry - 21.11.2019 16:16:35
 
Перейти    
[ Закрыто] Как сделать расчет в Visual basic?
 
#
20.11.2019 12:01:33
Коллеги, есть таблица(всплывающая при открытии файла) сбоку на нескольких вкладках есть расчеты, но как их автоматизировать не могу понять.
Пример того, что нужно во вложении.
Заранее спасибо за помощь.
 
Перейти    
Как рассчитать расстояние между двумя адресами?
 
#
31.10.2019 09:46:42
Я так и не понял, во вложенном файле как это работает? Какую таблицу выбрать и на что нажать чтобы был расчет.
 
Перейти    
Как рассчитать расстояние между двумя адресами?
 
#
24.10.2019 10:02:38
А что в ячейке время на дорогу и расход топлива, там ничего не появляется.
И конечно висит так файл когда происходит расчет
 
Перейти    
Как рассчитать расстояние между двумя адресами?
 
#
24.10.2019 09:58:10
Андрей_26,У меня не работает ничего
 
Перейти    
Как рассчитать расстояние между двумя адресами?
 
#
23.10.2019 12:20:24
Ничего не работает.
Может я что не так делаю. Он делает расчет сразу на все строчки? Просто я думал что расчет делается напротив той строчки где есть необходимость
 
Перейти    
Как рассчитать расстояние между двумя адресами?
 
#
23.10.2019 10:42:02
Коллеги, добрый день.
Я уверен, что макрос о котором я попрошу нужен многочисленной аудитории, прошу помочь в этом вопросе.
Сам вопрос в следующем - необходимо рассчитать расстояние между двумя адресами(как между городами так и в пределах одного города), есть портал: https://issa.ru/distance/ в нем быстро и легко рассчитывается расстояние. Как сделать так, чтобы данные с этого сайта просто переносились в excel(парсинг)?

Пример во вложении.
 
Перейти    
Как создавать номенклатуру склада макросом
 
#
08.10.2019 17:27:50
Коллеги, есть файл в нем есть макрос. Были внесены изменения в названия столбцов и их кол-ва, соответственно макрос перестал работать.
Сможете посмотреть в чем ошибка? Не могу добавить номенклатуру. И нужно конечно же чтобы новые позиции пробрасывались в строки по очереди в таблицу

P.S. Активация макроса по двойному щелчку.
 
Перейти    
Как добавить возможность на вновь добавленные строки(с помощью макроса) их суммирование?
 
#
03.10.2019 14:29:22
МатросНаЗебре, огромное спасибо
 
Перейти    
Макросом добавить строки в разных местах листа и чтобы они участвовали в суммировании
 
#
27.09.2019 14:37:12
GRIM, Я соединил два кода ваш и свой, получается по первой части кода копирует так как надо, но не суммирует итого по вашему коду.
Где-то тут что-то лишнее, можете посмотреть?

Код
Sub Макрос1()
  
On Error Resume Next
Rows(Range("ИТОГИ1").Row - 1).Copy
Rows(Range("ИТОГИ1").Row + 0).Insert Shift:=xlDown
Application.CutCopyMode = False
  
    Set x = Range("A:I").Find("*Итого по разделу*")
    Set x2 = Range("A:K").Find("*1. Инженерные  работы*")
    Rows(x.Row).Insert
    Cells(x.Row - 1, 1) = Left(Cells(x.Row - 2, 1), InStr(1, Cells(x.Row - 2, 1), ".") - 1) & "." _
    & Val(Right(Cells(x.Row - 2, 1), Len(Cells(x.Row - 2, 1)) _
        - InStr(1, Cells(x.Row - 2, 1), "."))) + 1
    Cells(x.Row - 1, 9) = 1
    Cells(x.Row, 10).FormulaLocal = "=СУММ(K" & x2.Row + 2 & ":K" & x.Row - 1 & ")"
    Range("J" & x.Row - 2).AutoFill Destination:=Range("J" & x.Row - 2 & ":J" & x.Row - 1)
    Range("K" & x.Row - 2).AutoFill Destination:=Range("K" & x.Row - 2 & ":K" & x.Row - 1)
    ActiveSheet.Shapes.Range(Array("Picture 4")).IncrementTop 15.75
End Sub
Изменено: symmetry - 27.09.2019 14:37:30
 
Перейти    
Макросом добавить строки в разных местах листа и чтобы они участвовали в суммировании
 
#
27.09.2019 14:12:39
GRIM, Вы бог. Огромное спасибо Вам.
Но только одно, но, все копируется за исключением значений с формулами сбоку, как на скрине.

И третий столбик у меня объедененый(в нем сразу три столбика), а во вновь появляющимся этого нет
 
Перейти    
Как добавить возможность на вновь добавленные строки(с помощью макроса) их суммирование?
 
#
26.09.2019 14:15:54
Так что, кто-нибудь ответит?
 
Перейти    
Как выделить цветом промежуток времени на основе текущего времени?
 
#
26.09.2019 14:15:04
Mershik,Большое вам спасибо
 
Перейти    
Как выделить цветом промежуток времени на основе текущего времени?
 
#
26.09.2019 13:43:56
Mershik, Вот так.

То есть напротив текущей даты и напротив времени выделяется только одна фамилия
 
Перейти    
Как выделить цветом промежуток времени на основе текущего времени?
 
#
26.09.2019 12:53:34
Mershik, А можно выделять не весь столбец, а только ту ячейку на которой идет перекрестие с датой?
И время в ячейке L1 - должно быть динамическим( онлайн меняется).
 
Перейти    
Как выделить цветом промежуток времени на основе текущего времени?
 
#
26.09.2019 11:57:56
Коллеги, есть график по которым звонят менеджеры.
Как мне выделить цветом тот столбик с периодом времени который соответствует текущему времени.
Текущее время вынесено в отдельной ячейке.
 
Перейти    
Как добавить возможность на вновь добавленные строки(с помощью макроса) их суммирование?
 
#
26.09.2019 10:03:00
Добрый день.
Друзья профессионалы, есть такой вопрос.
У меня макросом добавляется новая строка перед итогом, но по какой-то причине строка копируется не полностью(копия идет с предыдущей строки), крестиками указал там куда данные не переносятся.

И самое главное вновь созданная строка не суммируется с предыдущими. Как это все исправить?

Код вот такой. Пример того что должно быть прикреплен ниже.
Код
Sub Макрос1()
  
On Error Resume Next
Rows(Range("ИТОГИ1").Row - 1).Copy
Rows(Range("ИТОГИ1").Row + 0).Insert Shift:=xlDown
Application.CutCopyMode = False
  
For i = 1 To 20
With Cells(Range("ИТОГИ1").Row - 1, i)
    If Left(.Formula, 1) <> "=" Then .Clear
End With
      
Next
  
End Sub
 
Перейти    
Как скрыть ошибку при срабатывании макроса?
 
#
25.09.2019 17:09:48
Спасибо всем огромное.
Было достаточно первого варианта

Отдельно спасибо Лунтик  
 
Перейти    
Как скрыть ошибку при срабатывании макроса?
 
#
25.09.2019 16:59:56
Код
Sub Макрос1()

Rows(Range("ИТОГИ1").Row - 1).Copy
Rows(Range("ИТОГИ1").Row + 0).Insert Shift:=xlDown
Application.CutCopyMode = False

For i = 1 To 20
With Cells(Range("ИТОГИ1").Row - 1, i)
    If Left(.Formula, 1) <> "=" Then .Clear
End With
    
Next

End Sub

Есть вот такой код, но когда он срабатывает возникает ошибка (Скрин внизу). Как скрыть это оповещение?

P.S. Не объединять ячейки я не могу, так нужно.
 
Перейти    
Если активирован один макрос другой перестает работать почему?
 
#
25.09.2019 16:14:51
Коллеги, есть такой вопрос -
У меня в одном файле очень много макросов на разные действия.
Но когда я добавил очередной макрос после его срабатывания перестает работать другой. С чем это может быть связано?

Скрин того, что есть на главном листе и второй скрин после какого макроса перестал работать другой.
 
Перейти    
Макросом добавить строки в разных местах листа и чтобы они участвовали в суммировании
 
#
25.09.2019 16:09:39
У меня есть файл, н оон очень большой тут не загрузить.
Да, мне бы написать макрос и подсказать куда его нужно добавить.
 
Перейти    
Макросом добавить строки в разных местах листа и чтобы они участвовали в суммировании
 
#
25.09.2019 15:19:58
Так что, никто не поможет что ли?
Вроде бы легко же.
 
Перейти    
Макросом добавить строки в разных местах листа и чтобы они участвовали в суммировании
 
#
25.09.2019 11:22:51
Коллеги, есть КП - стандартное, но часто недостаточно строк их необходимо больше.
Но дело в том, что в строчках есть формулы типа ВПР и, чтобы добавить новые строки с сохранением этих формул приходится копировать предыдущие строки и вставлять, и только на вновь скопированных менять на новые данные.
Как мне сделать макросы так, чтобы строчки копировались уже с формулами, макросы должны быть разные так есть разделы и в каждом нужно добавлять свои строки и самое главное, нужно чтобы вновь добавленные строки суммировались с итогом по разделу. Пример во вложении того что нужно и сам файл.
Заранее спасибо.
 
Перейти    
Как сделать поиск по названиям листов?
 
#
13.08.2019 17:21:22
БМВ,Я ничего не понял. Где текст где номер?
Поиск идет по номеру листа, номер присваивается также в виде цифры.
Раньше все искало. Можете помочь, по факту же не работает.

Файл во вложении.
 
Перейти    
Как сделать поиск по названиям листов?
 
#
13.08.2019 17:02:39
БМВ, что-то пошло не так. Я создал новый лист и он снова не ищет.
Что то не так в формуле. Просьба посмотрите.
 
Перейти    
Как сделать поиск по названиям листов?
 
#
13.08.2019 15:14:28
БМВ, огромное вам спасибо. Очень помогли.
 
Перейти    
Как сформировать отчёт на основе всех листов в файле?
 
#
13.08.2019 15:07:48
Коллеги есть файл, ранее в нем делали макросы, но они слетели.

Нужно чтобы формировались отчеты как раньше, но с новыми вводными(нужно чтобы создавались столбцы согласно параметрам которые задаются в закладке «Сводка»). Отчет должен формироваться из всех созданных листов за исключением трех основных(ОСН,Сводка Д, Сводка)(пример во вложении)

А данные с каждого листа брали из тех ячеек которые я укажу на листе Сводка
 
Перейти    
Страницы: 1 2 След.
Наверх