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

Страницы: 1 2 3 4 5 6 След.
копирование с одного листа на другой при помощи диалогового окна
 
вопрос решен, но в чем была ошибка так и не понял, скорее всего связано с каким то другим форматом ячеек, вчера пытался настроить до двух значимых значений, возможно нарушил формат, сегодня вернул все как было, стало все работать, за помощь спасибо
копирование с одного листа на другой при помощи диалогового окна
 
огромное спасибо, и еще вопрос, макрос сломался, вчера работал, сегодня ошибку начал выдавать, в чем может быть причина?
Код
Sub JoinRows()
Dim rng As Range, i, item, Dict, lCol As Long, lRow As Long
    Set Dict = CreateObject("Scripting.Dictionary")
    Set rng = Application.InputBox("Выберите диапазон", Type:=8)
    For Each i In rng.Rows
        item = Application.Transpose(Application.Transpose(i.Value2))
        Dict.Add i.Row, item
    Next i
    lCol = 1
    lRow = Worksheets("то что должно получиться").Cells(Rows.Count, 1).End(xlUp).Row + 1
    For Each item In Dict.items()
        Worksheets("то что должно получиться").Cells(lRow, lCol).Resize(1, UBound(item)) = item
        lCol = UBound(item) + lCol
    Next item
End Sub
выдает ошибку в этой строчке, до этого все было норм, хз что ему не нравится
Код
item = Application.Transpose(Application.Transpose(i.Value2))
копирование с одного листа на другой при помощи диалогового окна
 
тут он копирует в пределах одного листа, а нужно по идее с одного на другой
копирование с одного листа на другой при помощи диалогового окна
 
да
копирование с одного листа на другой при помощи диалогового окна
 
