Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сравнение с ячейками в другом файле - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Сравнение с ячейками в другом файле
_Boroda_ Дата: Пятница, 24.03.2023, 15:17 | Сообщение № 21
Группа: Админы
Ранг: Местный житель
Сообщений: 16691
Репутация: 6491 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
В Персонале макрос. На скрине выше видно )))
ActiveWorkbook тогда нужен вместо ThisWorkbook


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВ Персонале макрос. На скрине выше видно )))
ActiveWorkbook тогда нужен вместо ThisWorkbook

Автор - _Boroda_
Дата добавления - 24.03.2023 в 15:17
mangasarovdr Дата: Пятница, 24.03.2023, 15:18 | Сообщение № 22
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

2016
Вот его путь
К сообщению приложен файл: 1443080.png (30.4 Kb)
 
Ответить
СообщениеВот его путь

Автор - mangasarovdr
Дата добавления - 24.03.2023 в 15:18
mangasarovdr Дата: Пятница, 24.03.2023, 15:22 | Сообщение № 23
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

2016
В Персонале макрос. На скрине выше видно )))
ActiveWorkbook тогда нужен вместо ThisWorkbook

поменял, эффект тот же...
Ошибок никаких и эффекта никакого
 
Ответить
Сообщение
В Персонале макрос. На скрине выше видно )))
ActiveWorkbook тогда нужен вместо ThisWorkbook

поменял, эффект тот же...
Ошибок никаких и эффекта никакого

Автор - mangasarovdr
Дата добавления - 24.03.2023 в 15:22
Serge_007 Дата: Пятница, 24.03.2023, 15:37 | Сообщение № 24
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
В Персонале макрос. На скрине выше видно
Не обратил внимания, спасибо)

поменял, эффект тот же
Там не просто поменять надо...
Вот так работать будет:[vba]
Код
Sub mangasarovdr()
Dim WB$, rR
    WB = ActiveWorkbook.Name
     Workbooks.Open FileName:="C:\PartsPrice\PartsPrice.xlsx", UpdateLinks:=0
      Windows(WB).Activate
      On Error Resume Next
        For Each rR In Selection
            rR.Offset(0, 2) = Application.WorksheetFunction.VLookup(rR, Workbooks("PartsPrice.xlsx").Sheets(1).Range("a1:b10000"), 2, 0)
        Next rR
End Sub
[/vba]


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
В Персонале макрос. На скрине выше видно
Не обратил внимания, спасибо)

поменял, эффект тот же
Там не просто поменять надо...
Вот так работать будет:[vba]
Код
Sub mangasarovdr()
Dim WB$, rR
    WB = ActiveWorkbook.Name
     Workbooks.Open FileName:="C:\PartsPrice\PartsPrice.xlsx", UpdateLinks:=0
      Windows(WB).Activate
      On Error Resume Next
        For Each rR In Selection
            rR.Offset(0, 2) = Application.WorksheetFunction.VLookup(rR, Workbooks("PartsPrice.xlsx").Sheets(1).Range("a1:b10000"), 2, 0)
        Next rR
End Sub
[/vba]

Автор - Serge_007
Дата добавления - 24.03.2023 в 15:37
mangasarovdr Дата: Пятница, 24.03.2023, 15:40 | Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

2016
УРААА!!!
Всё работает!!
Спасибо огромное!!!! hands hands hands
 
Ответить
СообщениеУРААА!!!
Всё работает!!
Спасибо огромное!!!! hands hands hands

Автор - mangasarovdr
Дата добавления - 24.03.2023 в 15:40
_Boroda_ Дата: Пятница, 24.03.2023, 15:41 | Сообщение № 26
Группа: Админы
Ранг: Местный житель
Сообщений: 16691
Репутация: 6491 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
mangasarovdr, а там у Вас формулы в столбце Е, их оставить или удалить можно?


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщениеmangasarovdr, а там у Вас формулы в столбце Е, их оставить или удалить можно?

Автор - _Boroda_
Дата добавления - 24.03.2023 в 15:41
Serge_007 Дата: Пятница, 24.03.2023, 15:44 | Сообщение № 27
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
формулы в столбце Е
Саш, если ты про столбец F, то
остальное вручную у поставщиков уже смотрю
- значит формулы нужны, поскольку макрос не все цены вернет


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
формулы в столбце Е
Саш, если ты про столбец F, то
остальное вручную у поставщиков уже смотрю
- значит формулы нужны, поскольку макрос не все цены вернет

