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

Страницы: 1
Сделать цикл по столбцам и по строкам
 
#
26.09.2013 15:08:04
вроде поправил
 
Перейти    
Сделать цикл по столбцам и по строкам
 
#
26.09.2013 15:04:39
В данном файле необходимо выводить данные с листа Макрос на лист Итог. Макрос проверяет сначала столбец б, если площадь название 27 строки заполнено, то он выводит на лист итог только те работы объем которых не равен 0. доходит до слова конец и в теории должен переходить на столбец С. но .....как говорится я что то туплю....макрос который я ковырял там есть, дублирую сюда
Скрытый текст
Изменено: antrakt1989 - 26.09.2013 19:16:47
 
Перейти    
Перенос таблицы из эксель в ворд
 
#
11.09.2013 19:27:35
Нужно перенести таблицу из эксель в ворд с помощью макроса, есть какой то типовой способ для этого? С таким же форматированием в виде таблицы
 
Перейти    
Что не так с макросом, вставляет данные только с последнего листа
 
#
28.08.2013 15:16:50
Код
Sub èòîã()

i = 4
y = 18
Z = 1
For sh_n = 3 To Worksheets.Count

With Sheets(sh_n)

x = Sheets("Èòîã").Cells(i, 18)
If x = "êâ.ì" Then GoTo lab

If x = .Name Then

a = 18
b = 3
S = 0
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)
S = S + .Cells(a, b + 5)
y = y + 1
Cells(y, Z + 7) = S
End If



a = a + 1

 Loop

End If



i = i + 1
S = 0
lab:

End With

Next sh_n

End Sub
Изменено: antrakt1989 - 28.08.2013 15:18:55
 
Перейти    
Что не так с макросом, вставляет данные только с последнего листа
 
#
28.08.2013 14:37:05
Как это сделать?
 
Перейти    
Что не так с макросом, вставляет данные только с последнего листа
 
#
28.08.2013 13:49:39
Сорри, учту
 
Перейти    
Что не так с макросом, вставляет данные только с последнего листа
 
#
28.08.2013 13:41:59
[CODE][/CODE]Sub èòîã()
i = 4
y = 18
Z = 1

For sh_n = 3 To Worksheets.Count
With Sheets(sh_n)

x = Sheets("Èòîã"  ;)  .Cells(i, 1  8)  
If x = "êâ.ì" Then GoTo lab
If x = .Name Then
a = 18
b = 3
S = 0
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)
S = S + .Cells(a, b + 5)
y = y + 1
Cells(y, Z + 7) = S
End If

a = a + 1
Loop
End If

i = i + 1
S = 0
lab:

End With
Next sh_n

End Sub[/CODE]

Как сделать итог под каждой комнатой в листе Итог, то что я внес счетчик суммы, он только саммую последнюю строку выводит для последней комнаты
Изменено: antrakt1989 - 29.08.2013 20:33:21
 
Перейти    
Что не так с макросом, вставляет данные только с последнего листа
 
#
27.08.2013 18:37:17
Спасибо огромное!!!!!а как то можно итоговую строку вставить после каждой комнаты на листе "Итог"?Сейчас сам поковыряюсь, но кто знает
 
Перейти    
Что не так с макросом, вставляет данные только с последнего листа
 
#
27.08.2013 16:11:30
вот
 
Перейти    
Что не так с макросом, вставляет данные только с последнего листа
 
#
27.08.2013 15:49:47
Как его сжать, он весит 899 кб, напишите пожалуйста скайп.
Активный лист "ИТОГ", на нем кнопка, последний лист неактивный
 
Перейти    
Что не так с макросом, вставляет данные только с последнего листа
 
#
27.08.2013 15:38:48
нет листов много, их количество в коде в виде
Do
x = Sheets("Итог").Cells(i, 18)
If x = "кв.м" Then Exit Do
If x = .Name Then
 
Перейти    
Что не так с макросом, вставляет данные только с последнего листа
 
