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

Страницы: 1 2 След.
Не копируется данные с браузера (IE)
 
#
19.11.2018 20:27:43
Доброе время суток уважаемые знатоки.
Почему-то не копируются данные с сайта в эксель. (ctrl+A  ctrl+C  ctrl+V)
Выдаёт ошибку "Прекрашена работа программы Microsoft Excell"
Раньше такой ошибки никогда не наблюдал. Всегда копировал что хотел. Переустановил офис. Но это тоже не помогло.
Как решить проблему?
Спасибо.
Изменено: abduvs77 - 19.11.2018 20:33:00
 
Перейти    
VBA: найти последнее искомое значение
 
#
11.03.2018 14:37:49
Добрый день уважаемые знатоки. Опять обращяюсь к Вам, так как знание не хватает у меня. Сам посторался, но не смог вытащить желаемого результата.
Задача: Найти самую последнюю искоемое значение и копировать в другую ячейку. Вот код:
Код
Sub Poisk()
Dim lamp As Range, Table As Range
With [a:a]
    Set lamp = .Find("Lamp", , xlValues, xlWhole)
    If lamp Is Nothing Then Exit Sub
    Set lamp = .FindNext(lamp)
    lamp.Offset(0, 1).Copy [c2]
        
    Set Table = .Find("Table", , xlValues, xlWhole)
    If Table Is Nothing Then Exit Sub
    Set Table = .FindNext(Table)
    Table.Offset(0, 1).Copy [c3]
    End With
End Sub

Но он не находит самую последнюю искоемое значение. Где в коде я должен изменить, что бы получить желаемый результат. Спасибо.
 
Перейти    
Макрос не вставляет значение в следующую последнюю строку.
 
#
04.03.2018 11:16:18
Доброе время суток уважаемые знатоки. Прошу помочь в решении такой задачи:
Если  диапазон А:А содержить значение из G1, и диапазон В:В содержить "да"
то этих совпадающих строк (но не всех) копировать в указанную ячейку.
Написал макрос. Но не понимаю почему он не даёт желаемый результат.
Всё нормально работает для 1-го цикла. Во 2-м цикле макрос опять копирует
в тот же ячейку как в 1-м цикле. Формулой могу это сделать. Но надо сделать макросом.
Файл прилагается. Спасибо.

Код
Sub copirovat_cells()
Dim lr As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row
lr2 = Cells(Rows.Count, 11).End(xlUp).Row + 1

    For i = 1 To lr
            If Cells(i, 1) = Cells(1, 7) And Cells(i, 2) = "да" Then
                    'cells(lr2,"K")=cells(i,1)
                Cells(i, 1).Copy Cells(lr2, "K")
                    Cells(i, 2).Copy Cells(lr2, "L")
                Cells(i, 3).Copy Cells(lr2, "M")
        Cells(i, 5).Copy Cells(lr2, "N")

            End If
        Next
End Sub
Изменено: abduvs77 - 04.03.2018 11:28:50
 
Перейти    
Как можно удалить элементов управлении
 
#
27.01.2018 12:13:38

Добрый день уважаемые знатоки.
Возможно я ошибся в названии темы. Потому что незнаю что это за объект. Иначе не смог придумать. Проблема: Из спец программы копирую данные в лист эксель . А там появляються странные объекты. (Может это чекбоксы. Если нажмимать на "Разработчик=Режим конструктора" то опять появляться объекты. А в строке формул видно формула =ВНЕДРИТЬ...) .  Как можно разом удалить этих "пришельцев"?  Помогите пожалуйсто. Файл прилагается.
Спасибо за отклик.
 
Перейти    
Формулой: пусто, если в проверяемой ячейке пусто
 
#
09.01.2018 23:13:20
Добрый вечер уважаемые знатоки.
Помогите пожалуйста, как изменить формулу =если(правсимв(A1)="ч";"мужчина";"женщина"), что бы если ячейка А1 пустая то она давала результат пустую ячейку. В ячейку А1 пишется ФО. У меня чё то не получается.  
 
Перейти    
Макросом скопировать данных с первого листа на другой лист, копировать так: последняя ячейка столбца Е и + пустая строка
 
#
07.01.2018 01:35:52