Автор - Serge_007
Дата добавления - 24.03.2023 в 15:44
_Boroda_ Дата: Пятница, 24.03.2023, 16:07 | Сообщение № 28
Группа: Админы
Ранг: Местный житель
Сообщений: 16691
Репутация: 6491 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
формулы нужны

Я про столбец E "Цена" файла из поста #1
Такой вариант еще получился
[vba]
Код
Sub tt()
    Dim wb0_ As Workbook, wb1_ As Workbook
    Set wb0_ = ActiveWorkbook
    Application.ScreenUpdating = 0
    Set wb1_ = Workbooks.Open("C:\PartsPrice\PartsPrice.xlsx")
    With wb1_
        With .Worksheets(1)
            nr1_ = .Cells(.Rows.Count, 1).End(3).Row - 1
            ar1_ = .Cells(2, 1).Resize(nr1_, 2).Value
        End With
        .Close
    End With
    Set slov = CreateObject("Scripting.Dictionary")
    With slov
        For i = 1 To nr1_
            .Item(ar1_(i, 1)) = ar1_(i, 2)
        Next i
        ar0_ = Selection.Resize(, 3).Value
        For i = 1 To UBound(ar0_)
            If .exists(ar0_(i, 1)) Then
                ar0_(i, 3) = .Item(ar0_(i, 1))
            Else
                ar0_(i, 3) = "=RC[3]*1.45"
                'ar0_(i, 3) = 0 ' Или так
            End If
        Next i
    End With
    Selection.Resize(, 3).Value = ar0_
    Application.ScreenUpdating = 1
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
формулы нужны

Я про столбец E "Цена" файла из поста #1
Такой вариант еще получился
[vba]
Код
Sub tt()
    Dim wb0_ As Workbook, wb1_ As Workbook
    Set wb0_ = ActiveWorkbook
    Application.ScreenUpdating = 0
    Set wb1_ = Workbooks.Open("C:\PartsPrice\PartsPrice.xlsx")
    With wb1_
        With .Worksheets(1)
            nr1_ = .Cells(.Rows.Count, 1).End(3).Row - 1
            ar1_ = .Cells(2, 1).Resize(nr1_, 2).Value
        End With
        .Close
    End With
    Set slov = CreateObject("Scripting.Dictionary")
    With slov
        For i = 1 To nr1_
            .Item(ar1_(i, 1)) = ar1_(i, 2)
        Next i
        ar0_ = Selection.Resize(, 3).Value
        For i = 1 To UBound(ar0_)
            If .exists(ar0_(i, 1)) Then
                ar0_(i, 3) = .Item(ar0_(i, 1))
            Else
                ar0_(i, 3) = "=RC[3]*1.45"
                'ar0_(i, 3) = 0 ' Или так
            End If
        Next i
    End With
    Selection.Resize(, 3).Value = ar0_
    Application.ScreenUpdating = 1
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 24.03.2023 в 16:07
Serge_007 Дата: Пятница, 24.03.2023, 16:17 | Сообщение № 29
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Я про столбец E "Цена"
Ааа, там вообще непонятно зачем формулы, поскольку поверх них макросом и руками пишутся цены


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Я про столбец E "Цена"
Ааа, там вообще непонятно зачем формулы, поскольку поверх них макросом и руками пишутся цены

Автор - Serge_007
Дата добавления - 24.03.2023 в 16:17
_Boroda_ Дата: Пятница, 24.03.2023, 16:19 | Сообщение № 30
Группа: Админы
Ранг: Местный житель
Сообщений: 16691
Репутация: 6491 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Вот и я не понял ))) Предположу, что какие-то цены пишутся в столбце Н руками, а в столбец Е они умножаются на 1,45. А может, и нет )))


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВот и я не понял ))) Предположу, что какие-то цены пишутся в столбце Н руками, а в столбец Е они умножаются на 1,45. А может, и нет )))

Автор - _Boroda_
Дата добавления - 24.03.2023 в 16:19
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!