Membuat validasi tabel isian

  1. 3 minggu lalu

    Selamat Sore rekan rekan master excel,

    Semoga selalu sehat..
    Saya mau tanya lagi, apakah bisa dalam tabel yang kita buat diberi validasi agar muncul peringatan jika data dalam satu row data tidak lengkap.

    Mohon arahannya..contoh tabel terlampir..

    @yos.nugroho ...kalau validasinya hanya untuk sheet tertentu saja ditambahkan coding bagaimana ya??...

    contoh diatas memang hanya untuk satu sheet saja, karena menggunakan event Worksheet_Change pada sheet Makro sehingga tidak berpengaruh ke sheet lain.

    @yos.nugroho ... jika validasinya row bawahnya tidak hanya pada kolom No. saja bagaimana...

    untuk skrip makronya edit menjadi :

    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Len(Target) Then
        If Not Intersect(Target, Range("A1:F10")) Is Nothing Then
            Dim rng As Range, sel As Range
            x = Target.Row - 1
            Set rng = Range("B" & x & ":F" & x)
            For Each sel In rng
                If sel = vbNullString Then
                MsgBox "Semua kolom diatas harus diisi!", vbCritical
                Target.ClearContents
                Exit For
                End If
            Next
        End If
    End If
    Err.Clear
    End Sub

    sedangkan untuk Data Validasinya, tinggal dibuatkan aja formula untuk validasi pada sel-sel yang lain.
    terlampir contohnya

  2. manweljs_

    Apr 8 Terverifikasi + 8.041 Poin
    Di sunting 3 minggu lalu oleh manweljs_

    @yos.nugroho

    coba cek lampiran

  3. 2 minggu lalu

    @manweljs_

    Terimakasih bantuannya, kalau validasinya hanya untuk sheet tertentu saja ditambahkan coding bagaimana ya?? terus jika validasinya row bawahnya tidak hanya pada kolom No. saja bagaimana apa hanya diperlebar rangenya saja??

    Terimakasih..

  4. manweljs_

    Apr 9 Terverifikasi Jawaban Terpilih + 8.041 Poin
    Di sunting 2 minggu lalu oleh manweljs_

    @yos.nugroho ...kalau validasinya hanya untuk sheet tertentu saja ditambahkan coding bagaimana ya??...

    contoh diatas memang hanya untuk satu sheet saja, karena menggunakan event Worksheet_Change pada sheet Makro sehingga tidak berpengaruh ke sheet lain.

    @yos.nugroho ... jika validasinya row bawahnya tidak hanya pada kolom No. saja bagaimana...

    untuk skrip makronya edit menjadi :

    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Len(Target) Then
        If Not Intersect(Target, Range("A1:F10")) Is Nothing Then
            Dim rng As Range, sel As Range
            x = Target.Row - 1
            Set rng = Range("B" & x & ":F" & x)
            For Each sel In rng
                If sel = vbNullString Then
                MsgBox "Semua kolom diatas harus diisi!", vbCritical
                Target.ClearContents
                Exit For
                End If
            Next
        End If
    End If
    Err.Clear
    End Sub

    sedangkan untuk Data Validasinya, tinggal dibuatkan aja formula untuk validasi pada sel-sel yang lain.
    terlampir contohnya

  5. @manweljs_

    Terimakasih sharing ilmunya, sangat bermanfaat sekali..

 

atau Mendaftar untuk ikut berdiskusi!