質問: cells(行, 列 + 2) ←ココを変更したい end if next i end with end with end sub 個人名シートの指定範囲は、最終行までとしたい。 転記後、d列の1セルの中に選択した複数の作業名が入ってしまうので、 作業名単位で行を分けたい。 その時、同一部署なら同名をb列の下の行に、 同一人物なら同名もc列の下の行に転記したい。 以上、行いたい事項です。 方法がわからず困っています。 どなたかご教授頂きますよう、宜しくお願い致します。
回答: >個人名シートの指定範囲は、最終行までとしたい。 >listbox1.rowsource = "○○!b1:b100" ←b100ではなく、最終行に変更したい dim strrow as string with sheets("○○") strrow = .range("b1", .cells(rows.count, "b").end(xlup)).address(external:=true) end with .listbox1.rowsource = strrow >入力シートのアクティブセルにコンボボックス1の値を転記 >userform1.combobox1.value = cells(行, 列) activecell.value = userform1.combobox1.value >右隣セルにコンボボックス2の値を転記 >userform1.combobox2.value = cells(行, 列 + 1) activecell.offset(, 1).value =userform1.combobox2.value >さらに右隣にリストボックス1の値を転記 >for i = 0 to .listcount - 1 > if .selected(i) = true then > lb = lb & .list(i, 0) > lb = cells(行, 列 + 2) '←ココを変更したい > end if >next i for i = 0 to .listcount - 1 if .selected(i) = true then lb = lb & .list(i, 0) end if next i activecell.offset(, 2).value =lb