Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » alexkonkin
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Проверка всего листа на ошибки
 
#
07.01.2018 11:54:39
Доброго времени суток.
Подскажите пожалуйста, есть какая-нибудь функция или лайфхак, чтобы проверить весь лист на Н/Д или ССЫЛКу?
 
Перейти    
Вставка значений по нескольким горизонтальным критериям
 
#
15.11.2017 11:10:02
Добрый день.
В таблицу А нужно ставить значения с листа 2 по критериям столбца А и строк 2,3,4.
 
Перейти    
Перенос данных таблицы с помощью макроса по критерию >0
 
#
20.10.2017 19:16:04
Здравствуйте.Помогите пожалуйста с кодом VBA.Нужно перенести столбец А листа Выгрузка на лист Отчет столбец А по критерию >0 и также со столбцом С,но критерий по столбцу А,больше 0.Т.е. если в столбце А есть значение,то переносим значение ячейки столбца А и С,нет-смотрим дальше.
 
Перейти    
Переход между листами макросом
 
#
20.06.2017 22:11:50
Здравствуйте.
Можно ли сделать такой  макрос,в котором:на первом листе есть наименования,модуль 1,модуль 2 и тд,я жму на модуль 1 и он , просматривая все листы(всю книгу) перебрасывал меня именно на это лист, в котором есть это наименование?Что - то вроде функции cntrl+f,только по всей книге
 
Перейти    
Добавление условия в макрос
 
#
20.06.2017 17:26:19
Добрый день.
Как прописать в макрос условие,чтобы если в столбце D есть б/о, то строку пропускаем и если в столбце Е есть виномания или винтренд то тоже пропускаем?
 
Перейти    
[ Закрыто] Помогите разобраться с формулой
 
#
11.05.2017 16:54:45
Здравствуйте.
Как удалить Отдел 1(2 или 3,не важно) на листе Dashboard?
Откуда взяты цифры для подсчета ячеек B7 , B9 и тд?
На листе Data почему цифры в десятых и можно ли сделать обычные показатели?15460 например
Файл загрузить не смог,даже в сжатом виде весит 117 кб,удалять ничего нельзя
ссылка на файл:http://файлообменник.рф/q8v70oynfxwt.html
 
Перейти    
Переход на следующую дату,при использовании макроса
 
#
21.04.2017 14:49:53
Добрый день.
Можно ли сделать так,чтобы при нажатии на кнопку Старт , дата в ячейке А13 менялась на день вперед?Максимум до 31 числа,понятное дело.
 
Перейти    
Не добавляются значения после использования макроса
 
#
19.04.2017 11:57:01
Здравствуйте.
А почему не добавляются значения в столбец Н на листе Заявка (и последующие ,при нажатии на кнопку Старт)?Меняю в коде arrV(7, N) = arrTemp(I, 1) единицу на другие столбцы,всё равно результата нет....
 
Перейти    
[ Закрыто] Макрос неправильно добавляет строку
 
#
21.03.2017 11:25:02
Доброго времени суток.
Есть макрос,который сначала добавляет пустые строки по столбцу Е,т.е. между первым и вторым , вторым и третьим и тд.Но почему-то вторую строчку он не видит,вместо первого рейса дублируется второй вверх и вниз.В чем ошибка может быть?
 
Перейти    
Макрос вставки листа на каждый день месяца
 
#
13.03.2017 10:46:35
Добрый день.
Можно ли сделать такой оператор,счетчик по дате ( A13,с 3 по 12 число),и автоматом,при нажатии на кнопку СТАРТ,сделать 10 листов(лист со значениями 3 числа,четвертого,пятого и тд.)?
И помогите пожалуйста понять,в чем ошибка.В макрос добавил строчку If arrIf(L, 3) > 0 Then ,которая должна сделать условие,что если значение в столбце L > 0 и далее смотрит дату,то он выводит данный маршрут.Но у меня он почему-то видит условие только даты...
 
Перейти    
Макрос добавления значения предыдущей строки
 
