Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Как разделить паспорт по разным ячейкам, на серию номер дата выдачи и кем выдан, Как разделить паспорт по разным ячейкам, на серию номер дата выдачи и кем выдан
 
Спасибо  
Как разделить паспорт по разным ячейкам, на серию номер дата выдачи и кем выдан, Как разделить паспорт по разным ячейкам, на серию номер дата выдачи и кем выдан
 
как образец  
Как разделить паспорт по разным ячейкам, на серию номер дата выдачи и кем выдан, Как разделить паспорт по разным ячейкам, на серию номер дата выдачи и кем выдан
 
Добрый вечер.
Пример как получилось во вложение, но не как не получаться отделить кем выдан , или как это сделать более красиво одной формулой  
Разнести текст по ячейкам по разделителю ;
 

Добрый день.

Как вывести символы до ; в отдельную клетку, каждый раз при следующей ; приносить текст в новую клетку. Пример в прикреплённом.

Как сделать разный шаг на одной оси : ниже шаг 0,1 , выше - 1
 

Как сделать разный шаг на одной оси от 0 до 1 с шагом 0,1 и далее от 1 до 12 с шагом 1?

Как выполнять макрос определённое количество раз, Как выполнять макрос столько раз, сколько написано в ячейки к примеру r12c8
 

Спасибо  

Как выполнять макрос определённое количество раз, Как выполнять макрос столько раз, сколько написано в ячейки к примеру r12c8
 

Добрый день!

Может подсказать как выполнять макрос столько раз, сколько написано в ячейки к примеру r12c8

Перенос текста по заданным параметрам в первых трёх ячейках с разных листов
 
Спасибо  
Перенос текста по заданным параметрам в первых трёх ячейках с разных листов
 

Добрый день

Как сделать что бы переносился текст с листов в сводный по параметрам заданным в ячейках a. b .c

[ Закрыто] Макрос VBA, Выполнение определённого макроса столько раз сколько заполненных ячейк в столбце B
 

Как сделать выполнение макроса Pi4ati который назначен на кнопку 1, столько раз сколько заполненных ячейк в столбце B

как сделать зацикливание макроса на определенное количество раз
 
как сделать зацикливание макроса на определенное количество раз
Что бы он к примеру повторялся определенное количество раз  
Как сделать макрос который будет копировать всю сточку целиком из базы вставлять её в лист ввод во вторую строку и печать данные с листа з и так пока в базе не закончатся данные
 

Помогите, Как сделать макрос который будет копировать всю сточку целиком из базы вставлять её в лист ввод во вторую строку и печать данные с листа з и так пока в базе не закончатся данные

Как в первую свободную ячейку по столбцу B вставить формулу автосумму и растянуть её на всю строчку через VBA
 
спасибо  
Как в первую свободную ячейку по столбцу B вставить формулу автосумму и растянуть её на всю строчку через VBA
 
y
Цитата
Nordheim написал:
Цитата boomgam  написал: а как растянуть эту формулу до определенной ячейки  В право?

Изменено: Nordheim  - 3 Сен 2018 15:08:54


"Все гениальное просто, а все простое гениально!!!"
до  ячейки EJ  
Как в первую свободную ячейку по столбцу B вставить формулу автосумму и растянуть её на всю строчку через VBA
 
Цитата
Nordheim написал:
Код ? 12345Sub test()    Dim lrow&    lrow = Range("b" & Rows.Count).End(xlUp).Row    Range("b" & lrow + 1).FormulaR1C1 = "=SUM(R[" & (lrow - 1) * -1 & "]C:R[-1]C)"End Sub


"Все гениальное просто, а все простое гениально!!!"
спасибо работает а как растянуть эту формулу до определенной ячейки  
Как в первую свободную ячейку по столбцу B вставить формулу автосумму и растянуть её на всю строчку через VBA
 
да работает но на половину он не растягивает автосууму до конца строки  
Как в первую свободную ячейку по столбцу B вставить формулу автосумму и растянуть её на всю строчку через VBA
 
Как в первую свободную ячейку по столбцу B вставить формулу автосумму и растянуть её на всю строчку через VBA
Я пытался сделать вот такой строчкой, но не работает

ActiveCell.FormulaR1C1 = "=Итог" Sheets("Лист2").Cells(Rows.Count, "B").End(xlUp).Offset(1, -1)
Как подсчитать сумму до определенной ячейки
 
п
Как подсчитать сумму до определенной ячейки
 
Что бы каждый раз когда я вставляю строчку сумму он считал сумму только до красной ячейки
Как подсчитать сумму до определенной ячейки
 

Как подсчитать сумма до определенной клеточке с цветом, каждый раз при вставлении формулы количество ячейке будет разное нужно что бы они менялись под количество

Макрос для поиска и переноса информации на другой лист
 
Спасибо, а можно ещё сделать что бы между некоторых строк когда я пищу 99 и 999 вставлялось две разных формулы во всю строчку
=СУММ(ИНДЕКС(C:C;ПРОСМОТР(1;1/($A$1:$A13="");СТРОКА($A$1:$A13))+1):C13)
=--ЕЧИСЛО(C23^0)
Макрос для поиска и переноса информации на другой лист
 

Здравствуйте подскажите, пожалуйста

Как сделать макрос, который будет брать информацию из ячейки ввод искать её на листе база копировать всю строку из базы и вставлять в лист попадает инфа и при этом он ещё должен скопировать и при этом информация из листа ввод из ячейки A, B.C тоже должна перенестись на лист попадает инфа

Как скопировать все ячейки одного цвета и вставить их подряд без пробелов в другой лист
 
А как это сделать через VBA  
Как скопировать все ячейки одного цвета и вставить их подряд без пробелов в другой лист
 

Как скопировать все ячейки одного цвета и вставить их подряд без пробелов в другой лист  
В примере есть строки красного цвета как их скопировать все на лист 2 без пробелов  и вставлять как значения ,как это сделать через vba

Изменено: boomgam - 29.08.2018 15:59:46
Как вставить скопированные ячейки на другой лист в пустую свободную ячейку,
 

Здравствуйте помоги!

Как вставить скопированные ячейки на другой лист в пустую свободную ячейку,

Ячейки он должен проверять по столбцу свободна она или занята

Вот такой код начал писать не как не получается вставить правильно

Sub Кнопка1_Щелчок()

Dim i As Long

Dim r As Range

Dim znach As Variant

Dim diapaz1 As Range

Dim diapaz2 As Range

Dim rng As Range

Dim lLastRow As Long

ActiveCell.EntireRow.Copy

Rows(ActiveCell.Row).Copy

Range("A320").Select

   ActiveSheet.Paste

   

  Range("A320:EJ320").Copy

   

   Sheets("Лист2").Select

   

LastRow = Cells(Rows.Count, 1).End(xlUp).Offset(1)

   ActiveSheet.Paste

End Sub

Страницы: 1
Наверх