Всем доброго времени суток. Возник такой вопрос, у меня есть два файла "Книга1" и "prn029NN1". В фаил "Книга1" мне надо перенести определенные данные с фаила "prn029NN1" Сложность заключается в том, что я как то не правильно это прописал, и у меня он копируется не верно. Буду благодарен за наставление, советы и помощь. В файле "prn029NN1" желтым выделил, что буду переносить, почему именно массив, потому что кол-во переносимых данных всегда будет меняться. ЗЫ Прошу не судть строго мой макрос =)
Всем доброго времени суток. Возник такой вопрос, у меня есть два файла "Книга1" и "prn029NN1". В фаил "Книга1" мне надо перенести определенные данные с фаила "prn029NN1" Сложность заключается в том, что я как то не правильно это прописал, и у меня он копируется не верно. Буду благодарен за наставление, советы и помощь. В файле "prn029NN1" желтым выделил, что буду переносить, почему именно массив, потому что кол-во переносимых данных всегда будет меняться. ЗЫ Прошу не судть строго мой макрос =)Xaden
Спасибо Вам огромное, все работает. Наверно не по теме, но все же хотелось бы спросить, можно ли как то переносить не всю ячейку а только определенные фразы или цифры?
Спасибо Вам огромное, все работает. Наверно не по теме, но все же хотелось бы спросить, можно ли как то переносить не всю ячейку а только определенные фразы или цифры?Xaden
я не правильно выразился, копирование у меня. Например у меня в ячейке данные "2. Cumparator: Вася пупкин" но перенести хочу только "Вася пупкин". И второй вопрос, у меня ячейка в файле переноса может быть объединенной, пробовал переносить так данные получается она объединенная и копируется, можно это обойти?
я не правильно выразился, копирование у меня. Например у меня в ячейке данные "2. Cumparator: Вася пупкин" но перенести хочу только "Вася пупкин". И второй вопрос, у меня ячейка в файле переноса может быть объединенной, пробовал переносить так данные получается она объединенная и копируется, можно это обойти?Xaden
Опять настойчиво переносить? Не путайте помогающих! Давайте понятный пример - что откуда куда частично копировать, и по какому критерию. Пока предварительно думаю можно взять в массив всё, удалить из него лишнее, выгрузить. Это если делать массивом, как заказано в начале.
Опять настойчиво переносить? Не путайте помогающих! Давайте понятный пример - что откуда куда частично копировать, и по какому критерию. Пока предварительно думаю можно взять в массив всё, удалить из него лишнее, выгрузить. Это если делать массивом, как заказано в начале.Hugo
В файле желтым отметил объединенные ячейки, в них красным отметил данные которые надо скопировать и вставить в другой фаил. и еще вопрос, можно макросом прописать, что бы скопировать весь лист и вставить его обратно как значения, вопрос заключается в том, что у меня данный фаил выходит с формулами от БД.
В файле желтым отметил объединенные ячейки, в них красным отметил данные которые надо скопировать и вставить в другой фаил. и еще вопрос, можно макросом прописать, что бы скопировать весь лист и вставить его обратно как значения, вопрос заключается в том, что у меня данный фаил выходит с формулами от БД.Xaden
1. Ищем ячейку по известному значению (например где есть "Data eliberarii / Data livrarii : "), берём всё значение, из него выбираем последнее слово, или заменяем известное ненужное на ничего, оставляя нужное. Если адреса ячеек постоянны - не нужно искать, всё проще. 2. Легко кодом: [vba]
Код
Sub tt() With ActiveSheet.UsedRange: .Value = .Value: End With End Sub
[/vba]
По дополнению - можно, но зачем?
1. Ищем ячейку по известному значению (например где есть "Data eliberarii / Data livrarii : "), берём всё значение, из него выбираем последнее слово, или заменяем известное ненужное на ничего, оставляя нужное. Если адреса ячеек постоянны - не нужно искать, всё проще. 2. Легко кодом: [vba]
Код
Sub tt() With ActiveSheet.UsedRange: .Value = .Value: End With End Sub
По сути это мой скромный код, на копирование с одного файла в другой, как видите у меня копируются ячейки, но проблема возникает в том, что в файле откуда я копирую есть ссылки на формулы с БД и объединенные ячейки. Вот и думаю просто как можно сделать, что бы не возникало проблем при копирование в другой фаил. И да адрес ячейки будет постоянным, я просто не очень понимаю как мне ваш код приспособить к моему имеющемуся.
[vba]
Код
Sub Кнопка3_Щелчок()
Dim wb1 As Object, wb2 As Object Dim ra As Range: Application.ScreenUpdating = False
Set wb1 = Windows("prn029NN1.xlsx").ActiveSheet Set wb2 = Windows("Книга1.xls").ActiveSheet
По сути это мой скромный код, на копирование с одного файла в другой, как видите у меня копируются ячейки, но проблема возникает в том, что в файле откуда я копирую есть ссылки на формулы с БД и объединенные ячейки. Вот и думаю просто как можно сделать, что бы не возникало проблем при копирование в другой фаил. И да адрес ячейки будет постоянным, я просто не очень понимаю как мне ваш код приспособить к моему имеющемуся.
[vba]
Код
Sub Кнопка3_Щелчок()
Dim wb1 As Object, wb2 As Object Dim ra As Range: Application.ScreenUpdating = False
Set wb1 = Windows("prn029NN1.xlsx").ActiveSheet Set wb2 = Windows("Книга1.xls").ActiveSheet
1. Ищем ячейку по известному значению (например где есть "Data eliberarii / Data livrarii : "), берём всё значение, из него выбираем последнее слово, или заменяем известное ненужное на ничего, оставляя нужное. Если адреса ячеек постоянны - не нужно искать, всё проще.
Если Вас не затруднит, можно один пример к любой из ячеек? где скопировать надо только нужное.
1. Ищем ячейку по известному значению (например где есть "Data eliberarii / Data livrarii : "), берём всё значение, из него выбираем последнее слово, или заменяем известное ненужное на ничего, оставляя нужное. Если адреса ячеек постоянны - не нужно искать, всё проще.
Если Вас не затруднит, можно один пример к любой из ячеек? где скопировать надо только нужное.Xaden
Чтоб не копировались формулы, а только значения - или копируйте "приравниванием" вроде [a1]=[b2] (или через массив сразу все смежные ячейки), или копируйте спецвставкой только значений/форматов (запишите рекордером).
Чтоб не копировались формулы, а только значения - или копируйте "приравниванием" вроде [a1]=[b2] (или через массив сразу все смежные ячейки), или копируйте спецвставкой только значений/форматов (запишите рекордером).Hugo