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

Страницы: 1
Присваивание имени картинке при переносе ее в ячейку
 
Всем привет, очень нужна помощь.

Необходим макрос, чтобы при переносе его в ячейку  в столбце "B" картинке автоматически присваивалось имя из столбца  "D"
Макрос для сортировки в убывающем порядке выдает пустые ячейки сверху., Выдает пустые ячейки вверху
 
Пустые ячейки он определяет как 0. Если в этих ячейках нет формул, то тогда макрос корректно работает, если там стоит формула, то глюк.

PS в примере сортировка по столбцу "H" сделал (по 2014 году)
Изменено: Riccoromeo - 13.01.2016 16:23:17
Макрос для сортировки в убывающем порядке выдает пустые ячейки сверху., Выдает пустые ячейки вверху
 
JayBhagavan,
Не могу, они формулами стоят.

Есть ли возможность это в макросе прописать, не создавая дополнительных рядов и т.п.
Макрос для сортировки в убывающем порядке выдает пустые ячейки сверху., Выдает пустые ячейки вверху
 
Ребята нужна помощь, делаю сортировку макросом по столбцу "К" в убывающем порядке, выдает пустые строки вверху.
Необходимо их отображать внизу, не знаю как сделать.
Плиз Хелп исправить код!!! Не могу в интернете нигде найти как сделать их снизу, везде варианты с неотображением их.


Код
Sub Sorting_201411D()
Application.ScreenUpdating = False
    With ActiveWorkbook.ActiveSheet.AutoFilter.sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("K5"), SortOn:=xlSortOnValues, _
        Order:=xlDescending, DataOption:=xlSortNormal
        .Apply
    End With
End Sub
Формула Суммеслимн с подфункцией Если
 
Сергей, вроде подошло, спасибо!
Формула Суммеслимн с подфункцией Если
 
Ребят, желательно суммеслимн, какие еще варианты есть?

Сводная таблица точно не подойдет.
Формула Суммеслимн с подфункцией Если
 
Ребят привет, делаю dashboard, не могу разобраться помогите пожалуйста.

Есть база данных на 1 листе на другом делаю dashboard. Данные из базы данных подтягиваю функцией суммеслимн. Пользователь из списка выбирает позицию, она автоматически находится в бд по указанным критериям.

Не знаю как учесть значение если пользователь не выберет значение. Как это можно учесть? попробовал вводить подфункцию Если выбор = "Не выбрано" то из массива пустого он выбирает другое пустое значение. Не прохляло... какая логика должна быть, не подскажете?
Изменено: Riccoromeo - 15.05.2015 10:15:59
Макрос для подтягивания данных по ИПЦ c Интернета
 
Doober, Спасибо большое
Макрос для подтягивания данных по ИПЦ c Интернета
 
Ребят, не подскажите, как прописать макрос, чтобы подтягивал по регионам по месяцам данные по Индексу потребительских цен отсюда.
Для подтягивания курсов сделал, а с сайтом статистики не могу разобраться.

Вот что для курсов сделал с ЦБР:
Код
Function GetRate(ByVal CurrencyName As String, ByVal RateDate As Date) As Double
   On Error Resume Next
    CurrencyName = UCase(CurrencyName): If Len(CurrencyName) <> 3 Then Exit Function
    Set xmldoc = CreateObject("Msxml.DOMDocument";): xmldoc.async = False
    url_request = "[URL=http://www.cbr.ru/scripts/XML_daily.asp?date_req=]http://www.cbr.ru/scripts/XML_daily.asp?date_req=[/URL]" + Format(RateDate, "dd\/mm\/yyyy";)

    If xmldoc.Load(url_request) <> True Then Exit Function 

   Set nodeList = xmldoc.selectNodes("ValCurs";): Set xmlNode = nodeList.Item(0).CloneNode(True)
    Set node_attr = xmlNode.Attributes(0): strDate = node_attr.Value
    Set nodeList = xmldoc.selectNodes("*/Valute";)
    For i = 0 To nodeList.Length - 1    ' поиск нужной валюты
       Set xmlNode = nodeList.Item(i).CloneNode(True)
        If xmlNode.childNodes(1).Text = CurrencyName Then
            CurrencyRate = CDbl(xmlNode.childNodes(4).Text)
            divisor = Val(xmlNode.childNodes(2).Text)
            GetRate = CurrencyRate / divisor
            Exit Function
        End If
    Next
End Function

