Ребята нужна помощь, делаю сортировку макросом по столбцу "К" в убывающем порядке, выдает пустые строки вверху. Необходимо их отображать внизу, не знаю как сделать. Плиз Хелп исправить код!!! Не могу в интернете нигде найти как сделать их снизу, везде варианты с неотображением их.
Код
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. Данные из базы данных подтягиваю функцией суммеслимн. Пользователь из списка выбирает позицию, она автоматически находится в бд по указанным критериям.
Не знаю как учесть значение если пользователь не выберет значение. Как это можно учесть? попробовал вводить подфункцию Если выбор = "Не выбрано" то из массива пустого он выбирает другое пустое значение. Не прохляло... какая логика должна быть, не подскажете?
Ребят, не подскажите, как прописать макрос, чтобы подтягивал по регионам по месяцам данные по Индексу потребительских цен отсюда. Для подтягивания курсов сделал, а с сайтом статистики не могу разобраться.
Вот что для курсов сделал с ЦБР:
Код
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
Помогите плз с ИПЦ разобраться. Вещь нужная для многих.
Просто надо очистить их. Это необходимо потому что туда подтягиваются форматы и нулевые значения из другого макроса. Зачем это не важно, важно именно как это можно сделать.
Файлы будут ложиться в эту таблицу другим макросом, в котором будет задан размер этой таблицы. мне необходимо, чтобы пустые ячейки после этого ClearContent-ились. То есть если в ряду С пустое Blank то до конца таблицы ClearContent
Ребят не подскажете, можно ли сделать такой макрос, чтобы при вводе в ячейку А1 например значения 50, оно автоматом умножалось на ячейку А2. И в ячейке А1 отображалось не 50, а 50*A2
В том то и дело, что красными вводятся значения постоянные. Верхняя планка то есть оговоренного курса валюты. Она не изменяется и по каждому договору своя. Как это сделать Макросом, не подскажете?
Ребят, помогите если не сложно, Как это лучше сделать макросом или можно формулой. Надо как-то прописать условие, что если значение в колонке (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 соответственно
Всем привет, ребят, помогите если не сложно. Хочу, чтобы по нажатии кнопки "загрузка в реестр" на листе "Аллокатор" в Лист "Input" загружались данные из листа "Аллокатор". Причем чтобы подтягивалось после существующих уже записей (с оффсетом то есть). "C11-С172" в колонку F, "D11-D172" в M, "K11-K172" в колонку I, "L11-L172" в G, "M11-M172" в A, "N11-N172" в колонку C Я нуб, только начинаю учиться ВБА, помогите плз.