Добрый вечер уважаемые знатоки.

Имеется макрос переноса данных на другой лист.  После переноса данных 1-й лист (на примере лист «vvod»)  очищается. Теперь, после повторного ввода данных на 1-й лист (с ячейки В5) надо скопировать данных так, как я показал на примере. Целый день мучался но оптимальную решению не смог найти самостоятельно.  Прошу Вашей помощи.

Если описал коряво то на файле (лист “Base”) выделил зелённыс цветом как должно быть в итоге.

Вот  макрос

Код
Sub vvod()
Dim lisa As Worksheet, lisb As Worksheet
Dim lr As Long
Dim lr2 As Long
Dim rng As Variant

Set lisa = ActiveSheet
Set lisb = Worksheets("Base")

lr = lisb.Cells(lisb.Rows.Count, 2).End(xlUp).Row + 1
lr2 = lisb.Cells(lisb.Rows.Count, 2).End(xlUp).Row + 2

lisb.Cells(lr, "B").Value = lisa.Range("b5").Value
lisb.Cells(lr, "C").Value = lisa.Range("C5").Value
lisb.Cells(lr, "D").Value = lisa.Range("D5").Value

        rng = ("E6:F15")
        If rng <> 0 Then
        Range("E6:F15").Copy
        Sheets("Base").Select
        Range("E" & lr2).PasteSpecial xlPasteAll
        Else
        lisb.Cells(lr, "F") = ""
        End If
        Application.CutCopyMode = xlCut
        lisa.Select
        Range("B5:F15").ClearContents
        Range("B5").Select
        
End Sub

Спасибо.

Изменено: abduvs77 - 07.01.2018 13:19:58
 
Перейти    
выделить значение, если значение в столбце В повториться больше чем значение в столбце А
 
#
18.10.2017 15:57:35
Доброе время суток.
Уважаемые знатоки. Прошу помощи. Постарался сам найти решение, но не хватает знаний. Задача такая: Есть две стобца А и В. Надо выделить ту значению, который  в столбце В повторяется больше  чем в столбце А. Если объяснил коряво то на файл примере всё изложено как надо (выделён красным).
Заранее спасибо.
 
Перейти    
VBA: какую я совершаю ошибку в поиске последней строки?
 
#
03.08.2017 17:06:39
Здравствуйте уважаемые знатоки. Благодаря этому сайту немножко научился понять макрос.
Вопрос такой. Вот код:
Код
Sub qwe()
Range("D:D").Clear
Dim Lr As Long
With Sheets("bib")

Lr = Cells(Rows.Count, "D").End(xlUp).Row

Range("D1").FormulaLocal = "= (a1 & "" "" &  b1)"
Range("D2").FormulaLocal = "= (a1 & "" "" &  b2)"
Range("D3").FormulaLocal = "= (a2 & "" "" &  b1)"
Range("D4").FormulaLocal = "= (a2 & "" "" &  b2)"
Range("D5").FormulaLocal = "= (a2 & "" "" &  b3)"
Range("D1:D10").Value = Range("D1:D10").Value
Range("D1" & Lr) = "OK"
End With
End Sub

Макрос не правильно находит последнюю строку.  Надо найти последнюю строку в столбце D и в следующую строку приписать ОК .Где я ощибаюсь?
Спасибо.
P/S: Не пинайте сильно, пожалуйсто. Я не профессионал в VBA.
 
Перейти    
Назначить время (дату, час, секунд) для работы любого макроса.
 
#
31.07.2017 21:54:57
Доброй ночи уважаемые знатоки.
Извиняюсь, если повторно поднимаю тему. Искал в "Поиск"е и не нашёл то что надо.
Помогите пожалуйсто с такой задачей:   Надо установить время (дату, час, минут) макросу для его неактивности . После указанного времени макрос не должен работать. Спасибо.
Изменено: abdu77 - 31.07.2017 23:35:02
 
Перейти    
Составить список на другой лист с шаблона первого листа
 
#
13.07.2017 22:07:19

