Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » antrakt1989
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Сделать цикл по столбцам и по строкам
 
#
26.09.2013 15:04:39
В данном файле необходимо выводить данные с листа Макрос на лист Итог. Макрос проверяет сначала столбец б, если площадь название 27 строки заполнено, то он выводит на лист итог только те работы объем которых не равен 0. доходит до слова конец и в теории должен переходить на столбец С. но .....как говорится я что то туплю....макрос который я ковырял там есть, дублирую сюда
Скрытый текст
Изменено: antrakt1989 - 26.09.2013 19:16:47
 
Перейти    
Перенос таблицы из эксель в ворд
 
#
11.09.2013 19:27:35
Нужно перенести таблицу из эксель в ворд с помощью макроса, есть какой то типовой способ для этого? С таким же форматированием в виде таблицы
 
Перейти    
Что не так с макросом, вставляет данные только с последнего листа
 
#
27.08.2013 15:14:09
Sub Итог()
For sh_n = 3 To Worksheets.Count
With Sheets(sh_n)
i = 4
y = 18
Z = 1
Do
x = Sheets("Итог").Cells(i, 18)  
If x = "кв.м" Then Exit Do
If x = .Name Then
a = 18
b = 3
Do While .Cells(a, b - 2) <> "Итог"
If .Cells(a, b - 2) = 1 Then

Cells(y, Z) = .Cells(4, 6)
Cells(y, Z + 2) = .Cells(a, b)
Cells(y, Z + 4) = .Cells(a, b + 2)
Cells(y, Z + 5) = .Cells(a, b + 3)
Cells(y, Z + 7) = .Cells(a, b + 5)
Cells(y, Z +  8)  = .Cells(a, b + 6)
Cells(y, Z + 9) = .Cells(a, b + 7)
End If
a = a + 1
y = y + 1
Loop
End If
i = i + 1
Loop

End With

Next sh_n

End Sub
 
Перейти    
Макрос по копированию и вставке
 
#
21.08.2013 11:15:06
Макрос код. Необходимо чтобы при активации макроса, значение суммы в ячейке (80;10) на листе Ванная копировалось и перемещалось на лист "Дано" в ячейку (9;21). Мой макрос копирует значение но не вставляет. Макрос ориентирован на вставку по принципу если значение на листе ванная (4;6)= значению на листе "дано", ячейка (9;3), то тогда сумма с листа ванная из ячейки (80;10) переносится в ячейку (9;21). Что не так?
Код
Dim clientname As String
Dim y As Variant
Dim x As String
Dim i As Integer
Sub код()
 clientname = Cells(4, 6)
 y = Value.Cells(80, 10)
 y.Select
 Selection.Copy
 Sheets("Дано"  ;)  .Select
 i = 9
 Do While Sheets("Дано"  ;)  .Cells(i, 3) <> "кв.м"
 x = Cells(i, 3)
 If x = clientname Then
 Cells(9, 21) = Application.y
 End If
 i = i + 1
 Loop
 End Sub
 
Перейти    
Макрос по выводу таблицы
 
#
06.08.2013 17:32:16
Есть таблица, исходная.....заполняем второй столбец, нажимаем на макрос, создаются листы с названиями как значения этих ячеек, на каждом из этих листов есть стандартная таблица, ячейка итого заполняется как название листа.....можно ли как то применить макрос?
 
Перейти    
При соблюдении условия должна выводиться таблица с нормативами
 
#
02.08.2013 13:52:15
Прошу помочь в данном вопросе.Я хочу чтобы при соблюдении условия выводилась таблица с нормативами, для каждого условия своя таблица
 
Перейти    
Страницы: 1
Наверх