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

Страницы: 1 2 3 4 5 6 След.
Глючит макрос добавления строки, в версии 2007 все работает нормально, а в версии 2010 никак
 
#
18.06.2015 13:26:22
Да, работает самым чудесным образом. Глюков не заметил. Огромное спасибо, друг!!!
 
Перейти    
Глючит макрос добавления строки, в версии 2007 все работает нормально, а в версии 2010 никак
 
#
16.06.2015 22:38:39
Смогу посмотреть только послезавтра. Но, в любом случае, благодарю за помощь. Мне крайне необходимо исправить эту ошибку )))
 
Перейти    
Глючит макрос добавления строки, в версии 2007 все работает нормально, а в версии 2010 никак
 
#
16.06.2015 15:46:34
VBA пишет вот что: "метод Insert из класса Range завершен неверно"
 
Перейти    
Глючит макрос добавления строки, в версии 2007 все работает нормально, а в версии 2010 никак
 
#
16.06.2015 15:26:17
Это так, в этом файле не глючит. А в оригинале глючит. Похоже, конфликтует что-то, а что именно,не пойму. Но ведь в 2007 без проблем!!
 
Перейти    
Глючит макрос добавления строки, в версии 2007 все работает нормально, а в версии 2010 никак
 
#
16.06.2015 15:06:36
Вариант классный, но... глючит. Не, строки добавляет без проблем, работает супер! Строки добавляются лишь при пустой таблице, а при введенных данных, в любой строке, тот же глюк, что и прежде.

Вот это код
Код
With ActiveSheet
        LastRow = .Cells(50, 2).End(xlUp).Row    
        nom = .Cells(LastRow - 1, 2)
        .Rows(LastRow).Insert Shift:=xlDown 
        .Cells(LastRow, 2) = nom + 1 
        
End With
Можно как-то адаптировать к моим таблицам? Это не глючило.
 
Перейти    
Глючит макрос добавления строки, в версии 2007 все работает нормально, а в версии 2010 никак
 
#
16.06.2015 14:21:25
Не совсем понял, как это сделать
 
Перейти    
Глючит макрос добавления строки, в версии 2007 все работает нормально, а в версии 2010 никак
 
#
16.06.2015 13:58:08
Макрос добавляет строки в таблицы. В версии 2007 нет никаких проблем, все замечательно работает, но в 2010 строки не добавляются и выдается ошибка:
Код
 Rows(Str - 1).Insert Shift:=xlDown
Будь у меня всего одна таблица, я б не парился, вставил другой код, попроще. Но в моем варианте оригинальный файл имеет кучу макросов и страниц и чисто не хватает знаний, чтобы понять, в чем причина.
Файлик приложил.
Кстати, удалив все лишнее, обнаружил, что макрос заработал. Вот такая фигня (((
Ребят, помогите, плз. Может как-то код упростить?
 
Перейти    
Формула листа в VBA
 
#
28.05.2015 13:40:48
Да там хитрый макрос. Что несоизмеримо с моим восприятием VBA. Если б я разбирался в теме, то вопросов, скорее всего не задавал.

...Кстати, а тут людей "за денюжку" найти можно? Или на просторах рунета искать надо?
 
Перейти    
Формула листа в VBA
 
#
28.05.2015 12:19:03
В голову не приходило! Это ж скока ненужного геморроя у меня было ранее?!!
 
Перейти    
Формула листа в VBA
 
#
28.05.2015 12:16:24
Гм... так просто...
 
Перейти    
Формула листа в VBA
 
#
28.05.2015 12:13:01
Спасибо, мужики! Вы помогли.
Юрий, я просто не знал, что мона вставить готовую формулу, думал, надо записывать именно действия.
 
Перейти    
Формула листа в VBA
 
#
28.05.2015 11:59:06
Я не могу ее написать в коде. Простой вариант без проблем, а с записью функций у меня затык.
 
Перейти    
Формула листа в VBA
 
#
28.05.2015 11:42:35
формулу ввести не проблема, о чем я и сказал вначале. Я не знаю, как в формуле записать функцию "ЕСЛИ"
 
Перейти    
Формула листа в VBA
 
#
28.05.2015 11:21:33
Юрий, вы можете помочь именно в формуле?
 
Перейти    
Формула листа в VBA
 
#
28.05.2015 11:13:00
работает. Сложности с этим: ЕСЛИ. Ну, паршиво я разбираюсь в VBA, если не сказать хуже. Оттого и прошу помочь
 
Перейти    
Формула листа в VBA
 
#
28.05.2015 11:09:05
не, мне именно формула нужна. Значение же будет меняться
 
Перейти    
Формула листа в VBA
 
#
28.05.2015 10:58:18
Не хватает знаний, чтобы в макрос вставить формулу. Простую могу, а вот такую нет:
Код
=ЕСЛИ(E5="нет";"продажа";ЕСЛИ(I5=0;H5*Коэфф.!$C$16;H5*I5))
Прошу уважаемых гуру помочь оформить формулу на VBA

Хотел вставить сюда:
Код
ThisWorkbook.Sheets("Фурнитура").Cells(6, 10).FormulaR1C1 = формула
 
Перейти    
Макрос курса валют, вместо ячейки выдает данные в всплывающем окне
 
#
28.04.2015 16:43:24
Ну, никак не получается у меня! Помогите пожалуйста при открытии книги в конкретный лист курсы валют запихнуть.
Сделал так, выдается ошибка:
Код
Private Sub Workbook_Open()

Application.ScreenUpdating = False

    Sheets("Курс валют").Range("B4").Value = "нет"
    Sheets("Курс валют").Range("B5").Value = "нет"
    Sheets("Курс валют").Range("A6", "D50").Select
'    Rows("10:50").Select
    Selection.Delete Shift:=xlUp
    
    Application.Cursor = xlWait
    Set xmldoc = CreateObject("msxml2.DOMDocument.6.0")
    xmldoc.async = False
    url_request = "http://www.cbr.ru/scripts/XML_daily.asp?date_req=" & ActiveSheet.Range("A1")
  
'       загружаем документ по url
        If Not xmldoc.Load(url_request) = True Then
        MsgBox ("Документ не загружен")
        Application.Cursor = xlDefault
        Exit Sub
        End If
        Set NodeList = xmldoc.SelectNodes("ValCurs")
        Set xmlNode = NodeList.Item(0).CloneNode(True)
        
'           ищем атрибут с датой документа (будет найден последний документ от заданной даты)
            Set node_attr = xmlNode.Attributes(0)
            XDate = node_attr.Value
            Set NodeList = xmldoc.SelectNodes("*/Valute")
    
'               осуществляем цикл по валютам и ищем нужную валюту
                For iIndex = 0 To NodeList.Length - 1
                Set xmlNode = NodeList.Item(iIndex).CloneNode(True)
                Set node_attr = xmlNode.Attributes(0)
                Sheets("Курс валют").Cells(iIndex + 6, "A") = iIndex + 1
                Sheets("Курс валют").Cells(iIndex + 6, "B") = xmlNode.ChildNodes(3).Text
                Sheets("Курс валют").Cells(iIndex + 6, "C") = node_attr.Value
                Sheets("Курс валют").Cells(iIndex + 6, "D") = CDbl(xmlNode.ChildNodes(4).Text)
    
            Next
            Set xmldoc = Nothing
            Application.Cursor = xlDefault

    Range("B4").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],R6C2:R90C6,3,0)"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],R6C2:R90C6,3,0)"
    Application.ScreenUpdating = True
End Sub
 
Перейти    
Макрос курса валют, вместо ячейки выдает данные в всплывающем окне
 
#
28.04.2015 13:43:48
Спс.
Я чего спрашивал, я просто не знаю, как правильно это сделать ))) Если, есть возможность, подскажите, плз
 
