@bandikukar ...
Dari contoh script terakhir yang saya berikan, variabel vData akan dikonversikan menjadi array 2D yang berisi data (nilai) yang ada pada range C3:F7 dalam sheet MENU. Lihat gambar berikut:
Dari gambar di atas, dapat diketahui bahwa kalau ingin mengambil data dari kolom C dan kolom E, maka kita dapat merujuk kepada indeks elemen pertama dan ketiga. Contohnya, pada bagian script berikut:
...
If lZ > 0 Then
With Sheet6
lR = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
If lR > 4 Then
For lY = 1 To vData(lX, 4)
.Cells(lR, "B").Value2 = vData(lX, 1)
.Cells(lR, "C").Value2 = vData(lX, 2)
.Cells(lR, "D").Value2 = vData(lX, 3)
.Cells(lR, "E").Value2 = vData(lX, 4)
.Cells(lR, "B").Value2 = vData(lX, 1)
.Cells(lR, "C").Value2 = vData(lX, 3)
lR = lR + 1
Next
End If
End With
End If
...
jika kita ubah seperti berikut:
...
If lZ > 0 Then
With Sheet6
lR = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
If lR > 4 Then
For lY = 1 To vData(lX, 4)
.Cells(lR, "B").Value2 = vData(lX, 1)
.Cells(lR, "C").Value2 = vData(lX, 3)
lR = lR + 1
Next
End If
End With
End If
...
maka pada saat script dijalankan, akan mengisi kolom B dan kolom C pada sheet DATA_RINCI dengan data dari kolom C dan kolom E dari sheet MENU.
Silahkan dicoba dahulu, dan pelajari alur proses dari script yang saya contohkan tersebut agar paham apa dan dimana script yang harus dimodifikasi untuk menyesuaikan dengan yang Anda butuhkan.
Demikian.