Доброй ночи уважаемые знатоки.
Помогите пожалуйсто. Не могу решить такую задачу: В первом листе (бланка) есть шаблон бланки. На ячейки обозначенными жёлтым цветом вводиться данные . Надо что бы после окончание ввода, на второй лист (надо) переносились данные  с первого листа (бланка). Дальше вводим данные второго абонента на лист (бланка). Теперь на листе (надо) должен сохраниться данные как список  абонентов, которые мы ввели раньше. Список очень большой. Прилагаю пример. Надеюсь всё правильно изложил. Заранее спасибо.

 
Перейти    
Проблема в назначении горячих клавиш в макросе
 
#
30.04.2017 19:49:13
Доброе время суток. Возник такая проблема: хотел вызвать макрос с горячими клавишами. Нажимаю ALT+ F8=> Параметры....=> CTRL назначил букву. Но макрос не работает. Обратил внимание, когда нажимаю на ALT+F8 вместо имя макроса показывает полную имя файла и имя макроса ('Итог.xlsm'!FormaA.FormaA). Помогите пожалуйста разобраться. Что я неправильно делаю?
Изменено: abdu77 - 30.04.2017 20:28:09
 
Перейти    
Макрос на удаление на листах, кроме одного
 
#
29.04.2017 12:44:01
Добрый день. Есть макрос для удаление конкретного диапазона. Помогите пожалуйсто переписать код, что бы она работала на всех листах, кроме "лист1".
Код
Sub Ud_l()
Sheets("3202").Select 'имя листов "3203", "3204", "3205"
Range("A:D").Delete
End Sub
 
Перейти    
Не работает формула СУММЕСЛИМН если суммируемая строка больше 65 тыс.
 
#
27.04.2017 21:35:03
Добрый день уважаемые знатоки. Сделал очень много дел пользуясь с этой формулой. Но сегодня столкнулся с такой проблемой. Почему-то не работает если суммируемая строка превышает 65 тыс строк. Диапазоны поиска ведётся в другом открытом Книге. Если не будет работать эта формула то 15-ти дневная работа улетит в никуда. В чём я туплю?
( Офис-2016.)
 
Перейти    
Ускорить работу макроса, которая присуствует формула СУММЕСЛИМН
 
#
24.04.2017 23:21:14
Доброй ночи уважаемые знатоки. В макросах не очень силён. Постарался написать код, но когда макрос доходит до СУММЕСЛИМН то процес длится очень долго. Ждал окончание работу макроса около час. Макрос открывает и с сохранением закрывает 21 файл. Отключил всё возможное как думал (.ScreenUpdating = False, .ShowWindowsInTaskbar = False ). Файл не прилагаю. Так как он очень большой и совместно работает с другими файлами. Помогите пожалуйсто.
Код
Sub VPR_FILE()
With Application
.ScreenUpdating = False
.ShowWindowsInTaskbar = False
.Calculation = xlCalculationAutomatic
ChDir "D:\Party"
Workbooks.Open Filename:="D:\Party\03209.xls"
   Range("d13:d50000").ClearContents
    Range("D13").FormulaArray = "=SUMIFS(([SVOD.xls]Rez!R2C3:R64773C3),([SVOD.xls]Rez!R2C1:R64773C1),R1C2,([SVOD.xls]Rez!R2C2:R64773C2),RC[-2])"
    Range("D13").Copy
    Range("D14:D50000").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
    .CutCopyMode = False
   Range("D13:D50000") = Range("D13:D50000").Value
    Range("H13:h50000").ClearContents
    Range("H13").FormulaArray = "=SUMIFS(([SVOD.xls]MRez!R2C3:R64773C3),([SVOD.xls]MRez!R2C1:R64773C1),R1C2,([SVOD.xls]MRez!R2C2:R64773C2),RC[-6])"
    Range("H13").Copy
    Range("H14:H50000").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
    .CutCopyMode = False
    Range("H13:H50000") = Range("H13:H50000").Value
   Range("F2:f80").ClearContents
    Range("F2").FormulaArray = "=(SUMIF(R13C3:R50000C3,RC[-1],R13C4:R50000C4))"
    Range("F2").Copy
    Range("F3:F80").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
    .CutCopyMode = False
    Range("F2:F80") = Range("F2:F80").Value
    Range("G2:g80").ClearContents
    Range("G2").FormulaArray = "=SUMIF(R13C3:R50000C3,RC[-2],R13C8:R50000C8)"
    Range("G2").Copy
    Range("G3:G80").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
    .CutCopyMode = False
    Range("G2:G80") = Range("G2:G80").Value
 ActiveWorkbook.Save
