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

Страницы: 1
добавить новую строку и подублировать ячейку
 
Здравствуйте! Имеется лист с со списком разных запчастей, хочу чтобы по кнопке в том месте где стоит курсор (выделнная ячейка) ниже него добавлялась пустая строка, и в нее копировалось значение ячейки из 1 столбца и 3 столбца., а не вся строка

Пробовал так:
Rows(80).Copy                            

Rows(80).Insert

но не знаю как указать позицию где курсор,поэтому указал 80 строку и как продублировать 1 и 3 ячейки не знаю
Изменено: kost757 - 12.09.2022 08:22:10
Выбор нескольких значений vba в сводной
 
Здравствуйте. Как сделать макросом выбор нескольких значений vba в сводной?
Код
  For Each PivotFields In ActiveSheet.PivotTables("Сводная таблица1").PivotFields("Инв№").PivotItems
        Select Case PivotFields.Name
        Case "1231", "1350"
        Case Else
            PivotFields.Visible = False
        End Select
    Next
Таким кодом не работает, ссылается на ошибку в первой строке PivotFields In
И как заменить значения на ссылки ячейки
Изменено: kost757 - 15.02.2020 09:05:24
макрос деления текста
 
Можете помочь создать макрос деления текста .?
В ячейкуа1 вводится текст.
А затем нажатием кнопки он разбивается на слова по 160 символов в ячейки А3,А4,А5 и так далее
в начале и вконце подставляетя многоточие...
Замена значения ячейки происходит,но формат нарушается
 
Здравствуйте. макросом меняют значение ячейки F4 на H4
Код
            Application.ReplaceFormat.NumberFormat = "@"
           Selection.Replace What:=Sheets("Лист2").Range("F4").Text, Replacement:=Sheets("Лист2").Range("H4").Value, LookAt:=xlPart, _
           SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
           ReplaceFormat:=True

например в F4 текст 0856918, заменяется на ячейку H4 с текстом 0856920, но в найденой ячейке   появляется значение 85620,тоесть без 0 вначале.
У ячейки H4 формат-текстовый и у найденой ячейки должен быть текстовый, он и остаётся текстовым, но нуля нет. А должен!
Изменено: kost757 - 20.04.2019 10:50:09
При вводе чего-либо в ячейку отображение листа глючит
 
При вводе чего-либо в ячейку отображение листа глючит.
Здравствуйте. почему-то стал глючить один документ. При вводе в любую ячейку любого текста начинаются артефакты-пропадает или как-будто всё с двигается со своих мест. Если перещёлкнуть листы, то видно что всё на месте как и должно быть. Заметил, что это происходит при открытии книги из другой книги макросом или гиперссылкой. Как можно это починить?
Прикрепляю несколько файлов,

Скрытый текст
Изменено: kost757 - 06.04.2019 08:46:02
После прехода на office 2013 не работает некоторые функции
 
После прехода на office 2013 не работают кнопки ориентации листа в exel,и вообще параметров страницы. Кнопка ориентации листа серая и не нажимается
Стоял офис 2010, там все работало. В 2013 она серая и не позволяет поменять ориентацию листа в exel с вертикального на горизонтальный, даже для тех докуметнов которые были сохранены как горизонтальные.
Изменено: kost757 - 19.07.2018 16:20:44
при закрытии книни xlsm выходит ошибка что "Прекращена работа программы Microsof Exel" и завершон с ошибкой
 
При закрытии этой книни .xlsm выходит ошибка что Microsof Exel завершен с ошибкой.
В других книгах книги закрываются корректно.
Скрытый текст
Изменено: kost757 - 13.07.2018 11:15:54
Как посредством VBA сделать проверку значения из списка.?
 
Как посредством VBA сделать проверку значения из списка.?

Значение в ячейке K4. Список названий в котором искать  в диапазоне А2:А6
При нажатии кнопки если значение есть в диапазоне, вывести сооющение MsgBox " верно", а если нету то другое сообщение

Как тоже самое, но в массиве (собрать список А2:А6 в массив, и найти в массиве)
Изменено: kost757 - 04.07.2018 18:00:18
Сделал что-то ввиде пароля, как преобразовать число или слово к одному формату ?
 
Сделал что-то типа пароля, вылазит окно формы,юзерок водит циферки или слова пароля. Если верно открывается лист (показать лист)
Работает, если пароль задан в самом коде VBA, но  если его пароль задать в ячейке каком-нить листе, тот что он вводит в форуму и тот что в листе не сходятся,даже если они одинаковые. Я так понимаю форматы не верные?пробовал и "текст" и "общий " задать ячейке но это не помогло.2) Как скрыть точками или звездочками символы в окошке?
форма сделана InputBox .вот код:
Скрытый текст
Изменено: kost757 - 06.06.2018 16:43:14
В сводной таблице не могу установить фильтр по значению "равно".
 
В сводной таблице не могу установить фильтр по значаению "равно".

Я кликаю по автофильтру свобной таблицы в 1 столбце сводной таблице, нажимаю "Фильтр по значению" - "Равно..." затем появляется сообщение:
"Чтобы применить фильтр по значению, область значений должна содержать хотябы одно поле"
Таблица не пустая, первый столбец с датами.
Формула выводит не нужное число 0,752 а 0,75199999999999999
 
Формула выводит из другой книги не нужное число 0,752 а 0,75199999999999999  
 В моей книге формула
Код
=naryad052018.xlsm]10'!$V29

В той:
Код
=ЕСЛИ(R29>0;R29+U29;" ")

которая вычисляет и выдает 0,752
У меня в книге  после работы формулы =naryad052018.xlsm]10'!$V29    выводится 0,751999999999999999999999999

Уже пол года мучаюсь. разряжность тоже не убавляется, формат -Общий
Exel 2010 и 2016
Страницы: 1
Наверх