Перейти    
Макрос курса валют, вместо ячейки выдает данные в всплывающем окне
 
#
28.04.2015 13:06:44
Огромное человеческое спасибо!
(шепотом) ...а где здесь нужно указать в какой лист вставлен макрос? У меня несколько листов в прайсе...
Изменено: Иван Амелин - 05.05.2015 14:33:24
 
Перейти    
Макрос курса валют, вместо ячейки выдает данные в всплывающем окне
 
#
28.04.2015 12:27:04
Класс!!
А можно без кнопки? На открытие книги? Или это в принципе невозможно? Дело в том, что к курсу привязаны прайсы, и я не уверен, что двоечник-манагер постоянно будет жмакать кнопку.

Через это "Private Sub Worksheet_Activate" можно?
Изменено: Иван Амелин - 28.04.2015 12:38:02
 
Перейти    
Макрос курса валют, вместо ячейки выдает данные в всплывающем окне
 
#
28.04.2015 11:30:31
так это он и есть. Вторая часть макроса, который выводит курсы у меня решительно не работает. И так и сяк ковырялся, ни хрена. От кнопки тоже не фурычит. Возможно руки у меня кривые
 
Перейти    
Макрос курса валют, вместо ячейки выдает данные в всплывающем окне
 
#
28.04.2015 11:23:28
доброго времени.
У меня есть макрос курса валют. Он работает и все хорошо. Но! Он работает от кнопки и курс выдает в мsgвoxе. А мне необходимо, чтобы курс валюты и дата выводились в ячейках. Знаний не хватает, чтоб это прописать, отчего и прошу помощи уважаемых форумчан.
 
Перейти    
Всплывающее окно при выборе значения
 
#
03.10.2014 18:54:55
Гигантское спасибо, брат!
Что характерно, я почти так и делал )) Только вместо Union ставил Range и вот это не знал, как написать: _ (Target.Value = 4). Вы мне очень помогли.
Вопрос закрыт
 
Перейти    
Всплывающее окно при выборе значения
 
#
03.10.2014 18:40:26
Гм... а можно подправить?
 
Перейти    
Всплывающее окно при выборе значения
 
#
03.10.2014 18:33:56
Собственно, вот что получается (файл). Почему-то в одном списке все нормально, а в другом нет. На каждой цифре лезет предупреждение
 
Перейти    
Всплывающее окно при выборе значения
 
#
03.10.2014 16:27:54
И чего? В одном списке при выбранной цифре 4 вылезет предупреждение, и в другом списке при выбранной цифре 4 вылезет предупреждение. Суть предупреждения заключается в следующем: "уважаемый пользователь, осторожно! Имейте в виду, что вы выбрали цифру 4"
 
Перейти    
Всплывающее окно при выборе значения
 
#
03.10.2014 15:55:19
Мне нужно, чтобы всплыла предупреждающая инфа об одном конкретном выбранном значении
 
Перейти    
Всплывающее окно при выборе значения
 
#
03.10.2014 15:45:28
Не-е, те, кто пользуются этим файлом, имеют все необходимые разрешения
 
Перейти    
Всплывающее окно при выборе значения
 
#
03.10.2014 15:41:51
justirus,Спасибо, но вариант JayBhagavan оптимальный. Мне ведь нужно всего лишь предупреждение
Изменено: Иван Амелин - 03.10.2014 15:42:26
 
Перейти    
Страницы: 1 2 3 4 5 6 След.
Наверх