Спасибо всем большое за помощь. Формула не подходит, потому что количество строк может быть разное и не хочется много пустых строк. Msi2102, спасибо за макрос.
Здравствуйте Пытливый, Спасибо, что написали. Пожалуйста смотрите приклепленный файл. Нужно с листа 'report data' перенести данные на лист 'report' в порядке номеров в столбце D. Спасибо
Здравствуйте уважаемые форумчане, Мне нужно данные из одной таблицу перенести в другую таблицу по порядку номеров (1,2,3 и т.д). Проблема в том, что значения в таблице расположены в случайном порядке и количество строк различное. У меня есть макрос, который находит наименьшее значение и добавляет только одну строку. Помогите пожалуйста скорректировать макрос, чтобы вносились все значения по порядку. Спасибо
Код
Sub Fill_report()
Dim cell As String, arrData, i As Long, n
Dim Rpdata As Worksheet
Dim Rpdataobj As ListObject
Dim Rpdatarow As ListRow
Dim Rp As Worksheet
Dim Rpobj As ListObject
Dim Rprow As ListRow
Set Rpdata = ThisWorkbook.Worksheets("Report_data")
Set Rpdataobj = Rpdata.ListObjects("Report_tb")
Set Rp = ThisWorkbook.Worksheets("Report")
Set Rpobj = Rp.ListObjects("Reportcharge_tb")
n = Application.Min(Worksheets("Report_data").Range("Report_tb[Order check]"))
With Worksheets("Report_data")
arrData = .Range("A1").CurrentRegion
For i = 2 To UBound(arrData, 1)
If arrData(i, 4) = n Then
Set Rprow = Rpobj.ListRows.Add()
Rprow.Range(1) = arrData(i, 1)
End If
Next i
End With
End Sub
Я взяла тот файл, который выдавал ошибку в русской версии Excel. Когда я сохранила файл, чтобы разместить его здесь, то пользовательская форма стала открываться, но показывать не правильные значения. На листке System data три верхнии строки, это сохранение в русской версии Excel, а остальные в английской. Пожалуйста смотрите прикрепленный файл. Спасибо за помощь.
Доброе утро БМВ, У меня несколько строк в макросе с форматом дат и чисел. Я думаю, что проблема именно в форматах, потому что после исправления чисел и дат в таблице в ручную на английский тип, пользовательская форма открылась.
Здравствуйте уважаемые формучане, Помогите с решением одного вопроса. У меня Excel2013 английская версия. Я сделала файл, который должен работать в русском Excel2013. Возникла ошибка в форматах дат и чисел. Через пользовательскую форму заполняется таблица и данные из нее (таблицы) просматриваются тоже через пользовательскую форму. При попытки открыть пользовательскую форму возникает ошибка "Разный тип" Вот формат дат в макросе:
[URL=#]?[/URL] 1 Set x = Feeobj.ListColumns.Item(1).Range.Find(Feecharge_form.Typeoffee_lbox.List(i), LookAt:=xlWhole)
т.е. если ли что-то в х
Когда выдает ошибку, я просматриваю коде наводя стрелку на каждую строку. Мне показывает, что значение находит. Т.е. если я выделяю в listbox 'Joining fee', то в строке
Код
Set X = Feeobj.ListColumns.Item(1).Range.Find(Form.Typeoffee_lbox.List(i), LookAt:=xlWhole)
Простите Hugo не совсем поняла. Я понимаю, что что-то прописано не правильно и в тестовом файле и в оригинале, но не могу понять что именно. Вы не могли бы мне обьяснить, пожалуйста что конкретно не так. Спасибо
Здравствуйте Уважаемые форумчане, Помогите с проблемой. Есть макрос, который выбирает данные из list box и записывает в таблицу. Если зарускаю первый раз после открытия файла, все срабатывает, а вот со второго раза начинает ругаться. Выдает ошибку 91. Я сделала тестовый файл, там происходит тоже самое. При этом у меня есть другой list box в оригинальном файле, но в этом list box ошибка не появляется, хотя код похожий. Посмотрите пожалуйста тестовый файл. Помогите справиться с ошибкой. Спасибо.
Здравствуйте Форумчане, Помогите решить проблему. Есть умная таблица 1, ее трансформирую в плоскую на другой лист тоже в умную таблицу 2. К сожелению, макрос берет все ячейки, потому что там формулы и добовляет множество пустых строк. Мне нужно, чтобы пустые значения из вычислений не попадали в умную таблицу 2. И при обеновление сначала все строки умной таблицы 2 удалялись. Помогите пожалуйста. С уважением, Марина
Код
Sub Redesigner()
Dim inpdata As Range, realdata As Range, ns As Worksheet
Dim i&, j&, k&, c&, r&, hc&, hr&
Dim out(), dataArr, hcArr, hrArr
Dim Dashboard As Worksheet
Dim Dashboardobj As ListObject
Dim Dashboardrow As ListRow
Sheet9.Activate
Sheet9.Range("Members_data_tb[[#All],[Code]:[Sun2]]").Select
hr = 1
hc = 1
Set inpdata = Selection
If inpdata.Rows.Count <= hr Or inpdata.Columns.Count <= hc Then Exit Sub
Set realdata = inpdata.Offset(hr, hc).Resize(inpdata.Rows.Count - hr, inpdata.Columns.Count - hc)
dataArr = realdata.value
If hr Then hrArr = inpdata.Offset(0, hc).Resize(hr, inpdata.Columns.Count - hc).value
If hc Then hcArr = inpdata.Offset(hr, 0).Resize(inpdata.Rows.Count - hr, hc).value
ReDim out(1 To Application.CountA(realdata), 1 To hr + hc + 1)
Set ns = Sheet11
For i = 1 To UBound(dataArr, 1)
For j = 1 To UBound(dataArr, 2)
If Not IsEmpty(dataArr(i, j)) And (dataArr(i, j)) <> "" Then
k = k + 1
For c = 1 To hc: out(k, c) = hcArr(i, c): Next c
For r = 1 To hr: out(k, c + r - 1) = hrArr(r, j): Next r
out(k, c + r - 1) = dataArr(i, j)
End If
Next j, i
ns.Cells(2, 2).Resize(UBound(out, 1), UBound(out, 2)) = out
End Sub
Здравствуйте, Макрос работает замечательно, но возникла одна проблема. В полученных таблицах будет еще один столбец, в котором указываются данные с другого листа. (см. в файле) Нужно чтобы в этот столбец вносились все значения подходящие по условию. Я хотела формулой, но файл работает отчень медленно. Помогите пожалуйста добавить это в макрос.
Здравствуйте уважаемые форумчане, Помогите пожалуйста решить проблему. На листе1 есть таблица и в столбе "1" указано значение. Нужно на другом листе создать с помощью макроса столько умных таблиц, сколько строк больше нуля в таблице на листе 1 с количеством строк указаных в ячейке. Пожалуйста посмотрите файл. (на втором листе, то что должно быть в итоге) Благодарю за помощь, Марина
Dim 24, Вам нужно стоя на любой строке таблицы выбрать в верху раздел Дизайн, а там Макет отчета. У меня английская версия, но дyмаю Вы поймете, где смотреть
Здравствуйте Уважаемые форумчане, Помогите решить такой вопрос. Есть умная таблица. На ее основе построена сводная. Есть один срез. Нужно, чтобы этот один Срез работал и для умной и для сводной таблицы. Спасибо за помощь.
Уважаемый New Спасибо за Вашу помощь. Я заметила, что если в форме в ComboBox выпадающей список не добавлять, то работает. А если добавить список, то опять эта ошибка. Что это может быть?