Ранг 2
FREE

Пламен Калинов

Присъединил се: януари 2017
					
Човешки ресурси, Психология, Обучения.
Постоянство
бета

0

най-дълъг период: 0 дни
Аула точки

2465

 
Постижения

24

за седмица 0
Изгледани уроци

97

за седмица 0
Харесани отговора

9

за седмица 0
Общо отговора

11

за седмица 0
Въпроса

1

за седмица 0
Последвани

0

 

Потвърдени умения

от харесани отговори разделени по софтуер
2
Microsoft Excel
2
Power BI

Записани курсове


Постижения

В АУЛА винаги се стремим да подобрим начина на обучение и поради това въведохме точкова система с постижения.
Принципът на работа е съвсем прост - за определено действие в АУЛА (като преминати уроци, преминат тест, отговор на въпрос от друг колега) се получават точки и постижения. Така ще възнаграждаваме хората, които регулярно гледат уроците и помагат на другите в сайта.
Който помага на другите, помага на себе си
Записани четири курса!
Записани три курса!
Най-мощното оръжие
Здрав напредък
Страхотна екипна работа
Записан втори курс!
Имейл новини. Ниво 3
Имейл новини. Ниво 2
Който дава живот на ума и знанието, той не умира
Имейл новини. Ниво 1
Стабилен напредък
Добра екипна работа
Благодарност
Доказани знания
Добро начало
Който се учи, той ще сполучи
Напредък
Три влизания за една седмица
Профил със снимка
Напред, напред, напред
Първи стъпки

Последни форум дискусии

Може ли малко помощ? Имам колони със сбор, искам ако сбора под някоя колона е 0, колоната да се трие. Дотук какво съм направил: Dim c As Range For Each c In Selection If c.Value > 0 Then ActiveCell.Offset(0, 1).Range("A1").Select If c.Value = 0 Then c.EntireColumn.Delete Next c Не мога да измисля: как да го повтаря докато срещне празна клетка да укажа ако срещне празна клетка да се върни примерно на А1.
Може ли малко помощ? Имам колони със сбор, искам ако сбора под някоя колона е 0, колоната да се трие. Дотук какво съм направил: Dim c As Range For Each c In Selection If c.Value > 0 Then ActiveCell.Offset(0, 1).Range("A1").Select If c.Value = 0 Then c.EntireColumn.Delete Next c Не мога да измисля: как да го повтаря докато срещне празна клетка да укажа ако срещне празна клетка да се върни примерно на А1.
Здравейте, имам нужда от помощ за една задача. Под колоните трябва да се добави сумарен ред и да се провери, ако сумата е 0 се трие колоната, ако не е се продължава напред и така до края. Стигнах до тук: Range("B1").Select Range(Selection, Selection.End(xlDown)).Select ActiveCell.Range("A1:A13").Select ActiveCell.Offset(12, 0).Range("A1").Activate ActiveCell.FormulaR1C1 = "=SUM(R[-12]C:R[-1]C)" ActiveCell.Offset(-12, 0).Range("A1:A13").Select Selection.End(xlDown).Select Selection.AutoFill Destination:=ActiveCell.Range("A1:F1"), Type:= _ xlFillDefault ActiveCell.Range("A1:F1").Select Selection.End(xlToRight).Select Selection.End(xlToLeft).Select If ActiveCell > 0 Then ActiveCell.Offset(0, 1).Range("A1").Select If ActiveCell = 0 Then ActiveCell.EntireColumn.Delete И сега не искам да започва макроса пак от начало а от иф?