не работаеть(((ругается на эту строчку
Код
Sh.Cells(Split(Sh.UsedRange.Address, "$")(4), 1).Offset(1).Resize(UBound(x), UBound(x, 2)).Value = x
копирование с одного листа на другой при помощи диалогового окна
 
Здравствуйте, подскажить такой вот ответ на такой вот вопрос, нужно написать макрос, при запуске которого открывается диалоговое окно, где можно выбрать диапазон, затем он копируется на другой лист, к последней строке, что б не было пустых строк, и что б копировались только значания, нашел два макроса, но ни один не подходит, первый всегда тупо копирует только верхнюю строчку, втрой вообще не запускается
Код
Sub macroc2()
Application.ScreenUpdating = False
Dim i As Long
i = Sheets("лист1").Cells(Rows.Count, 4).End(xlUp).Row
Sheets("лист1").Range("D16:L" & i).Copy
i = Sheets("лист3").Cells(Rows.Count, 2).End(xlUp).Row + 1 'Îïðåäåëÿåì íèæ.Ñòðîêó
Sheets("лист3").Range("A" & i).Paste
Application.ScreenUpdating = True
End Sub
Код
Sub Macro1()
    Range("A1:P1").Copy
    Cells(Application.Max(25, Cells(Rows.Count, 1).End(xlUp)(2).Row), 1).PasteSpecial xlPasteValues
End Sub
макрос 1 в принципе подошел бы, если б конечно было копирование на другой лист, или выделения всего диапазона, или выделения ячейки, в которой строчке он находится, макрос 2 теоретически тоже подойдет, но не ясно как он работает
на листе 1 идут все рассчеты, на лист 3 должны попадать только скопированные значения
Изменено: denka1982 - 17.05.2022 15:47:20
условное форматирование по нескольким условиям
 
для циферок на синем фоне, их тут 9, пока что, разделов 12 основных, сколько будет по итогу сложно сказать, ну около сотни наверно, а строк в этом документе несколько десятков тысяч, и эти циферки там будут периодически попадаться
Изменено: denka1982 - 13.05.2022 15:36:26
условное форматирование по нескольким условиям
 
в общем не получится похоже сделать это формулой, для многоуровневых списков похоже это не работает, придется ручками прописать каждое условие в отдельности((((
условное форматирование по нескольким условиям
 
вот рабочий файл, он максимально сокращен, есть столбец С в нем выбирается тип продукции, далее выбирается подтип, столбец D , автоматом подстроятся все последующие значения, выбрать ничего не получится, так как выпадающий список подвязан к внешнему файлу, в стоблце В и Y  стоят циферки, на которые стоит обратить внимание, если в выпадающем списке выберется в столбце D что то из того списка.  
условное форматирование по нескольким условиям
 
короче ничего не понимаю, вот пример, там это условное форматирование работает явно как то чудесно
условное форматирование по нескольким условиям
 
не получается что то, может это из за того что список выпадающий? тут структура документа, как она есть в рабочем документе, формулы везде одинаковые, но в нужной книге не работает
Изменено: denka1982 - 13.05.2022 14:24:59
условное форматирование по нескольким условиям
 
а если там число и текст?
условное форматирование по нескольким условиям
 
как то так
условное форматирование по нескольким условиям
 
Добрый день, подскажите пожалуйста такой момент, можно ли условым форматированием выделить ячейки, содержащие текст, но текст может быть разным, идет к примеру так 2021 2021 2023 2025 2021 2028 2025 2021 2008 2117 1970 875 2014 2014 319 , нужно выделить красным 2117, 2023, 319 это идет в столбик,или в строчку, для каждого прописывать свое условие, или как то можно одним, просто если много очень условий, то эксель тормозить начнет, 100 условий конечно можно прописать, но если есть более просто способ, был бы благодарен, заранее спасибо
скрытие числа в ячейке
 
спасибо огромное, не было верхней части макроса, хотя не понятно как он работал в примере, в общем все работает теперь
скрытие числа в ячейке
 
Цитата
написал:
В какой? В той же, где нужен результат, т.е. рабочей
да в рабочей книге, именно там где должен быть
скрытие числа в ячейке
 
выше пример, там все работает, но там другие ячейки, я так думаю, а может и нет
скрытие числа в ячейке
 
он в книге, переменная в ячейке G такая =WithOutDgt(E283)
Код
Function WithOutDgt$(s)
  Dim re: WithOutDgt = s
  Set re = CreateObject("VBScript.RegExp"): re.Pattern = "^\d+"
  If re.test(s) Then WithOutDgt = re.Replace(s, "")
End Function
Изменено: denka1982 - 12.05.2022 15:14:56
скрытие числа в ячейке
 
вроде бы понятно объяснил, что есть ячейка Е которую нужно перенести в ячейку G только без цифр
скрытие числа в ячейке
 
Цитата
написал:
Цитата
denka1982 написал:
сам документ не могу прислать,
Почитайте  ТУТ  п.2.3-2.4
в реальной структуре его нереально прислать, там слишком много нюансов, по сути 4 уровневый выпадающий список, где в ячейке Е содержится уникальное значение, цифровой код, и в ячейке G нужто что б было тоже самое не без циферок вначале
скрытие числа в ячейке
 
подскажите как этот макрос работает?! в простом варианте работает, а в рабочей области не хочет, не может быть глюк из за того что у меня 4 уровневый список, сам документ не могу прислать, он весит много, только скрин, разделиться должны  ячейки Е и попасть  в ячейку показатель, там сейчас имя стоит, выделено красным и желтым цветом
Код
Function WithOutDgt$(s)
  Dim re: WithOutDgt = s
  Set re = CreateObject("VBScript.RegExp"): re.Pattern = "^\d+"
  If re.test(s) Then WithOutDgt = re.Replace(s, "")
End Function
Изменено: denka1982 - 12.05.2022 14:56:23
скрытие числа в ячейке
 
Добрый день, посдкажите как скрыть только числа в ячейке, левсимв или правсимв не подойдет, так как там сперва одна, цифра, потом две, потом три, и так может быть до 5 знаков например, нужно сделать уникальное значение, потом из них идет вся конструкция
как из нескольких строк в эксель сделать одну
 
последний вариант тоже работает, но такую формулу можно написать только выпив вотки, а разобраться в ней, выпив ящик пива))))
как из нескольких строк в эксель сделать одну
 
последний макрос то что нужно, огромное спасибо!!!
как из нескольких строк в эксель сделать одну
 
Цитата
написал:
Выделяете один диапазон, например желтый - данные записываются в последнюю строку на втором листе, затем зеленый - данные записываются на строку ниже.
завтра попробую, сейчас уже домой пора, и спасибо заранее, я всю голову сломал как это реализовать, но можно как то без выделений, там строк овер много!!!!!!!!!!!!
как из нескольких строк в эксель сделать одну
 
вроде бы доступно написал, что надо из четырех строк сделать одну, константы там есть это pb,cd,as,hg но не понимаю как, к шифру крепится константа, это получается уникальное значение, осталось придумать как это в одну строчку запихнуть, одинаковых констант 4, зато групп этих констант несколько десятков тысяч, и они всегда идут в столбик в одном и тож же порядке, но на разных строчках, есть шифр, к нему крепится 4 элемента(костанты)
Изменено: denka1982 - 05.05.2022 15:06:15
как из нескольких строк в эксель сделать одну
 
не совсем то что нужно, нужно что были столбцы с наименованием элемента, а в строчке были результаты, сейчас это тоже так, но в 4 строчки, а нужно в одну, сейчас в строчке и результаты и наименования
как из нескольких строк в эксель сделать одну
 
Цитата
написал:
не понятно что на выходе должно быть, но вместо ВПР
конечный результат это нужно те 4 строчки что идут одна над другой, вывести в одну строчку, на отдельном листе, цель как писал выше, подготовить лист для слияния с вордом
как из нескольких строк в эксель сделать одну
 
Добрый день, подскажите такой вот момент, всю голову сломал, идей нет больше как реализовать данную функцию
есть таблица, в ней есть шифр, обычно три четыре одинаковых значения, затем идут показатели, так же три четыре, шифр одинаковый, показатели разные, но каждые 4 строчки это повторяется, на другом листе это нужно все вытянуть в одну строчку, для слияния с вордом, ну это другя история, заранее спасибо, предположительно нужно использовать функцию смещ, но ничего не получается
разбивка по разным листам с одного листа
 
Здравствуйте, ответьте пожалуйста на такой вот вопрос, есть общий лист, нужно что б с него как то разносилась информация по заданным листам, сделал через ВПР, но что то не совсем правильно работает, пример прилагается, можно как то сделать что б строчки шли подряд, без пропусков?
Страницы: 1 2 3 4 5 6 След.
Наверх