pindah cell dengan kriteria tertentu

  1. 3 bulan yang lalu

    permisi agan-agan.. numpang tanya , g punya status yang di perngaruhi dengan kriteria nilai tertentu, Apabila status "very low" dan "low "akan tetap di sheet1, "medium", "High", "very high" maka sheet otomatis akan pindah ke sheet "ket" tetapi hanya untuk 1 row saja yang lainnya tidak jln dan nama (Kolom A) akan otomatis tercopy serta harus mengisi keterangan dulu untuk melanjutkan nama lain, mohon pencerahannya .. hiihiii

  2. manweljs_

    Jul 4 Terverifikasi + 5.020 Poin
    Di sunting 3 bulan yang lalu oleh manweljs_

    @Ayu zone

    ini pertanyaannya maksudnya bagaimana ya?

    apanya yang tetap di Sheet 1? Sheetnya pindah ke Sheet "Ket" itu maksudnya bagaimana (kok sheet pindah)? mengisi keterangan dulu untuk melanjutkan nama lain itu maksudnya bagaimana ya? mengisi manual? terus korelasi dengan judul pindah cell dengan kriteria tertentu itu dimana ya?

    cobalah membuat pertanyaan yang mudah dipahami, dan sebisa mungkin sertakan contoh hasil yang diinginkan agar teman-teman disini lebih mudah memahami dan bisa memberikan contoh solusi yang lebih tepat

  3. ok om, maksudnya kolom d (d3:d9) sebagai kriteria, apabila nilai pada kolom kriteria tersebut "medium", "high", "very high", maka sheet otomatis pindah ke shee "ket" , problemnya jika range diganti dengan (d3:d9) maka akan error, jika hanya memakai d3 akan bisa, mohon petunjuknya..

    Sub Worksheet_value()
    Dim nilaiA, i
    Dim Hasil
    nilaiA = Range("d3").Value
    If nilaiA = "medium" Then
    Hasil = Worksheets("ket").Activate
    ElseIf nilaiA = "high" Then
    Hasil = Worksheets("ket").Activate
    ElseIf nilaiA = "Very high" Then
    Hasil = Worksheets("ket").Activate
    End If
    End Sub

  4. manweljs_

    Jul 5 Terverifikasi + 5.020 Poin

    @Ayu zone

    coba cek file terlampir, apakah demikian?

  5. iya om, kl untuk kolom nama dapat tercopy otomatis juga dan selalu bertambah di row nya(mengisi row yang kosong) bagaimana om..
    Dim baris, x As String

    x = Cells(Target.Row, 4)
    If Not Intersect(Target, Range("B3:C9")) Is Nothing Then
    If x = "Low" Or x = "Very Low" Or x = "" Then
    Exit Sub
    Else
    Sheet8.Activate
    Cells(Target.Row, 1).Copy
    sheet8.Range("c4").PasteSpecial Paste:=xlPasteValues
    'MsgBox Cells(Target.Row, 1) & " - " & x
    End If
    End If
    end sub

    mohon petunjuknya om

  6. manweljs_

    Jul 6 Terverifikasi + 5.020 Poin
    Di sunting 3 bulan yang lalu oleh manweljs_

    @Ayu zone

    edit menjadi :

    ...
    Else
        Cells(Target.Row, 1).Copy
        Sheet8.Range("A" & Sheet8.Range("A" & Rows.Count).End(xlUp).Row + 1) _
        .PasteSpecial Paste:=xlPasteValues
        Sheet8.Activate
        Application.CutCopyMode = False
    End If
    ...

 

atau Mendaftar untuk ikut berdiskusi!