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. manweljs_

    Jun 28 Terverifikasi + 9.854 Poin
    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. manweljs_

    Jun 28 Terverifikasi + 9.854 Poin

    @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. minggu lalu

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

    manweljs_

    Jul 4 Terverifikasi + 9.854 Poin
    Di sunting 7 hari yang 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?

 

atau Mendaftar untuk ikut berdiskusi!