Input data, data tertimpa

  1. minggu 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.613 Poin
    Di sunting minggu 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.613 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.613 Poin

    @Tesa Okey pak, saya coba cari diskusinya.

    kalo belum ketemu, silahkan pelajari dari file terlampir

  7. Di sunting minggu 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. 7 hari yang lalu

    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.613 Poin

    @Tesa

    terlampir contohnya

  10. Terimakasih pak @manweljs_

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

 

atau Mendaftar untuk ikut berdiskusi!