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

Страницы: 1 2 3 4 След.
Перенос кода программно и сохранение в другом проекте, Перенос из проекта А в проект Б
 
День добрый.
Не могу справиться с сохранением кода в другой проект. Код переносится, но при закрытии книги не сохраняется. Подскажите пожалуйста, что делаю не так?
Скрытый текст
Изменено: Владимир - 18.09.2019 09:59:36
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
FIND ругается, не находит значение, VBA
 
Добрый день.
Никак не могу определить, из-за чего Find упорно не находит в ячейке R17C20 искомое?
Предполагаю, что на вашем ПК макрос будет срабатывать, поэтому покажу скрин.    
Изменено: Владимир - 04.10.2017 14:10:27
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Уникальные и Сортировка по алфавиту, VBA.Collection.
 
Добрый вечер.
1.На первом листе исходные данные, с меткой "Уникальное". Беру диапазон от "Уникального" до ближайщего "Уникального".
2.Выделяю уникальные и сортирую по алфавиту.
3. А вот закинуть tbl в Redim что-то не получается.

Ребята, подскажите пожалуйста, где я ошибаюсь при выводе массива на лист "готово".

Макрос тут
Изменено: Владимир - 03.02.2017 16:11:03 (Накидал.Перезалил)
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Изменение контура Selection, укоротить код
 
Доброго дня, товарищи.
Возможно ли сократить данный код? Чтобы не перечислять каждую сторону, а как-то  - ..EDGE и всё.
Код
With Selection
    .Borders.LineStyle = xlNone
    .Borders(xlEdgeBottom).LineStyle = xlDouble
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeRight).LineStyle = xlContinuous
    .Borders(xlEdgeTop).LineStyle = xlContinuous
End With
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Создание одной таблицы из двух. UNION, VBA
 
Добрый день.
Ребята, помогите пожалуйста разобраться  с методом Union. Пытаюсь создать одну таблицу из двух  - Uninon(arr1,arr2). В Locals вижу, что Count стал 51, что есть ИСТИНА, а вот увидеть вторую таблицу нигде не могу. Чего я не так делаю?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
По имени файла определить, какой макрос запустить.
 
Доброе утро.
Подскажите пожалуйста, как по имени файла определить, какой должен запуститься макрос. Все макросы находятся в Personal.xlsb.
Код
Private Sub ExportToOneC()
Dim nakl, mcrs, i&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
nakl = Array("уфOДИ*", "УПД  RSP*", "t-*")' накладные приходящие от поставщиков (имена переменные)
mcrs = Array("Партком", "Шате_М", "AvtokorOpt")' имя макрос
With ActiveWorkbook
For i = 0 To UBound(nakl)
    If .Name Like nakl(i) Then
        Call mcrs
        Exit For
    End If
Next
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Фильтр. Видимые ЯЧЕЙКИ удалить., VBA
 
Добрый вечер.
Подскажите пожалуйста, как удалить ячейки (НЕ СТРОКИ) со сдвигом вверх?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Длина строки = 32767 символов., VBA
 
Добрый день, уважаемые Планетяне.
Копирую из браузера исходный текст, для того чтобы вытащить оттуда свои заказы. Но текст больше, чем вмещает в себя ячейка. Остаток исходного текста, который не влез в F1, поместил в G1. Написал макрос, который ссылается на ячейку F1 и через Call на ячейку G1. Но мне кажется, что данное решение неправильно - есть подозрение, что придётся заполнять и 3-ю ячейку. А вот мыслей умных у меня нет.
Может кто-то что-то дельное подскажет по алгоритму?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Показать статус заказа, доработать макрос
 
Добрый вечер.
Нашёл на просторах Планеты макрос, который показывает в ListBox_e найденное по первым буквам, введённым в TextBox_е.
Но мне немного этого мало. Хочется, когда в ListBox_e появляются предложения выбрать одно из них мышкой, после чего в столбце С появится текущий статус данной детали. Исходные данные находятся на листе2.

Спасибо.
Изменено: Владимир - 20.02.2016 11:37:33
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Заливка в словаре, Если значение ноль, то заносим в словарь помимо значения еще и заливку.
 
