Insert/Delete Row dengan Activecell dan If Statment

  1. 2 minggu lalu

    Mohon Bantuan Kepada Para Suhu2 yang ada disini...
    Mengapa Untuk Fungsi Delete Row dengan If Statment tidak berfungsi... yang diinginkan adalah jika Kolom "C" maka Fungsi delete tidak bekerja lalu keluar Msg Box...

    Sub Picture2_Click()
    ActiveCell.Offset(1, 0).EntireRow.Insert
    End Sub

    Sub Picture4_Click()

    YesNO = MsgBox("Apakah Anda Yakin akan menghapus baris ini ?", vbYesNo)
    Select Case YesNO
    Case vbYes
    If ActiveCell.Offset(0, 0).Columns("C").Value = "" Then
    ActiveCell.Offset(0, 0).EntireRow.Delete
    Else
    MsgBox " Anda Tidak Dapat Menghapus Baris ini"
    End If
    Case vbNo

    End Select

    End Sub

    Terimakasih Sebelumnya Para Suhu Yang Baik Hati

  2. Di sunting 2 minggu lalu oleh manweljs_

    @InsideXLS

    coba pada baris :

    ...
    If ActiveCell.Offset(0, 0).Columns("C").Value = "" Then
    ActiveCell.Offset(0, 0).EntireRow.Delete
    Else
    MsgBox " Anda Tidak Dapat Menghapus Baris ini"
    End If
    ...

    edit menjadi :

    ...
    If Not Intersect(ActiveCell, Range("C:C")) Is Nothing And ActiveCell = "" Then
    ActiveCell.EntireRow.Delete
    Else
    MsgBox " Anda Tidak Dapat Menghapus Baris ini"
    End If
    ...

  3. Terimakasih Banyak SUHU atas Bantuannya...

  4. Satu Pertanyaan Lagi SUHU... Bagaimana Jika Kebalikannya... Jika Ingin menambahkan Rows hanya bisa bertambah jika activesheets di Kolom C nya harus memiliki nilai atau Text... jika tidak memilikinya maka tidak bisa menambahkan baris atau Rows... terimakasih

  5. @InsideXLS

    sama saja seperti diatas, tapi operator sama dengan (=) diganti menjadi tidak sama dengan (<>)

    Sub Picture2_Click()
    If Not Intersect(ActiveCell, Range("C:C")) Is Nothing And ActiveCell <> "" Then
    ActiveCell.Offset(1, 0).EntireRow.Insert
    End If
    End Sub

    demikian

  6. Maaf Suhu// Pertanyaan Terakhir,... Mohon Dengan Sangat Bantuannya... Bagai Mana Jika Insert Row Nya menggunakan Last Row dari Range terpilih... jadi Jika Kita Insert/Klik di Range Memancing .. maka Insert nya berada di Bawah Setelah Nama ADE nomor 2... seperti itu maksudnya... Mudah2an Faham..
    Mohon Maafjika cara menjelaskannya berantakan.. terimakasih Banyak SUHU atas Bantuannya

  7. manweljs_

    Jul 4 Terverifikasi + 10.044 Poin
    Di sunting 2 minggu lalu oleh manweljs_

    @InsideXLS

    coba edit menjadi :

    Sub Picture6_Click()
    If Not Intersect(ActiveCell, Range("c:c")) Is Nothing And ActiveCell <> "" Then
        n = ActiveCell.Row
        For x = n + 1 To n + 100
            If Cells(x, 3) <> "" Then
                Exit For
            ElseIf x = n + 100 Then
                x = Range("E" & Rows.Count).End(xlUp).Row + 1
                Exit For
            End If
        Next
        Cells(x, 1).EntireRow.Insert
        Cells(x, 5).Value = 2
        Cells(x, 6).Value = ActiveCell
    Else
        MsgBox "Jika ingin menambahkan baris, letakan kursor anda pada Cells (Kotak) Program yang ingin ditambahkan"
    
    End If
    End Sub

    apakah demikian maksudnya?

  8. 2 hari yang lalu

    mohon bantuannya kembali SUHU... kenapa Code ini tidak berfungsi jika menggunakan GroupSheets... jadi saya punya 2 sheets yang kembar sama mirip..

  9. kalau untuk insert sudah bisa saya kerjakan.. maaf kalau untuk delete masih blm bisa ..

  10. Sub A_Picture6_Click()
    If Not Intersect(ActiveCell, Range("d:d")) Is Nothing And ActiveCell <> "" Then
    n = ActiveCell.Row
    For x = n + 1 To n + 1000
    If Cells(x, 4) <> "" Then
    Exit For
    End If
    Next
    Worksheets("A").Cells(x, 1).EntireRow.Insert
    Worksheets("R2").Cells(x, 1).EntireRow.Insert
    Cells(x, 11).Value = 2
    Cells(x, 19).Value = ActiveCell
    Else
    MsgBox "Jika ingin menambahkan baris, letakan kursor anda pada Cells (Kotak) Program yang ingin ditambahkan"
    End If
    End Sub

    Sub A_Picture2_Click()
    YesNO = MsgBox("Apakah Anda Yakin akan menghapus baris ini ?", vbYesNo)
    Select Case YesNO
    Case vbYes
    If Not Intersect(ActiveCell, Range("d:d")) Is Nothing And ActiveCell = "" Then
    ActiveCell.EntireRow.Delete
    Else
    MsgBox "Anda tidak dapat menghapus baris ini, ini terjadi karena ana mencoba menghapus baris yang berisi KEGIATAN atau anda tidak menempatkan KURSOR anda pada kolom KEGIATAN"
    End If
    Case vbNo
    End Select
    End Sub

    untuk yang delete ga bisa ya ... mohon tambahan untuk VBA nya para SUHU

  11. @InsideXLS untuk yang delete ga bisa ya ...

    untuk delete :

    Sub A_Picture2_Click()
    YesNO = MsgBox("Apakah Anda Yakin akan menghapus baris ini ?", vbYesNo)
    Select Case YesNO
    Case vbYes
    
    If Not Intersect(ActiveCell, Range("d:d")) Is Nothing And ActiveCell = "" Then
        x = activecell.row
        Worksheets("A").Cells(x, 1).EntireRow.Delete
        Worksheets("R2").Cells(x, 1).EntireRow.Delete
    Else
        MsgBox "Anda tidak dapat menghapus baris ini, ini terjadi karena ana mencoba menghapus baris yang berisi KEGIATAN atau anda tidak menempatkan KURSOR anda pada kolom KEGIATAN"
    End If
    
    Case vbNo
    End Select
    End Sub
    

 

atau Mendaftar untuk ikut berdiskusi!