#
02.03.2017 10:52:16
Добрый день.
Есть макрос,который сначала добавляет пустую строчку (градация по рейсам,1,2,3 и тд),производит суммирование в определенных столбцах.Можно ли как-нибудь дописать его,чтобы он выводил ещё и значение по рейсу?Т.е. Рейс 1(стобец Е),добавляется строчка,идёт суммирование в столбцах G и H и нужно,чтобы в столбце А в пустой строчке шла дата по рейсу (на примере Рейса №1 дата 05.01.2017).Можно ли что-нибудь сделать на этот счет?
 
Перейти    
Макрос неправильно добавляет строчки
 
#
27.02.2017 17:54:37
Доброго времени суток.
Подскажите пожалуйста,почему макрос неправильно добавляет пустые строки?В идеале он должен добавлять пустые строки , если в столбце Е значение предыдущей строки не равняется значению данной.(к примеру,1,1,1 пустая строка,2,2,2 пустая строка и т.д.).В моем файле он не добавляет почему-то строчку между строк 10 и 11.
И подскажите ещё такой момент,как просуммировать значение предыдущих строк столбца Н. Добавил строку 8,по 5 рейсу суммирование выделил желтым.
 
Перейти    
Макрос копирования данных с форматировнием: прокомментировать несколько строк
 
#
17.02.2017 11:31:05
Доброго времени суток.
Есть такой макрос,который выполняет следующие действия:создает новый лист,копирует часть шаблона с листа 2,а с листа 1 берет определенные строки по дате листа 2,при этом сохраняя форматирование
Код
Dim Sh As Worksheet
Dim arrTemp, arrV() 
Dim I&, N&, iRow&
Application.ScreenUpdating = False
On Error Resume Next
With Worksheets("водители-экспедиторы")
    arrTemp = .Range("B3:V" & .Cells(.Rows.Count, "B").End(xlUp).Row).Value
End With
    With Worksheets("Заявка")
        For I = 1 To UBound(arrTemp) 
            If arrTemp(I, 1) = .Range("F7") Then 
                ReDim Preserve arrV(8, N)
                arrV(0, N) = .Range("F7").Value 'arrV(0, N) столбец строка???
                arrV(1, N) = arrTemp(I, 6)
                arrV(2, N) = arrTemp(I, 7)
                arrV(3, N) = arrTemp(I, 8)
                arrV(4, N) = arrTemp(I, 2)
                arrV(5, N) = arrTemp(I, 9)
                arrV(6, N) = "Контрагенты грузоотправителя,согласно маршрута доставки"
                arrV(7, N) = arrTemp(I, 1)
                N = N + 1
            End If
        Next
        .Copy After:=Worksheets(Worksheets.Count) 
    End With
    With ActiveSheet
        N = 1
        For Each Sh In Worksheets
            If Sh.Name Like "*" & .Range("F7").Text & "*" Then N = N + 1
        Next
        .Name = .Range("F7").Text & " (" & N & ")"
        .Rows("1:6").Delete Shift:=xlUp
        .Shapes.Range(Array("AutoShape 2")).Delete
        .Range("A1").Value = .Range("A1").Value & " " & N
        iRow = .Columns(1).Find("Дата доставки", LookIn:=xlValues).Row + 1
        .Rows(iRow).Resize(UBound(arrV, 2)).Insert
        .Range("A" & iRow).Resize(UBound(arrV, 2) + 1, 7) = Application.Transpose(arrV)
        'ниже форматируются вставленные данные по водителям
        With Range("A" & iRow & ":H" & iRow + UBound(arrV, 2))
            .EntireRow.AutoFit
            .HorizontalAlignment = xlCenter
            .Font.Bold = True
        End With
    End With
'ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub

