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

Страницы: 1 2 След.
Заполнить таблицу по порядку возростания (не сортировка)
 
Спасибо Бахтиёр  
Заполнить таблицу по порядку возростания (не сортировка)
 
Спасибо всем большое за помощь.
Формула не подходит, потому что количество строк может быть разное и не хочется много пустых строк.
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
 
Я взяла тот файл, который выдавал ошибку в русской версии Excel.
Когда я сохранила файл, чтобы разместить его здесь, то пользовательская форма стала открываться, но показывать не правильные значения.
На листке System data три верхнии строки, это сохранение в русской версии Excel, а остальные в английской.
Пожалуйста смотрите прикрепленный файл.
Спасибо за помощь.  
Формат дат и чисел в английском и русском Excel
 
Доброе утро Webley,
Интересный вариант. Попробую сделать так как Вы написали.
Спасибо  
Формат дат и чисел в английском и русском Excel
 
Доброе утро БМВ,
У меня несколько строк в макросе с форматом дат и чисел.
Я думаю, что проблема именно в форматах, потому что после исправления чисел и дат в таблице в ручную на английский тип, пользовательская форма открылась.
Формат дат и чисел в английском и русском Excel
 
Здравствуйте уважаемые формучане,
Помогите с решением одного вопроса.
У меня Excel2013 английская версия. Я сделала файл, который должен работать в русском Excel2013.
Возникла ошибка в форматах дат и чисел.
Через пользовательскую форму заполняется таблица и данные из нее (таблицы) просматриваются тоже через пользовательскую форму.
При попытки открыть пользовательскую форму возникает ошибка "Разный тип"
Вот формат дат в макросе:
Код
Datanozzlerow.Range(2) = Format(Parts_used.TextBox2.value, "mm/dd/yyyy") 
И формат чисел:
Код
Parts_used.TextBox11.value = Format(cell.Cells(1, 3).value, "#,##0.00")
Подскажите пожалуйста, как изменить, чтобы формат работал в русской версии.
Заранее благодарю.
Ошибка 91 в макросе
 
Видимо Вы правы Hugo.
Я заменила Х на х вроде все работает.
Спасибо Вам огромное за помощь
Ошибка 91 в макросе
 
Странно, теперь не ругается, но и не записывает данные  
Ошибка 91 в макросе
 
Цитата
написал:
Посмотрите находит ли значение
Код
    [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)
показывает 'Joining fee'.
но потом ругается на:
Код
Feedatarow.Range(3) = x.Cells(1, 2)
Ошибка 91 в макросе
 
Цитата
написал:
У меня не ругается.
Microsoft® Excel® 2019 MSO (версия 2301 16.0.16026.20002) 32-разрядная
У меня Excel 2013  
Ошибка 91 в макросе
 
Я закрыла файл и открыла снова. Да, не ругается.
Но в оригинальном файле именно эта строка прописана.
Код
b = Application.Max(Workbooks("DATA.xlsm").Worksheets("Otherfee_data").Range("Otherfee_tb[Operation code]")) + 1

Что еще возможно приводит к ошибке?
Ошибка 91 в макросе
 
Спасибо за ответ.
Простите, не досмотрела при копирование из оригинального файла.
Исправила, НО все равно ругается и выделяет строку
Код
Feedatarow.Range(3) = x.Cells(1, 2)
Ошибка 91 в макросе
 
Простите Hugo не совсем поняла.
Я понимаю, что что-то прописано не правильно и в тестовом файле и в оригинале, но не могу понять что именно.
Вы не могли бы мне обьяснить, пожалуйста что конкретно не так.
Спасибо
Ошибка 91 в макросе
 
Здравствуйте Уважаемые форумчане,
Помогите с проблемой.
Есть макрос, который выбирает данные из list box и записывает в таблицу.
Если зарускаю первый раз после открытия файла, все срабатывает, а вот со второго раза начинает ругаться. Выдает ошибку 91.
Я сделала тестовый файл, там происходит тоже самое.
При этом у меня есть другой list box в оригинальном файле, но в этом list box ошибка не появляется, хотя код похожий.
Посмотрите пожалуйста тестовый файл.
Помогите справиться с ошибкой.
Спасибо.
Редизайн таблицы в умную таблицу без пустых значений
 
skais675, спасибо Вам большое.
Редизайн таблицы в умную таблицу без пустых значений
 
Пожалуйста смотрите прикрепленный файл.
Хочу отметить, что в оригинале данные с листка Data находятся в другом файле.
Спасибо
Редизайн таблицы в умную таблицу без пустых значений
 
Здравствуйте Форумчане,
Помогите решить проблему.
Есть умная таблица 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
Создание нескольких умных таблиц с определенным кол-м строк с помощью макроса
 
Огромное Вам спасибо.  :)
Я столько дней билась над этим.
Вы меня просто спасли.  :D  :D  :D
Еще раз спасибо Вам New.  
Создание нескольких умных таблиц с определенным кол-м строк с помощью макроса
 
Здравствуйте,
Макрос работает замечательно, но возникла одна проблема.
В полученных таблицах будет еще один столбец, в котором указываются данные с другого листа. (см. в файле)
Нужно чтобы в этот столбец вносились все значения подходящие по условию.
Я хотела формулой, но файл работает отчень медленно.
Помогите пожалуйста добавить это в макрос.
Изменено: Marina55573 - 22.05.2022 02:14:54
Создание нескольких умных таблиц с определенным кол-м строк с помощью макроса
 
Спасибо Вам, New :)
Создание нескольких умных таблиц с определенным кол-м строк с помощью макроса
 
Здравствуйте уважаемые форумчане,
Помогите пожалуйста решить проблему.
На листе1 есть таблица и в столбе "1" указано значение.
Нужно на другом листе создать с помощью макроса столько умных таблиц, сколько строк больше нуля в таблице на листе 1 с количеством строк указаных в ячейке.
Пожалуйста посмотрите файл. (на втором листе, то что должно быть в итоге)
Благодарю за помощь,
Марина

 
Один срез для умной и сводной таблицы
 
Dim 24, Вам нужно стоя на любой строке таблицы выбрать в верху раздел Дизайн, а там Макет отчета.
У меня английская версия, но дyмаю Вы поймете, где смотреть :)
Один срез для умной и сводной таблицы
 
Смотрите пожалуйста пример
Изменено: Marina55573 - 04.02.2021 11:52:16
Один срез для умной и сводной таблицы
 
Здравствуйте Уважаемые форумчане,
Помогите решить такой вопрос.
Есть умная таблица. На ее основе построена сводная. Есть один срез. Нужно, чтобы этот один Срез работал и для умной и для сводной таблицы.
Спасибо за помощь.
Ошибка при работе макроса в пользовательской форме
 
Огромное Вам New спасибо!!!
Все работает  :D  :D  :D
Вы меня просто спасли  :)  
Изменено: Marina55573 - 15.01.2021 17:53:00
Ошибка при работе макроса в пользовательской форме
 
Уважаемый New
Спасибо за Вашу помощь.
Я заметила, что если в форме в ComboBox выпадающей список не добавлять, то работает.
А если добавить список, то опять эта ошибка.
Что это может быть?  :cry:  
Ошибка при работе макроса в пользовательской форме
 
Пожалуйста смотрите пример.
В поле "Requestor" пытаюсь ввести новое имя и добавить в список, но выдает ошибку.
Спасибо
Страницы: 1 2 След.
Наверх