ActiveWindow.Close
Call Marh
Call Shahr
Call Shahr_w
Call Paxta
Call Hoja
    .ScreenUpdating = True
  .ShowWindowsInTaskbar = True
    End With
    Windows("Soato.xls").Activate
End Sub
Изменено: abdu77 - 24.04.2017 23:23:02
 
Перейти    
Определить первую пустую ячейку и копировать диапазон на другой лист. (макросом)
 
#
03.04.2017 09:00:06
Доброе время суток уважаемые знатоки. Надо определить первую пустую ячейку и копировать диапазон на другой лист. Затем вторую до первой пустой ячейки и так далее. Почему-то CurrentRegion.Copy не помогло (или я не смог). Цвет листов, которые должны копироваться данные - зелённые. Файл пример прилагаю.Спасибо.
 
Перейти    
Извлечение данных из закрытой книги и вставка в сводную
 
#
02.04.2017 19:30:28
Здравствуйте уважаемые. Задача для меня почти не выполнимая. Такая задача: Есть файл (пример!!) , которая содержит оплату по лицевым счётам. Полная перечень закреплённых контролёров по лицевым счётам в другом закрытом файле (Белый, Зелённый, Чёрный). В  файле Пример!! в листе "есть" в строках расположены эти наименовании (Белый, Зелённый, Чёрный). В файл Пример!! в лист "надо" собрать данныз из закрытых книг по контроллёрам совподающего по наименованием. Прикрепляю файл Надеюсь, в файле всё сделал понятным..  
Изменено: abdu77 - 02.04.2017 22:22:59
 
Перейти    
Вставка диапазона, пропуская один столбец, Копирование и вставка макросом через столбец
 
#
29.03.2017 13:22:08
Здравствуйте, прошу помощи в доработке макроса. Не смог добавить код, что бы выделённый диапазон вставлялось через столбец.
Код
Sub vstavka()
Application.ScreenUpdating = False
lstr = Cells(Rows.Count, 1).End(xlUp).Row
Range("b1:ax" & lstr).Cells.Clear
Range("a1:a" & lstr).Copy
Range("c1:g" & lstr).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = xlCut
Range("a1").Select
Application.ScreenUpdating = True
End Sub


P.S. В макросах не очень силён. Все знание о макросах благодаря от этого форума
Изменено: abdu77 - 29.03.2017 13:25:56
 
Перейти    
Вытащить значение и вставить после объеденённой ячейки
 
#
27.03.2017 16:23:28
Здравствуйте уважаемые знатоки. Не могу решить такую задачу: надо вставить наименование абонента  после объеденённой ячейки олаты. Вложил файл-пример. То что не смог объяснить словами показал в файле. Спасибо.
 
Перейти    
Не открывается файл. Почему?, Файл скопирован с форума.
 
#
25.03.2017 16:55:37
Доброе время суток. Файл скопирован с форума. Давно не пользовался и не знаю что там. Хотел посмотреть но файл не открывается. Помогите пожалуйста.
 
Перейти    
Выбрать тариф в зависимости от знака числа
 
#
12.03.2017 23:26:18
Доброй ночи уважаемые знатоки.  Вопрос: Есть два тарифа. Выбрать тариф  в зависимости от знака числа. Если знак числа "-" одно тариф, если положительное то другой тариф.  Файл прилагаю.
Изменено: abdu77 - 14.03.2017 08:22:31 (Спасибо модератору который изменил название темы.)
 
Перейти    
Изменить формат чисел
 
#
09.03.2017 07:35:17
Доброе время суток. Есть данные, полученной с банка. Надо сверить  данных  этого файла с данными, которая получена от спецпрограммы.  Но цифры с программы отображается по другому (например так: десять тысячи 10,000.00)  Вопрос: Можно ли данных с банка переобразовать так? Файл прилагаю.
 
Перейти    
Найти количество и сумму уникальных значении
 