Подскажите пожалуйста,что выполняет данная строка?
Код
.Copy After:=Worksheets(Worksheets.Count)
Эта строка обозначает массивы переменными?
Код
Dim arrTemp, arrV()
И что выполняется в данных сточках?
Код
For Each Sh In Worksheets            If Sh.Name Like "*" & .Range("F7").Text & "*" Then N = N + 1
        Next
        .Name = .Range("F7").Text & " (" & N & ")"
        .Rows("1:6").Delete Shift:=xlUp
        .Shapes.Range(Array("AutoShape 2")).Delete
        .Range("A1").Value = .Range("A1").Value & " " & N
        iRow = .Columns(1).Find("Дата доставки", LookIn:=xlValues).Row + 1
        .Rows(iRow).Resize(UBound(arrV, 2)).Insert
        .Range("A" & iRow).Resize(UBound(arrV, 2) + 1, 7) = Application.Transpose(arrV)
        'ниже форматируются вставленные данные по водителям
        With Range("A" & iRow & ":H" & iRow + UBound(arrV, 2))
            .EntireRow.AutoFit
            .HorizontalAlignment = xlCenter
            .Font.Bold = True
        End With
    End With
Изменено: alexkonkin - 01.03.2017 12:44:45
 
Перейти    
Исходное форматирование при копировании макросом
 
#
16.02.2017 14:56:31
Добрый день.
Копирую макросом данные с листа Заявка на новый лист. Но при  копировании меняется форматирование....
Прочитал,что при копировании нужно вставлять этот код
Код
Selection.EntireRow.Copy

а потом
Код
Selection.PasteSpecial xlPasteColumnWidths
Selection.EntireRow.PasteSpecial xlPasteFormats

так ли это?
Можете объяснить,куда данные коды вставлять?
 
Перейти    
Макрос добавления листа
 
#
16.02.2017 12:41:03
Доброго времени суток.
Есть макрос добавления листа.Как сделать так,что бы нажатии на кнопку СТАРТ,при условии,что в ячейке F7 есть дата,добавляется лист с названием этой даты,либо,если такой лист есть(уже нажимали,забыли,человеческий фактор и т.д.),к названию что-то прибавлялось , к примеру "05.01.2017 Копия" или "05.01.2017 (1)".
В принципе , допускается любое название,просто главное, чтобы добавлялся новый лист при нажатии на кнопку.
В моём файле при нажатии на кнопку идёт добавление информации на лист Заявки,я потом переделаю этот момент на добавление листа.
 
Перейти    
Объединение отрезков на диаграмме
 
#
08.02.2017 17:30:43
Добрый день.
Не подскажите,как объединить отрезки?Оранжевый с оранжевым,красный с красным и т.д.
 
Перейти    
макрос добавления листа
 
#
05.02.2017 20:46:49
Добрый день.
Такой вопрос.Есть макрос.При нажатии на кнопку СТАРТ формируется заявка (на листе водители-экспедиторы в столбце В ставлю просто цифры напротив водителей,которые должны ехать,жму СТАРТ,этот список переносится на лист Заявка).Можно ли сделать так,чтобы весь лист Заявка при нажатии на кнопку СТАРТ формировался на другом листе,т.е. идет заявка на перевозку(то что сверху),а снизу формируется список водителей?
 
Перейти    
Макрос вставки предыдущего значения
 
#
09.10.2016 17:38:23
Добрый день.
Написал макрос,который вставляет в пустую строку значения предыдущих строк в столбцах E и F.Но так как я только начинаю писать макросы,что-то пошло не так....Помогите пожалуйста исправить ситуацию.
Код
Sub ВставкаЗначений()
Dim t As Integer
Dim g As Integer
r = Cells(Rows.Count, 5).End(xlUp).Row
For i = 2 To r
    t = Cells(i, 5).Value
    g = Cells(i, 6).Value
    If Cells(i, 5).Value = " " Then
    t = Cells(i - 1, 5).Value
    g = Cells(i - 1, 6).Value
    End If
Next i
End Sub
 
Перейти    
[ Закрыто] Задания по макросам
 
#
06.10.2016 23:02:41
Друзья,посоветуйте пожалуйста ресурсы,где расположены задания на создание различных макросов,желательно с решениями,нашел один,но на нем мало заданий.Только начинаю осваивать VBA,нужна практика.
Спасибо за внимание.
 
Перейти    
Страницы: 1
Наверх