help... membuat data cari di multipage dengan hasilnya berbeda

  1. 3 bulan yang lalu
    Di sunting 3 bulan yang lalu oleh Erlang

    Maaf mas.. slam kenal saya orang bau disini dan sedang belajar..mohon bimbingannya...
    intinya begini mas... bila kita kita buat form seperti ini di vba excel (buat cari data via textbox/ combobox dengan multi cari data)
    dengan kata kunci misalkan kita ambil NIK dari database yg sama.. agar di masukan di page tertentu terus datanya, hasilnya berbeda... itu gimana ya mas?
    mohon penjelasnnya... ini saya sertakan videonya...
    maaf msh belajar...
    terima kasih

  2. sample filenya seperti ini mas..
    data search masing2 page agar hasil datanya berbeda. dengan menggunakan range sama pada database
    mas @Caton .. help...

  3. hai @Erlang
    saya coba jawab, mudah2an sesuai dgn yg diharapkan

    salam

  4. Di sunting 3 bulan yang lalu oleh Erlang

    Ya mas @excelive terima kasih...
    itu sudah benar mas...
    cuma untuk page 2 nya itu gimana mas... ?
    yg saya harapkan di page 2 bisa seperti di page 1 dan hasilnya input datanya berbeda....
    apakah kode scriptnya sama atau berubah mas...?

    cuma kendalanya saya input di page 1, di page 2 tidak mau input dari key sama... (Range A2:A)
    soalnya misal kita ambil kunci dari ID/NIK disitu kan campur antara ID/NIK anak sm orang tua...
    gitu mas masalahnya...
    saya coba seperti ini tapi di textbox tidak mau terisi datanya...
    mohon dibimbing mas... terima kasih banget sebelumnya sudah mau berbagi...

  5. Di sunting 3 bulan yang lalu oleh excelive

    coba ganti baris kode pada page 2 seperti ini
    Controls("textbox" & e) = Cells(Hasil, e - 8)

  6. Di sunting 3 bulan yang lalu oleh Erlang

    Terima kasih banget mas @excelive ....
    sangat membantu saya... cuma saya masih bingung dengan disitu kan ada angkaa-angka di kode berikut..
    If Err.Number <> 13 Then
    For i = 1 To 9
    Controls("textbox" & i) = Cells(Hasil, i + 1)
    Next i
    ===================================
    If Err.Number <> 13 Then
    For e = 10 To 18
    Controls("textbox" & e) = Cells(Hasil, e - 9)

    13 Then
    Cells(Hasil, i + 1)
    Cells(Hasil, e - 9)
    itu smua maksudnya bisa dijelaskan mas?

    mohon maaf karena sy blm paham soalnya baru belajar...

  7. Saya coba jelaskan secara singkat, mudah2an bisa dipahami

    --PAGE 1--
    error number <> 13
    = jika tidak terjadi kesalahan akibat tidak ditemukan pencarian no ID
    1 to 9
    = Nama belakang masing-masing Textbox yang berada di Page 1
    Cells(Hasil, i + 1)
    = Membaca baris (hasil) yang ditemukan mulai kolom 2 sampai kolom 10
    i = 1
    i + 1 = 2
    (i + 1)

    --PAGE 2--
    10 to 18
    = Nama belakang masing-masing Textbox yang berada di Page 2
    Cells(Hasil, e - 8)
    karena variabel e dimulai dari angka 10,
    dan karena lokasi awal dari hasil yang diinginkan berada di kolom B (kolom ke-2), maka untuk mendapatkan nilai 2 saya melakukan pengurangan angka 10 - 8.
    e = 10
    e - 8 = 2

    ----
    salam

  8. Terima kasih mas @excelive ....
    sudah mau berbagi ilmunya... sekali lg terima kasih...
    terima kasih juga sudah berbagi tutor diyoutube... :)
    salam...

  9. Selamat malam para master...
    Mas @excelive ... ataupun master2 yang lain...
    saya minta tlg soalnya masih kebingungan masalah ini...
    bagaimana kalo input / simpan data ke format langsung & nantinya agar bisa dicetak langsung ...
    saya lampirkan data dibawah ini...

  10. Di sunting 3 bulan yang lalu oleh excelive

    Selamat malam mas @Erlang
    mudah2n file terlampir sesuai dgn yang diharapkan.

    salam..

  11. maksud saya simpannya di sheet 1 sesuai form nya mas.. biar nanti bs di print :)
    sheet 2 itu lupa hapus...hehehe..
    terima kasih mas @excelive

  12. Di sunting 3 bulan yang lalu oleh Erlang

    Maksud saya seperti ini mas
    Di sheet2 itu isinya seperti itu mas...
    mf sy sdh merepotkan...
    sekali lg terima kasih bgt...mohon bantuannya mas @excelive dan master2 yg lain...
    salam...

  13. Selamat pagi mas @Erlang
    apakah soalnya seperti ini:

    • UserForm1 sebagai tempat untuk input data (secara manual)
    • Ketika tombol Simpan di klik, maka nilai yang tertulis di UserForm1 akan disimpan di Sheet1, dan
    • alamat sel tempat menyimpannya adalah sel E6 smpai dengan sel E8 (Sheet1)

    ???
    maaf, lagi kurang fokus memahami soal... :) :)

  14. ya mas @excelive gpp... hehehe :)

  15. coba seperti ini di tombol simpan

    [e6] = textbox1
    [e7] = textbox2
    [e8] = textbox3 

 

atau Mendaftar untuk ikut berdiskusi!