Klara
Дата: Понедельник, 04.08.2014, 09:12 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Ребята, помогите, сравниваю два столбца G в разных книгах....честно, код взяла где-то...а он выдаёт ошибку в первых же строчках, что не так? [vba]Код
Dim ACell As Range Dim BCell As Range For Each ACell In Workbooks("DSA1.xls").Worksheets("Лист1"). _ Range("G2", Cells(Rows.Count, 7).End(xlUp)) For Each BCell In Workbooks("DSA2.xls").Worksheets("Лист1"). _ Range("G2", Cells(Rows.Count, 7).End(xlUp)) If BCell.Value = ACell.Value Then Else: Workbooks("Свод").Worksheets("30.07.2014").Range("J3") = s_ + s1_ End If Next Next
[/vba]
Ребята, помогите, сравниваю два столбца G в разных книгах....честно, код взяла где-то...а он выдаёт ошибку в первых же строчках, что не так? [vba]Код
Dim ACell As Range Dim BCell As Range For Each ACell In Workbooks("DSA1.xls").Worksheets("Лист1"). _ Range("G2", Cells(Rows.Count, 7).End(xlUp)) For Each BCell In Workbooks("DSA2.xls").Worksheets("Лист1"). _ Range("G2", Cells(Rows.Count, 7).End(xlUp)) If BCell.Value = ACell.Value Then Else: Workbooks("Свод").Worksheets("30.07.2014").Range("J3") = s_ + s1_ End If Next Next
[/vba] Klara
Сообщение отредактировал Klara - Понедельник, 04.08.2014, 09:13
Ответить
Сообщение Ребята, помогите, сравниваю два столбца G в разных книгах....честно, код взяла где-то...а он выдаёт ошибку в первых же строчках, что не так? [vba]Код
Dim ACell As Range Dim BCell As Range For Each ACell In Workbooks("DSA1.xls").Worksheets("Лист1"). _ Range("G2", Cells(Rows.Count, 7).End(xlUp)) For Each BCell In Workbooks("DSA2.xls").Worksheets("Лист1"). _ Range("G2", Cells(Rows.Count, 7).End(xlUp)) If BCell.Value = ACell.Value Then Else: Workbooks("Свод").Worksheets("30.07.2014").Range("J3") = s_ + s1_ End If Next Next
[/vba] Автор - Klara Дата добавления - 04.08.2014 в 09:12
Саня
Дата: Понедельник, 04.08.2014, 09:41 |
Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация:
560
±
Замечаний:
0% ±
XL 2016
[vba]Код
For Each ACell In Workbooks("DSA1.xls").Worksheets("Лист1"). _ Range("G2", Workbooks("DSA1.xls").Worksheets("Лист1").Cells(Workbooks("DSA1.xls").Worksheets("Лист1").Rows.Count, 7).End(xlUp)) For Each BCell In Workbooks("DSA2.xls").Worksheets("Лист1"). _ Range("G2", Workbooks("DSA2.xls").Worksheets("Лист1").Cells(Workbooks("DSA2.xls").Worksheets("Лист1").Rows.Count, 7).End(xlUp)) If BCell.Value = ACell.Value Then Else: Workbooks("Свод").Worksheets("30.07.2014").Range("J3") = s_ + s1_ End If Next Next
[/vba]
[vba]Код
For Each ACell In Workbooks("DSA1.xls").Worksheets("Лист1"). _ Range("G2", Workbooks("DSA1.xls").Worksheets("Лист1").Cells(Workbooks("DSA1.xls").Worksheets("Лист1").Rows.Count, 7).End(xlUp)) For Each BCell In Workbooks("DSA2.xls").Worksheets("Лист1"). _ Range("G2", Workbooks("DSA2.xls").Worksheets("Лист1").Cells(Workbooks("DSA2.xls").Worksheets("Лист1").Rows.Count, 7).End(xlUp)) If BCell.Value = ACell.Value Then Else: Workbooks("Свод").Worksheets("30.07.2014").Range("J3") = s_ + s1_ End If Next Next
[/vba] Саня
Ответить
Сообщение [vba]Код
For Each ACell In Workbooks("DSA1.xls").Worksheets("Лист1"). _ Range("G2", Workbooks("DSA1.xls").Worksheets("Лист1").Cells(Workbooks("DSA1.xls").Worksheets("Лист1").Rows.Count, 7).End(xlUp)) For Each BCell In Workbooks("DSA2.xls").Worksheets("Лист1"). _ Range("G2", Workbooks("DSA2.xls").Worksheets("Лист1").Cells(Workbooks("DSA2.xls").Worksheets("Лист1").Rows.Count, 7).End(xlUp)) If BCell.Value = ACell.Value Then Else: Workbooks("Свод").Worksheets("30.07.2014").Range("J3") = s_ + s1_ End If Next Next
[/vba] Автор - Саня Дата добавления - 04.08.2014 в 09:41
igrtsk
Дата: Понедельник, 04.08.2014, 09:42 |
Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 314
Репутация:
50
±
Замечаний:
0% ±
Excel 2016
Без Ваших файлов затруднительно сказать что и где не так. Даже имена имена файлов могут не совпадать с используемыми макросом
Без Ваших файлов затруднительно сказать что и где не так. Даже имена имена файлов могут не совпадать с используемыми макросом igrtsk
Инструктор по применению лосей в кавалерийских частях РККА
Ответить
Сообщение Без Ваших файлов затруднительно сказать что и где не так. Даже имена имена файлов могут не совпадать с используемыми макросом Автор - igrtsk Дата добавления - 04.08.2014 в 09:42
Klara
Дата: Понедельник, 04.08.2014, 09:51 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
в принципе в этих книгах dsa1 и dsa2 всего лишь один столбец нужен для сравнения
в принципе в этих книгах dsa1 и dsa2 всего лишь один столбец нужен для сравнения Klara
Ответить
Сообщение в принципе в этих книгах dsa1 и dsa2 всего лишь один столбец нужен для сравнения Автор - Klara Дата добавления - 04.08.2014 в 09:51
Klara
Дата: Понедельник, 04.08.2014, 10:34 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
спасибо огромное, это помогло)
спасибо огромное, это помогло) Klara
Ответить
Сообщение спасибо огромное, это помогло) Автор - Klara Дата добавления - 04.08.2014 в 10:34
Klara
Дата: Вторник, 05.08.2014, 13:48 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
а если целиком название неизвестно, а известно одно слово, например слово - "Отчет", а сами книги открыты как быть?( надо сравнить столбцы "Е"
а если целиком название неизвестно, а известно одно слово, например слово - "Отчет", а сами книги открыты как быть?( надо сравнить столбцы "Е" Klara
Сообщение отредактировал Klara - Среда, 06.08.2014, 09:27
Ответить
Сообщение а если целиком название неизвестно, а известно одно слово, например слово - "Отчет", а сами книги открыты как быть?( надо сравнить столбцы "Е" Автор - Klara Дата добавления - 05.08.2014 в 13:48