Как я могу записать условные данные в список с кодом vba?
После этого создания: Как прописать ордер строкой ниже последней строки с данными?
В настоящее время мне нужно разделить по компании. У меня есть этот код ниже:
Sheets("Lista CA").Select
Range("B8:D8").Select
ActiveCell.FormulaR1C1 = _
"=IF(Meal_register!R8C11 = ""CA"",Meal_register!R6C3,"""")"
Range("E8:I8").Select
ActiveCell.FormulaR1C1 = _
"=IF(Meal_register!R8C11 = ""CA"",Meal_register!R9C3,"""")"
Range("P8:Q8").Select
Мне просто нужно зарегистрировать «Номер», «Имя» и «Значение». Однако, если в листе "Реестр питания" компания=АА, то необходимо зарегистрироваться в листе "Регистр АА"; если компания=BB, то должна зарегистрироваться в листе "Список BB", а если компания=CC, то должна зарегистрироваться в листе "Список CC". Должен прописываться в строке после последней строки с данными Список AA, список BB и список CC имеют одинаковую компоновку.
]1
в этом случае, поскольку сотрудник из компании АА, он зарегистрируется в «списке АА»:
@cibernético.nômade, пожалуйста, проверьте мой вопрос. я добавил информацию
Основываясь на названии компании, вы хотите, чтобы еда была зарегистрирована на этом листе? Не похоже на решение locig, что, если я набрал шрифт и имел в виду компанию BB, что, если я напишу компанию DD? Я думаю, вам следует задать новый вопрос и написать, чего вы хотите достичь, возможно, вы получите больше информации об ответе.
@aldert спасибо за ответ! У меня есть только 3 компании: AA, BB и CC, предварительно определенные в базе данных. В листе регистрации еды необходимо указать только номер, потому что имя и компания, которые я связал, появляются автоматически (я использовал vlookup в этих двух переменных). Что я хотел, так это фигурировать в компании, например АА, при регистрации что "АА" и прописать в листе, что я сделал "ЛистаАА"; когда появляется BB, запись переходит на лист «BB List» и тот же процесс для компании CC. На мой взгляд, в коде должно быть какое-то условие...
Ответы 1
Чтобы сохранить данные со страницы «Регистр питания» на правильный лист, вам понадобится что-то вроде этого. Я набираю здесь VBA, так что это не проверено, но вы должны увидеть процесс. В примере предполагается, что регистр приема пищи является активным листом.
Вам обязательно следует настроить валидация данных в ячейке K9, чтобы убедиться, что названия вашей компании введены правильно.
dim s as worksheet
set s = thisworkbook.worksheets("List_" & range("K9").value)
dim row as long
row = s.cells(s.rows.count, "B").end(xlup).row + 1
s.cells(row,"B").value = range("C7").value
s.cells(row,"E").value = range("C9").value
s.cells(row,"P").value = range("Q21").value
s.cells(row,"S").value = range("Q3").value
Спасибо!! Могу ли я использовать имя страницы вместо «thisworksheet» в строке 2? Если да, то как эта линия?
Строка 2 использует имя рабочего листа. Он не использует «thisworksheet». Он использует «thisworkbook», и я думаю, что для вашей среды вы можете пропустить это, поэтому его можно установить s = worksheets («List_» & range («K9»). значение)
В той же строке (строка 2) при запуске этого кода выдает ошибку! Что я могу изменить?
Весь смысл строки 2 состоит в том, чтобы выяснить, с каким листом работать, основываясь на названии компании из ячейки K9.
В чем ошибка? Какое значение в K9? Если у K9 есть «AA», есть ли у вас лист с именем «List_AA»?
Большое спасибо за вашу помощь @Gove!!
Было бы полезно увидеть образцы данных и соответствующие выходные данные. Примечание: стоит использовать Избегайте использования выбора в вашем коде.