Код
With CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(min)
        .Item(min(i, 8)) = min(i, 4)
        If min(i, 4) = 0 Then .Item(min(i, 8)) = min(i, 4).Interior.ColorIndex = 3
        
    Next
    For i = 1 To UBound(ZkPk)
        .Item(ZkPk(i, 4)) = CStr(Mid(ZkPk(i, 1), 22, 3))
    Next
    For i = 1 To UBound(isk)
        If .exists(isk(i, 1)) Then
            isk(i, 1) = .Item(isk(i, 1))
        Else
            isk(i, 1) = Empty
        End If
    Next
End With
Изменено: Владимир - 12.02.2016 09:39:25 (Блин, как сообщение-то само отправить??? Не даёт выйти из кода..)
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Расширение несмежных Select_ов, Resize or Offset
 
Добрый вечер.
В конце макроса строкой AllCells.Select нахожу те ячейки, которые мне нужно удалить со сдвигом вверх. Но прежде чем их удалить, хочу расширить выделение на 3 столбца вправо, т.к. удаляя строку удалю и условие для фильтров, которые будут находится справа (в примере условия находятся внизу  - столбец 7).
Подскажите пожалуйста, возможно ли это сделать?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Данные двух таблиц -->> в одну, VBA
 
Добрый вечер.
Подскажите пожалуйста, как собирать данные словарём из двух таблиц?

Спасибо.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Создать словарь через Split, VBA
 
Здравствуйте.
Пытаюсь вытащить kod из текстовой строки, через Split, создав при этом словарь.
Подскажите пожалуйста, где моя ошибка?

Спасибо.
Изменено: Владимир - 27.11.2015 09:08:07
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Последняя накладная в списке, VBA
 
Добрый день.
Подскажите пожалуйста алгоритм. Как найти последнюю накладную поставки по каждому артикулу запчасти. Не по дате последнюю, а последнюю в списке. В примере в столбце В формула, которая правильно находит необходимую дату. А вот как это реализовать макросом, даже близко не представляю.
UDF не нужно.

Спасибо.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Количество значений в определенном столбце диапазона., vba
 
Добрый вечер.
Есть диапазон isx=range("a1:c30").value, как можно определить кол-во значений в третьем столбце, исходя уже из существующей ссылки  - isx?
Что-то типа такого  - isx(  ,3).count

Спасибо.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Поиск неучтённого.
 
Добрый день.
Подскажите пожалуйста, почему макрос не хочет брать данные со второго листа?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Удаление пустых строк после обновления., VBA
 
Добрый день.
Таблица после обновления сократилась в строках. Но в окне immediate видно  (sheets(1).usedrange.rows.select), что её размеры сохранились.
Решил почистить отработанные строки, т.е. удалить разность между usedrange - cells(rows.Count,2).end(xlup).row
Пищу  rows(cells(rows.Count,2).end(xlup).row+1&":"&sheets(1).usedrange.rows.count).delete Shift:=xlUp, но орфографию макросов слабо пока понимаю, поэтому не могу составить диапазон удаляемых строк.
Подскажите, люди добрые, где ошибаюсь?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Получить диапазон значений принадлежащий одному значению, VBA
 
Ребята, подскажите пожалуйста, можно ли ?
Пример: =ЕСЛИ(A1:A10="иванов";B1:B10)
через F9 будет такой диапазон - {1:ЛОЖЬ:ЛОЖЬ:ЛОЖЬ:ЛОЖЬ:6:7:ЛОЖЬ:ЛОЖЬ:ЛОЖЬ}
А как макросом создать такой диапазон, чтобs он появился в Locals?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Неопознанная ошибка, GetObject
 
 
Скрытый текст
У меня постоянно выскакивает данная ошибка, когда открыт исходный файл. Если его закрыть, то макрос отрабатывает нормально. В чём может быть причина? Может уйти от GetObject?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Сохранение текстового формата, VBA
 
