Вставка объединённой ячейки в обычную

[Кардаган]

А если в ячейке, которую копируем, не число, а формула, а вставить нужно в другом файле в ячейку только число-результат формулы?

[27102014]

.Value - это и есть вставить значение


С формулой было бы намного сложнее

[Кардаган]

Большущее спасибо. Пока ждал последних ответов сам нацарапал код, который тоже неплохо справляется с моим случаем, только копирует он из активного листа.

Sub Макрос11()
'
' Макрос11 Макрос
'

'
    Dim i&
    
    With ActiveSheet
    Range("V39:Z39").Select
    Selection.Copy
    End With
    Windows("Сравнение.xlsx").Activate
    Range("D58").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D58").Select
    Application.CutCopyMode = False
    Selection.Copy
    For i = 66 To 100
    If Range("D" & i).Value = "" Then
    Range("D" & i).Select
    ActiveSheet.Paste
    Exit For
    End If
    Next i
    Range("D58").Select
    Selection.ClearContents
    Range("E74").Select
End Sub

[Кардаган]

Сообщение от 27102014

Sub данные ()

Set wb = Книга1 'откуда взять

'Книга2 куда вставить

Книга2.Sheets ("Лист1").Range ("A1") = wb.Sheets ("Лист1").Range ("A1").Value 

end sub

А как здесь надо книгу прописывать?

[27102014]

много тут у Вас всего накручено) можно подсократить, убрать лишнее, сделать код более оптимальным

Главное что работает)

[27102014]

 Sub данные ()

Set wb = Activeworkbook 'откуда взять

Workbooks("Сравнение").Sheets ("Лист1").Range ("D58") = wb.Sheets ("Лист1").Range ("V39").Value 

end sub

[Кардаган]

Сообщение от Кардаган

А как здесь надо книгу прописывать?

Так как надо в http://www.programmersforum.ru/showp...0&postcount=14 коде книгу прописывать??

[27102014]

Уважаемый Кардаган!
Прописывать книгу надо как обычно это делается - в скобках и кавычках.
Не стесняйтесь гуглить - это намного быстрее и проще

Workbooks("Сравнение") - Workbooks("Любое название рабочей книги")

[Кардаган]

Сообщение от 27102014

Workbooks("Сравнение") - Workbooks("Любое название рабочей книги")

Огромнейшее Вам спасибо. Плюсанул в карму. Думаю тему можно считать закрытой. удачи Вам во всём!