Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Создание URL (создание копии прайса, но без макросов)
 
#1
27.07.2012 01:08:28
Добрый вечер у меня такой вопрос:  
 
Можно ли сделать такой макрос допустим в одном файле я пишу прайс (используя макросы в нем)  
price.xls  
 
После окончание заполнения прайса он автоматически копируется все ячейки и вставляется в другой файл (catalog.xls-лист2) и формат ячеек "общий" что бы макросы с файла price.xls не были задействованы в catalog.xls (а просто как текст)  
 
Заранее спасибо
 
 
 
#2
27.07.2012 01:36:00
и причем тут URL?  
правила почитайте. вторая тема в списке тем.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#3
27.07.2012 10:08:04
Если у Вас нет макросов в модуле листа, то копируем лист в новую книгу, даём ей нужное имя. Макросов в новой книге не будет.
 
 
 
#4
27.07.2012 10:19:03
URL при чем?
 
 
 
#5
27.07.2012 10:20:25
Аббревиатура красивая... Понравилась, и всё тут.
 
 
 
#6
27.07.2012 22:24:47
Ребята а пример макроса можно написать?  
 
Заранее спасибо!
 
 
 
#7
27.07.2012 22:25:40
На вопрос отвечать будете?
 
 
 
#8
28.07.2012 12:04:45
По поводу урл - незнал как по другому написать!!
 
 
 
#9
28.07.2012 13:05:02
The_Prist спасибо тебе огромное!а если допустим не автоматически а с кнопки? При нажатие срабатывал макрос?
 
 
 
#10
28.07.2012 16:10:25
Ребята помогите пишет Object required    
Что бы всю информацию которую я записал копировался в файл catalog.xls- лист "valia"  
 
Заранее спасибо
 
 
 
#11
28.07.2012 16:11:45
Сорри забыл прикрепить файл!
 
 
 
#12
28.07.2012 21:02:02
Помогите пожалуйста!
 
 
 
#13
29.07.2012 01:43:57
Дима (The_Prist) немного перемудрил с макросом  
Правильно будет так:  
 
Sub Copy_Values()  
   Dim rRng As Range  
   With ThisWorkbook.Sheets(1)  
       Set rRng = .Range("A1", .Cells.SpecialCells(11))  
       rRng.Copy  
   End With  
   With Workbooks("catalog.xls").Sheets("valia").Range("A1")  
       .PasteSpecial xlPasteValues: .Resize(rRng.Rows.Count, rRng.Columns.Count).NumberFormat = ""  
   End With  
End Sub  
 
 
 
Потом макрос ищет книгу catalog.xls (среди открытых в Excel книг), а в ней - лист с названием valia  
Если того или другого вдруг не найдёт - снова вылетит ошибка.
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#14
29.07.2012 12:30:57
Благодарю а еще один вопрос по этому скрипту как сделать что бы он копировал только определенный лист? а не все?
 
 
 
#15
29.07.2012 14:40:33
по какому скрипту вопрос?  
 
Макрос Copy_Values вообще лист не копирует - он копирует ДАННЫЕ с ОПРЕДЕЛЁННОГО листа (первый лист текущей книги) на другой ОПРЕДЕЛЁННЫЙ лист (valia).  
 
Где вы тут нашли копирование ВСЕХ листов???
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#16
29.07.2012 23:31:47
А как написать что бы Copy_Values копировал определенный лист в лист valia???
 
 
 
#17
30.07.2012 09:02:13
Castromen, Вам ведь написали уже - копируется не лист целиком, а данные с листа. И копируются именно с "определённого" - с первого. Если Вам нужен другой - укажите его номер или имя.
 
 
 
#18
30.07.2012 12:31:36
Мне надо что бы с Copy_Values копировал из файла только определенный лист допустим    
"price" в документ catalog.xls -> Лист "Valia"
 
 
 
#19
30.07.2012 12:33:45
Ещё раз: лист не копируется - копируются данные с него.    
Вместо единицы укажите имя листа.
 
 
 
#20
30.07.2012 12:50:17
Sub Copy_Values()  
Dim rRng As Range  
With ThisWorkbook.Sheets("Products") - так не работает?  
Set rRng = .Range("A1", .Cells.SpecialCells(11)).Copy  
End With  
With Workbooks("catalog.xls").Sheets("valia").Range("A1")  
.PasteSpecial xlPasteValues: .Resize(rRng.Rows.Count, rRng.Columns.Count).NumberFormat = ""  
End With  
End Sub
 
 
 
#21
30.07.2012 13:05:55
Castromen, а вы сообщение EducatedFool от 29.07.2012, 01:43 читали?
 
 
 
#22
30.07.2012 13:24:53
Sub Copy_Values()  
Dim rRng As Range  
With ThisWorkbook.Sheets("Products")  
Set rRng = .Range("A1", .Cells.SpecialCells(11)).Copy  
End With  
With Workbooks("catalog.xls").Sheets("valia").Range("A1")  
.PasteSpecial xlPasteValues: .Resize(rRng.Rows.Count, rRng.Columns.Count).NumberFormat = ""  
End With  
End Sub  
 
 
Читал...    
Object required - пишет
 
 
 
#23
30.07.2012 13:30:20
>>Читал...    
>>Object required - пишет  
 
Тот макрос, который вы выкладываете уже второй раз подряд, не оттуда! Найдите различие.
 
 
 
Страницы: 1
Читают тему
Наверх