Вечер добрый.
Делаю ссылку на диапазон - Set x1 = Range(Cells(17, 2), Cells(Cells(17, 2).End(xlDown).Row - 1, 2)) и сразу вижу в окне Locals, что он из текстового формата превращается в числовой. Т.е. когда впереди кода идут нули, к примеру 0450000400, то они обрубаются - 450000400. А это не есть хорошо, мне бы зафиксировать их "045000.."
Подскажите пожалуйста, как сохранить текстовой формат, чтобы при выгрузке видно было такой же формат  - 0450000400.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Найти ненайденное., VBA
 
Ребята, вечер добрый.
Помогите найти ошибку в макросе.
Ищу столбец 1 в 14-ом. Подсветил ненайденное. Пример в макросом прилагаю.

Спасибо.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Поиск в ячейке диапазона, VBA
 
Добрый вечер.
Помогите пожалуйста найти соответствие в диапазоне констант каждой ячейке.

Спасибо.  
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Заливка ячеек в словаре
 
Добрый день.
Как делать заливку в цикле знаю, а как в словаре - близко не представляю.
1.В примере хочу закрасить зелёным цветом столбец А, при условии, что в столбце D данные от 50 до 100.
И красным, если менее нуля.

2.Что для быстродействия макроса и веса файла более комфортно  - красить в макросе или стандартным УФ-ом?

Спасибо.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Начало вставки данных словарём.
 
   Здравствуйте. Вставляю данные макросом, но они встают на 3 ячейки ниже. Лишь один регулятор нашёл вместо F4 поставить F1, но тогда у меня попадает на заголовок таблицу. Подскажите пожалуйста, где подставить -3, чтобы данные  оказались на своём месте? Всё перепробовал "тыком", везде ошибку выдаёт.
Код
 b = Sheets(6).UsedRange.Value ' таблица, в которой ищем
    With CreateObject("Scripting.Dictionary")
        For ix = 1 To UBound(b)  ' последняя строка исх.таблицы
            .Item(b(ix, 1)) = ix ' заносим в словарь код
        Next
        aa = Sheets(1).UsedRange.Columns(16).Value ' диапазон, который ищем
        ReDim c(1 To UBound(aa), 1 To 1) ' создаём размер итоговой таблицы
        For ix = 1 To UBound(aa)
            If .exists(aa(ix, 1)) Then
                ii = .Item(aa(ix, 1))
                c(ix, 1) = b(ii, 3)
            End If
        Next
    End With
    Sheets(1).[F4].Resize(ix) = c()
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Delete Chr(34) (удалить кавычку), VBA
 
Доброго времени суток.
Ребята, помогите пожалуйста удалить кавычку.
---------------------------------------
Зы: ..достала она уже.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Текстовой диапазон превратить в числовой, VBA
 
Доброе утро.
Ребята, подскажите пожалуйста, как текст в диапазоне превратить в числа чохом?
Код
Range("F1") = 1
Range("F1").Copy
Range(Cells(9, 3), Cells(lastrow, 3)).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply
Application.CutCopyMode = False
Только таким способом получилось.
Не увидел на форуме, что функция Val может работать с диапазонами. Только с ячейками.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Do...Loop круче For...Next
 
Добрый день.
Подскажите, что может Do...Loop такого, что нельзя сделать при помощи For...Next или If,  или иного оператора?
Никогда на ум не приходит использовать Do...Loop.
Может я неправ?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Выбор НЕПУСТЫХ значений, VBA.
 
Здравствуйте.
Учусь работать с массивами. Хочу вытащить непустые значения из столбца А:А.
Получилось, но только при помощи удаления пустых строк.
А как можно сделать тоже самое, только без удаления строк?

Спасибо.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Если файл открыт, то не открывать., VBA.
 
Здравствуйте.
Подскажите пожалуйста, как избавиться от ошибки. Если файл открыт, то не отрывать, если закрыт, то
Workbooks.Open FileName:="F:\Логистика\Книга.XLSM"
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Удаление строк при условии., VBA.
 
Добрый день.
Пытаюсь написать макрос по удалению строк при условии - Cells(i, 16) >= Cells(i + 1, 3). Если условие ИСТИНА, то должны удалится три строки -
Range(Cells(i, 2), Cells(i + 2, 2)).EntireRow.Delete.
Подскажите, пожалуйста, что неправильно делаю?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
Страницы: 1 2 3 4 След.
Наверх