Страницы: 1
RSS
Вставить вместо формулы значение, Просьба помочь подправить макрос
 
Добрый вечер.
Просьба помочь подправить макрос. Я нашел этот макрос на просторах интернета и немного подредактировал под свои нужды, но никак не могу сделать так чтобы вставлялись значения, а не формулы(. Уже кучу всего пробовал в течении всего дня но не получается, то ошибки выдает, то ничего не делает.
Sub KOLLIAK()
Dim myPath$, mask$, f$, i%, t As Date
Dim myFolder As Object, myFile As Object, Rn As Range
myPath = "путь к файлу"
ThisWorkbook.Worksheets(1).UsedRange.Clear
With CreateObject("Scripting.FileSystemObject")
   Set myFolder = .GetFolder(myPath)
   For Each myFile In myFolder.Files
       If myFile.Name Like "*.xlsm*" Then
           If CDate(myFile.DateCreated) > t Then
               t = CDate(myFile.DateCreated)
               f = myFile.Name
           End If
       End If
   Next
End With
Set myFolder = Nothing
myPath = myPath & "\" & f
Workbooks.Open myPath
With ActiveWorkbook.Worksheets(1)
   Set Rn = Intersect(.Range("A16", .Range("A16").SpecialCells(xlLastCell)), .Range("A16:A300"))
End With
    With ThisWorkbook.Worksheets(1)
    Rn.Copy .Range("A2")
End With
With ActiveWorkbook.Worksheets(1)
   Set Rn = Intersect(.Range("L16", .Range("L16").SpecialCells(xlLastCell)), .Range("L16:L300"))
End With
    With ThisWorkbook.Worksheets(1)
    Rn.Copy .Range("B2")
End With
ActiveWorkbook.Close
 
Здравствуйте. Насколько я понимаю, надо везде где идет процесс копирования:
Код
Rn.Copy .Range("A2")
'заменить его на копирование - вставку только значений
Rn.Copy 
.Range("A2").PasteSpecial(xlPasteValues)
'и так везде, где встречается инструкция копирования.
Кому решение нужно - тот пример и рисует.
 
или после вставки приравнивать Range к себе, то есть
Код
.Range("A2").value=.Range("A2").value
 
Dimon12345, код следует оформлять соответствующим тегом: ищите такую кнопку (см. скрин) и исправьте своё сообщение.
 
Добрый день.
Спасибо огромное!!. Получилось. Юрий М я просто не знал, что так можно делать(.
Спасибо еще раз)
Страницы: 1
Наверх