#
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 15:32:52
Поэтому и не хотелось бы приравнивания а копирование на основе совпадения ячейки (4,6) на листе комнаты с Ячейкой в столбце (9,икс) на листе дано
 
Перейти    
Макрос по копированию и вставке
 
#
21.08.2013 15:31:28
Листов много. На листе "Дано", в таблице идет список всех комнат. Наименование каждой комнаты на Листе дано=ячейке на листе с названием этой комнаты с координатами (4,6). На каждом листе с наименованием комнаты есть ячейка с координатами (80,10), у каждого листа эта сумма разная.
Ячейка (80,10) с каждого листа должна переноситься на лист Дано напротив каждой комнаты(для ванной (9,21), соответственно для гостиной (10,21). Я хочу получить макрос для каждого листа чтобы переносить последовательно (а не за один щелчок) этой ячейки. Цикл вставлю сам
 
Перейти    
Макрос по копированию и вставке
 
#
21.08.2013 15:13:40
Все отлично, для листа ванная. но дополнительно есть еще лист гостиная, как название листа привязать к макросу? и......заменить приравнивание на функцию копирования? потому что потом я вставлю дополнительно цикл
 
Перейти    
Макрос по копированию и вставке
 
#
21.08.2013 12:46:46
Напишите пожалуйста свою почту, я отправлю так
 
Перейти    
Макрос по копированию и вставке
 
#
21.08.2013 12:20:31
Как его добавить если он больше 100 кб?
 
Перейти    
Макрос по копированию и вставке
 
#
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 15:12:50
Да не важно что выводится........главное чтобы для определенного значения выводилась своя таблица....есть такая возможность или нет?через впр если или гиперссылку?
 
Перейти    
При соблюдении условия должна выводиться таблица с нормативами
 
#
02.08.2013 14:53:21
Должна вывестись на листе "стены", сами формулы в смете уже не важны, мне важен !!!!!только механизм выведения таблицы!!!!!!....дальше я сделаю сам
 
Перейти    
При соблюдении условия должна выводиться таблица с нормативами
 
#
02.08.2013 14:42:54
Колонки это понятно, они созданы для фильтра, поэтому и скрыл, а таблица на другом листе
 
Перейти    
При соблюдении условия должна выводиться таблица с нормативами
 
#
02.08.2013 14:31:22
Выпадающий список я делать умею, мне нужно после выбора значения и в зависимости от того какое это значение чтобы выводилась нужная таблица
 
Перейти    
При соблюдении условия должна выводиться таблица с нормативами
 
#
02.08.2013 14:24:26
Возможно ли решение данной проблемы через вложенные функции если и ГИПЕРССЫЛКУ?
 
Перейти    
При соблюдении условия должна выводиться таблица с нормативами
 
#
02.08.2013 14:22:09
ВОт примерно так, с фильтра с 1 страницы, должна выводиться одна из смет как на второй странице
 
Перейти    
При соблюдении условия должна выводиться таблица с нормативами
 
#
02.08.2013 14:17:30
Как его сюда вывести, чтобы он был меньше 100 кб, а то не пускает
 
Перейти    
При соблюдении условия должна выводиться таблица с нормативами
 
#
02.08.2013 14:14:04
Да я понимаю, что если нужно использовать......но как.
Есть 4 вида ремонтов:
1)косметический
2)капитальный
3)индивидуальный
4)люкс

Для каждого из ремонтов есть своя готовая смета(таблица с нормативами, в которую забиваешь площадь квартиры и она считает площадь). В зависимости от вида ремонта должна выводиться какая-то из 4 смет-таблиц. Вид ремонта выбирается фильтром.
 
Перейти    
При соблюдении условия должна выводиться таблица с нормативами
 
#
02.08.2013 13:52:15
Прошу помочь в данном вопросе.Я хочу чтобы при соблюдении условия выводилась таблица с нормативами, для каждого условия своя таблица
 
Перейти    
Страницы: 1
Наверх