Нужен макрос

[Александр Секерин]

Из текстового окна Auto Cad копирую координаты точек:

Команда: '_id Точка: X = 1934.8494 Y = 3128.9015 Z = 0.0000

Команда:
КООРД Точка: X = 2025.7536 Y = 3084.0558 Z = 0.0000

Команда:
КООРД Точка: X = 2130.1251 Y = 3090.4089 Z = 0.0000

Команда:
КООРД Точка: X = 2146.5851 Y = 3167.7678 Z = 0.0000

Нужен макрос, чтобы оставить три столбца со значениями X,Y и Z, заменив точки на запятые.

1934,8494 3128,9015 0
2025,7536 3084,0558 0
2130,1251 3090,4089 0
2146,5851 3167,7678 0

Количество строк может быть любым.
Этот макрос:

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 08.11.2010 (Пользователь)
'

'
ActiveSheet.PasteSpecial Format:="Текст в кодировке Unicode", Link:=False, _
DisplayAsIcon:=False
Cells.Select
Selection.SpecialCells(xlCellTypeBl anks).Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Selection.Delete Shift:=xlToLeft
Range("A:D,F:G,I:J").Select
Range("I1").Activate
Selection.Delete Shift:=xlToLeft
Cells.Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.SpecialCells(xlCellTypeCo nstants, 23).Select
Selection.Copy
End Sub

выдаёт ошибку 1004: не найдено ни одной ячейки, удовлетворяющей указанным условиям. Помогите плиз!

[doober]

А вам не подойдет кнопка на панели в Автокаде с макросом для вывода координат выделенных объектов в Ексель
макрос во вложении.если возникнут трудности в установке.пишите в личку

[Александр Секерин]

Ув. doober, не могли бы Вы дать пошаговую инструкцию по установке этого макроса? Заранее благодарен

[doober]

Подготовлюсь,и скину инструкцию,и пользовательскую панель с полезными макросами.
Почитайте инструкцию по Адаптации в автокаде,назначите картинки своим кнопкам

[Александр Секерин]

Спасибо большое,это то что надо!!!

[IgorGO]

если у человека руки золотые, то не важно от куда они растут...