Помогите плз с ИПЦ разобраться. Вещь нужная для многих.
Изменено: Riccoromeo - 08.05.2015 09:56:36
Макрос для очистки данных массива начиная с пустого ряда
 
Можно даже без этого условия, просто если есть в таблице "B3-U48" бланк ячейки чтобы они КлирКонтентились
Макрос для очистки данных массива начиная с пустого ряда
 
Просто надо очистить их. Это необходимо потому что туда подтягиваются форматы и нулевые значения из другого макроса. Зачем это не важно, важно именно как это можно сделать.
Макрос для очистки данных массива начиная с пустого ряда
 
А чтобы все пустые очищал в диапазоне как?
Код
Sub ClearContents()
Dim c As Range
Dim d As Integer

Set c = Range(B3, U48 )

For Each Сell In c
If d = 0 Then d.cell.ClearContents
Next d
End Sub
   
Что-то вроде этого только не пашет (((((
Макрос для очистки данных массива начиная с пустого ряда
 
Файлы будут ложиться в эту таблицу другим макросом, в котором будет задан размер этой таблицы. мне необходимо, чтобы пустые ячейки после этого ClearContent-ились. То есть если в ряду С пустое Blank то до конца таблицы ClearContent
Изменено: Riccoromeo - 28.04.2015 11:15:15
Макрос для очистки данных массива начиная с пустого ряда
 
Ребят не подскажете как правильно написать  макрос для удаления значений в массиве ("C4-U48") начиная с пустого ряда в колонке C? Я нуб пока.  

Range("C4-U48").Select    
Selection.ClearContents
Макрос, чтобы вводимое в ячейку значение автоматически перемножалось на другое значение.
 
Ребят не подскажете, можно ли сделать такой макрос, чтобы при вводе в ячейку А1 например значения 50, оно автоматом умножалось на ячейку А2. И в ячейке А1 отображалось не 50, а 50*A2
Изменение вычислений в зависимости от цвета шрифта
 
Спасибо, все работает
Изменение вычислений в зависимости от цвета шрифта
 
Как можно переименовать топик? не функция, а Макрос для excel  
Изменение вычислений в зависимости от цвета шрифта
 
В том то и дело, что красными вводятся значения постоянные. Верхняя планка то есть оговоренного курса валюты. Она не изменяется и по каждому договору своя.
Как это сделать Макросом, не подскажете?  
Изменение вычислений в зависимости от цвета шрифта
 
Ребят, помогите если не сложно,
Как это лучше сделать макросом или можно формулой.
Надо как-то прописать условие, что если значение в колонке (T) красного цвета, то (W) считается как (S)/(M)-1, если нет, то так как сейчас
Макрос для переноса данных со смещением
 
Вот в том то и дело, что тут в файле переносит, в упрощенном файле. в основном - нифига..  
Макрос для переноса данных со смещением
 
Код
Sub www()
Dim s()
s = Array(3, 4, 11, 12, 13, 14)
s1 = Array(6, 13, 9, 7, 1, 3)
With Sheets("Input")
For i = 0 To UBound(s)
r = .Cells(Rows.Count, s1(i)).End(xlUp).Row + 1
.Cells(r, s1(i)).Resize(160).Value = Cells(11, s(i)).Resize(160).Value
Next i
End With
End Sub
Ребят где ошибка? не переносит из C и D листа Аллокатор в F и M листа Input соответственно
Изменено: Riccoromeo - 14.04.2015 11:11:03
Макрос для переноса данных со смещением
 
Сделано, в 1 сообщении обсуждения прикрепил.
Изменено: Riccoromeo - 14.04.2015 10:30:56
Макрос для переноса данных со смещением
 
Дуббль 2 ) отключил поддержку макросов
Макрос для переноса данных со смещением
 
блин не получается его сделать меньше 100 кб
Изменено: Riccoromeo - 14.04.2015 09:27:14
Макрос для переноса данных со смещением
 
Всем привет, ребят, помогите если не сложно.
Хочу, чтобы по нажатии кнопки "загрузка в реестр" на листе "Аллокатор" в Лист "Input" загружались данные из листа  "Аллокатор". Причем чтобы подтягивалось после существующих уже записей (с оффсетом то есть).
"C11-С172" в колонку F, "D11-D172" в M, "K11-K172" в колонку I, "L11-L172" в G, "M11-M172" в A, "N11-N172" в колонку C
Я нуб, только начинаю учиться ВБА, помогите плз.
Изменено: Riccoromeo - 14.04.2015 11:12:13
Страницы: 1
Наверх