Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как создать несколько макросов в одном файле чтобы бралась информация из разных вкладок, Нужно в каждую кнопку прописать макросы, чтобы, нажимая на кнопку, в столбец - стоимость без ндс вставлялась цена (она берется из вкладки, соответствующей контрагенту)
 
#1
22.06.2017 14:47:29
Добрый день. Я снова к Вам за помощью и снова с макросами. У меня есть таблица, в которую я вставляю код. Он по формуле (уже введенной) вставляет наименование. Колонка - кол-во к отгрузке заполняется вручную. Мне нужно в каждую кнопку прописать макросы, чтобы, нажимая на кнопку, в столбец - стоимость без ндс вставлялась цена (она берется из вкладки, соответствующей контрагенту). Нам надо отталкиваться от кода, который вбивается в первую колонку первого листа. Помогите прописать хотя бы один макрос, а я потом уже по шаблону сделаю остальные, а то их 25 штук(((((
 
 
 
#2
22.06.2017 15:06:19
Исходя из вопроса, не проще фонмулы? Или макрорекордер.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
 
 
#3
22.06.2017 15:10:59
Добрый день.
Формулы не проще, так как один и тот же код есть в обеих вкладках, но мне, например, сейчас нужна цена АЛСАН, а потом цена АСТОМСТРОЙ на один и тот же код.
Макрорекордер? Простите, но не сталкивалась с таким...
 
 
 
#4
22.06.2017 15:32:17
Вкладка Разработка, слева записать макрос. Выполняеете что надо и потом редактируете.
Изменено: Irbis_evs - 22.06.2017 15:33:06
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
 
 
#5
22.06.2017 15:41:12
Я, наверное, тупень... я не умею записывать макрос((( не понимаю как/что/куда надо прописывать...
Я уже на этом сайте обращалась за помощью. Мне прописали один макрос, а на основании его, я уже прописывала идентичные. Мне просто нужно сделать один, а остальные я сделаю как на подобии шаблона(((((((
 
 
 
#6
22.06.2017 15:57:18
Сделайте файл плиз, где виден вставленный код и наименование вставленное по формуле!!
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#7
22.06.2017 16:01:59
Я не могу его прислать... он весит 1,7Мб((((((((((((((((((((((
 
 
 
#8
22.06.2017 16:09:17
Код
Sub asd()
    Dim alsan As Worksheet
    Dim xrow As Long

    On Error Resume Next

    Set alsan = Sheets("Алсан")
    xrow = 0
    For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        xrow = alsan.Range("A:A").Find(Cells(i, "A").Value, LookAt:=xlWhole).Row
        If xrow <> 0 Then Cells(i, "D") = alsan.Cells(xrow, "C").Value * Cells(i, "C").Value
        xrow = 0
    Next i
End Sub
Изменено: kavaka08 - 22.06.2017 16:12:03
 
 
 
#9
22.06.2017 16:15:53
нули выводит, но не цены((
 
 
 
#10
22.06.2017 16:21:02
Код
Sub Алсан()
Dim i&, sht1 As Worksheet, dicObj As Object, sht2 As Worksheet
Set sht1 = Sheets("Алсан")
Set sht2 = Sheets("Титул")
Set dicObj = CreateObject("Scripting.Dictionary")
With sht1
    For i = 1 To .Range("a" & .Rows.Count).End(xlUp).Row
        dicObj.Item(CStr(.Cells(i, 1).Value)) = .Cells(i, 3).Value
    Next i
End With
With sht2
    For i = 2 To .Range("a" & .Rows.Count).End(xlUp).Row
        If dicObj.exists(CStr(.Cells(i, 1).Value)) Then _
            .Cells(i, 4).Value = dicObj.Item(CStr(.Cells(i, 1).Value))
    Next i
End With
End Sub
Изменено: Nordheim - 22.06.2017 16:28:22
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#11
22.06.2017 16:26:03
Можно не плодить кучу макросов, а сделать кнопки ActiveX присвоить им наименования листов, и при нажатии на кнопку задать переменную
которая будет называться как кнопка, и соответственно лист. В макрос вместо наименования листа вставить переменную, и программа будет отрабатывать тот лист который нужен. Я как бы за минимизацию кода, хотя у самого не всегда получается минимизировать, иногда такие монстры выходят аж страшно становится :)
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#12
22.06.2017 16:30:08
На словах это выглядит очень просто, но я этого еще ни разу не делала...
А этот макрос работает!!! Правда не совсем корректно, но я щас попробую подправить))))
СПАСИБО ВАМ ОГРОМНОЕ!!!!
А про кнопку активХ прочитаю в интернете... может пойму как это сделать)
 
 
 
#13
22.06.2017 16:34:15
Вот пример! А что работает не корректно? Я вроде подправил.
Изменено: Nordheim - 22.06.2017 16:35:14
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#14
22.06.2017 16:45:47
Получается, когда я вставляю, например, 10 кодов, нажимаю на кнопку, она мне подбирает цены. Но, если 5 кодов удаляю, а пять меняю на другие, она мне исправляет цены на те, что изменены, а там, где пустая строчка в графе кода она не меняет цену на ноль или на пустую ячейку.  
 
 
 
#15
22.06.2017 16:48:44
Кнопки активХ выглядят более читабельно. К
 
 
 
#16
22.06.2017 16:49:50
где пустая не меняет на 0, а нужно? м.б. их удалять ежели они пустые?
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#17
22.06.2017 16:51:09
Если меняете на другие , то нужно нажать на кнопку с тем листом  из которого взяты заменённые коды.
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#18
22.06.2017 16:52:30
Цитата
Nordheim написал:
где пустая не меняет на 0, а нужно? м.б. их удалять ежели они пустые?
Можно вручную удалять, но в идеале менять на 0))))
 
 
 
#19
22.06.2017 16:52:52
Цитата
Nordheim написал:
Если меняете на другие , то нужно нажать на кнопку с тем листом  из которого взяты заменённые коды.
Это я поняла. Я уже сижу и делаю остальные 25 листов))))))))  
 
 
 
#20
22.06.2017 16:58:42
А вам в определенный момент времени нужно видеть цены только одного листа или со всех листов?
 
 
 
#21
22.06.2017 16:59:52
Цитата
Kuzmich написал:
А вам в определенный момент времени нужно видеть цены только одного листа или со всех листов?
Одного определенного листа. Потом другого, через полчаса третьего))))) Это как единый общий прайс-лист)))
 
 
 
#22
22.06.2017 17:07:03
Макрос с учетом переменной , вставьте как пример в тот файл кот мной прикреплен, должен цену менять на 0
Код
Sub Алсан(m)
Dim i&, sht1 As Worksheet, dicObj As Object, sht2 As Worksheet
Set sht1 = Sheets(m)
Set sht2 = Sheets("Титул")
Set dicObj = CreateObject("Scripting.Dictionary")
With sht1
    For i = 1 To .Range("a" & .Rows.Count).End(xlUp).Row
        dicObj.Item(CStr(.Cells(i, 1).Value)) = .Cells(i, 3).Value
    Next i
End With
With sht2
    For i = 2 To .Range("a" & .Rows.Count).End(xlUp).Row
        If .Cells(i, 1) = "" Then .Cells(i, 4) = 0
        If dicObj.exists(CStr(.Cells(i, 1).Value)) Then _
            .Cells(i, 4).Value = dicObj.Item(CStr(.Cells(i, 1).Value))
    Next i
End With
End Sub
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#23
22.06.2017 17:12:54
Цитата
Nordheim написал:
Макрос с учетом переменной , вставьте как пример в тот файл кот мной прикреплен, должен цену менять на 0
Код
Неа, не меняет...((((
 
 
 
#24
22.06.2017 17:16:18
Т.е. вы изменяете столбец с кодами, затем кликаете на кнопку соответствующей фирмы,и цены должны подтянуться
на лист Титул. Так?
 
 
 
#25
22.06.2017 20:18:24
Цитата
Strelka47 написал:
Неа, не меняет...((((
Вы заменили старый макрос или просто вставили новый ?
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#26
22.06.2017 20:25:56
Проверяйте, обновляет весь прайс одной кнопкой!
"Все гениальное просто, а все простое гениально!!!"
 
 
 
Страницы: 1
Читают тему
Наверх