Доброго времени суток. дано: Книга "температура" заполняется руками задача: 1) Даты из книги "температура" скопировать в книгу "отчет". В идеале, чтобы была привязка к названию листов (названия листов одинаковы и будут дополняться до 12) 2) Просмотреть все даты и если данные температуры >=0 то в книгу "отчет" в ячейку "расход" ставим 1, если <0 то 2 Спасибо.
Armir, добрый вечер! 1. Что Вы подразумеваете под словом "скопировать"? Можно сделать ссылками (формулами) из исходника в отчет , но тогда значения будут меняться при изменении в исходнике, можно макросом - тогда значения в отчете зафиксируются. 2. Май - зима или лето? Октябрь - лето или зима? Почитайте внимательно это, и уточните задачу (в т.ч. одна тема=один вопрос)
не силен в макросах, читал форум, пробовал брать решения здесь, но выдает ошибки со второй задачей справился с помощью формул, но хотелось, чтобы обе задачи решал один макрос.
Вот что получилось. Даже работает, но вставляет даты изменяя формат ячейки. Возник вопрос как сделать с привязкой к листам (брать данные и вставлять в листы с одинаковым именем)
Скрытый текст
Код
Sub data()
Dim tempPath As String
Dim wbkTab As Workbook
Dim wbkTemp As Workbook
Dim shtTab As Worksheet
Dim shtTemp As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
tempPath = "D:\òåìïåðàòóðà.xls"
Set wbkTemp = ThisWorkbook
Set shtTemp = wbkTemp.ActiveSheet
Set wbkTab = Application.Workbooks.Open(tempPath)
Set shtTab = wbkTab.Worksheets("ÿíâàðü")
shtTab.Cells(4, 1).Copy shtTemp.Cells(6, 1)
shtTab.Cells(5, 1).Copy shtTemp.Cells(7, 1)
shtTab.Cells(6, 1).Copy shtTemp.Cells(8, 1)
shtTab.Cells(7, 1).Copy shtTemp.Cells(9, 1)
shtTab.Cells(8, 1).Copy shtTemp.Cells(10, 1)
shtTab.Cells(9, 1).Copy shtTemp.Cells(11, 1)
shtTab.Cells(10, 1).Copy shtTemp.Cells(12, 1)
shtTab.Cells(11, 1).Copy shtTemp.Cells(13, 1)
shtTab.Cells(12, 1).Copy shtTemp.Cells(14, 1)
shtTab.Cells(14, 1).Copy shtTemp.Cells(15, 1)
shtTab.Cells(15, 1).Copy shtTemp.Cells(16, 1)
shtTab.Cells(16, 1).Copy shtTemp.Cells(17, 1)
shtTab.Cells(17, 1).Copy shtTemp.Cells(18, 1)
shtTab.Cells(18, 1).Copy shtTemp.Cells(19, 1)
shtTab.Cells(19, 1).Copy shtTemp.Cells(20, 1)
shtTab.Cells(20, 1).Copy shtTemp.Cells(21, 1)
shtTab.Cells(21, 1).Copy shtTemp.Cells(22, 1)
shtTab.Cells(22, 1).Copy shtTemp.Cells(23, 1)
shtTab.Cells(23, 1).Copy shtTemp.Cells(24, 1)
shtTab.Cells(24, 1).Copy shtTemp.Cells(25, 1)
shtTab.Cells(25, 1).Copy shtTemp.Cells(26, 1)
shtTab.Cells(26, 1).Copy shtTemp.Cells(27, 1)
wbkTab.SaveAs
wbkTab.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Заменил строки. Вставил в свои файлы, выдает ошибку "Изменить часть объединенной ячейки невозможно" Убрал вторую строку, все заработало. Попробовал с другими ячейками, работает, но там формулы. Что надо дописать, чтобы вставлялись значения. Пробовал заменять "Copy" на "=", ячейки остаются пустыми