#
04.03.2017 00:20:02
Доброй ночи. Опять обрашаюсь к Вам, уважаемые знатоки. Надеюсь и в этот раз выручите. Есть таблица. Нужно найти количество и сумму уникальных значении на другом листе. Извиняюсь если не правильно выразился. Файл прилагаю. Заранее спасибо.
 
Перейти    
Найти совподающий значение в объденённом ячейке и вытащить значение следуюшего столбца.
 
#
02.03.2017 13:04:43
Добрый день уважаемые. Поисковиком не смог найти нужного. Задача такая:  найти значение в слдедующем столбце но не в первой  строке, при этом искоемое в первой столбце и в объденённом ячейке. Файл прикрепил. То что  надо вытащить в листе "надо". Заранее спасибо.
 
Перейти    
Вытащить из массива первое повторяющееся слово
 
#
11.02.2017 21:37:18
Доброе времени суток. Уважаемые знатоки. Искал  поисковиком. Там нашёл таких тем как найти кол-во повторов, удаление повторов, выделение повторов... и т.д. Задача такая: вытащить из массива на другой лист только первую повторяющиеся слово. Желательно макросом. Файл приложил. Спасибо заранее.
 
Перейти    
Копировать, вставить, удалить по заданным условием.
 
#
19.11.2016 18:00:50
Доброе время суток. Помогите пожалуйсто решит задачу. Есть список абонентов. В итоге списка абонентов, есть фамилия имя контроллёра (который обслуживает этих абонентов) и слово  ИТОГО. Надо вставить в каждую строку в столбец ФИО контроллёра (в примере столбец С ) ФИ без ИТОГО и удалить объеденённую ячейку которая сожержить ФИО контроллёра + ИТОГО. У каждого контроллёра может быть прикреплён от 300 до 3500 абонентов. Количестов контроллёров могут быть от 5 до 50. Вложил файл-пример. Заранее спасибо.
 
Перейти    
Автозапуск макроса после записи значения
 
#
13.10.2016 18:28:23
Здравствуйте уважаемые. У меня нет опыта  работы с макросами. Не ругайте, пожалуйста, если  мой вопрос кажется странным .  У меня есть макрос.  
Код
Sub qwert()
a = 5
    b = 6
      If cells(1, 1) = a Then cells(1, 2) = b
End Sub

Надо делать так, если написать на ячейку 1,1 5  то на ячейке 1,2 автоматически отображался цифра 6. Спасибо за отклик
Изменено: abdu77 - 14.10.2016 00:52:57
 
Перейти    
Поиск с указанного слова.
 
#
08.10.2016 21:56:37
Доброе время суток. Уважаемые, помогите решить такую задачу, пожалуйсто. Есть макрос записанный макрорекодером. И тут выходит проблема: часто изменяется диапазон данных. Надо указать так, что бы ВПР начал поиск с указанного слова.  Прикрепил файл. Слова КРАСНЫЙ, ЖЁЛТЫЙ, ЧЁРНЫЙ неизменяемые. А наименование изменяемые. Спасибо.  
 
Перейти    
Числа в текстовом формате, переобразовать формат в числа
 
#
23.09.2016 23:06:43
Доброе время суток. Помогите пожалуйсто. Смотрел Приёмы, поискал в Поисках, но не нашёл подходящего варианта. Есть файл с расчётными счётами (20 цифр). Все они в текстовом формате. Нужно вытащить определённую р/счёт ВПРом. И + к этому,  если вручную вводить 20ти значную цифру то Эксель  не выдаёт. Прилагаю файл пример.  
 
Перейти    
Количество значении по условию и по датам
 
#
08.09.2016 19:08:43
Доброе время суток. Постаралса сам но не смог. Помогите пожалуйсто. Надо вытащит с баз данных ту количеству который совпадает по одной условию, который совподает по задданному условию даты. Вложил файл. Спасибо.
 
Перейти    
Сортировка по датам, выбрать по условию и показать количество и какие эти даты.
 
#
14.06.2016 17:12:48
Добрый день уважаемые знатоки. Помогите пожалуйсто. В форуме не смог найти ответа. Надо отсортировать и вытащить результат по датам. Сам не смог. Прикрепил файл. Заранее спасибо
 
Перейти    
Страницы: 1 2 След.
Наверх