Input data, data tertimpa

  1. 2 bulan yang lalu

    Selamat pagi pak,
    Pada saat saya input data, data yang terinput menimpa isian diawal. berikutnya saya lampirkan file saya.

    @Tesa

    terlampir contohnya

  2. manweljs_

    Mei 15 Terverifikasi + 8.798 Poin
    Di sunting 2 bulan yang lalu oleh manweljs_

    @Tesa

    yang harus anda lakukan adalah pastikan kolom nomor (NO) ada nilainya karena anda menggunakan kolom ini sebagai acuan untuk iRow.

    demikian

  3. Terimakasih pak.Alhamdulillah sudah bisa. saya kira No itu bisa dikosongkan.

    izin bertanya kembali pak,
    apakah dengan fitur VB ini kita bisa memunculkan script.
    Misalnya Kecamatan A yang dipilih, nanti yang keluar waktu commandbutton Kelurahan, cukup yang kelurahan di Kecamatan A saja?

  4. manweljs_

    Mei 15 Terverifikasi + 8.798 Poin

    @Tesa ...apakah dengan fitur VB ini kita bisa memunculkan script.
    Misalnya Kecamatan A yang dipilih, nanti yang keluar waktu commandbutton Kelurahan, cukup yang kelurahan di Kecamatan A saja?...

    bisa

    ada beberapa contohnya di forum ini (tapi lupa diskusi yg mana).
    syarat utamanya anda harus punya tabel Kecamatan berikut kelurahan2 yang masuk didalamnya, kecuali anda rajin bisa menggunakan fitur Select Case pada VBA .

  5. Okey pak, saya coba cari diskusinya.

  6. manweljs_

    Mei 15 Terverifikasi + 8.798 Poin

    @Tesa Okey pak, saya coba cari diskusinya.

    kalo belum ketemu, silahkan pelajari dari file terlampir

  7. Di sunting 2 bulan yang lalu oleh Tesa

    Barusan mau tanya kembali pak, discroll ke bawah belum ketemu file yang pas buat belajarnya. Terimakasih pak. :)

    Saya pelajari dulu pak, nanti saya tanyakan kembali ya pak.

  8. Selamat Malam pak, saya bingung menyisipkan scriptnya pak. Mohon bantuannya pak.

    Private Sub cmbKec_Change()
    Dim Ws As Worksheet
    Set Ws = Worksheet ("Sheet2")
    Dim Kel As Range
    With WorksheetFunction
    c = .Match(cbKec, Range("A1:L1"), 0)
    r = .CountA(Range(Cells(2, l), Cells(100, l)))
    Set Kel = Cells(2, l).Resize(r, l)
    cmbKel.List = Kel.Value
    End With
    End Sub

    Private Sub UserForm_Initialize()
    cbKec.List = WorksheetFunction.Transpose(Range("A1:L1").Value)
    End Sub

  9. manweljs_

    Mei 15 Terverifikasi Jawaban Terpilih + 8.798 Poin

    @Tesa

    terlampir contohnya

  10. Terimakasih pak @manweljs_

    Jangan bosan2 ya pak bantu saya dan teman-teman disini lainnya.

  11. 8 minggu lalu

    Pak@manweljs_ mohon bantuannya pak,
    saya sudah mencoba menotak-atik pada scriptnya.

    Permasalahannya saat data sudah saya input semua muncul error, dan pada daerah input kecamatan/ kelurahan diberi tanda kuning. Mohon perbaikinya pak.

  12. manweljs_

    Mei 24 Terverifikasi + 8.798 Poin

    @Tesa

    sepertinya sudah saya jawab disini

 

atau Mendaftar untuk ikut berdiskusi!