Komentari
2.259 Kali Dilihat

pindah cell dengan kriteria tertentu

  1. 6 tahun lalu
    A

    Ayu zone

    4 Jul 2018 + 35 Poin

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

    manweljs_

    4 Jul 2018 Terverifikasi + 11.321 Poin
    Di sunting 6 tahun 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. A

    Ayu zone

    5 Jul 2018 + 35 Poin

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

    manweljs_

    5 Jul 2018 Terverifikasi + 11.321 Poin

    @Ayu zone

    coba cek file terlampir, apakah demikian?

  5. A

    Ayu zone

    6 Jul 2018 + 35 Poin

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

    manweljs_

    6 Jul 2018 Terverifikasi + 11.321 Poin
    Di sunting 6 tahun 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!