VBA replace bersyarat

  1. 3 minggu lalu

    mohon bantuan master bagaimana vba untuk replace bersyarat
    jika cell a1: f1 bernilai x, maka jika cell a2: f20 nilai 1 diganti hurif "b"
    artinya kalau a1 = x maka nilai 1 dari a2:a20 akan di ganti "b"
    begitu juga b1 jka dak bernilai x maka isi cell b2:b20 tetap tidak diganti

  2. Caton

    Nov 15 Terverifikasi Indonesia + 19.288 Poin

    @waluyo ...

    Tidak begitu jelas pertanyaannya. Mungkin scriptnya bisa disusun seperti berikut :

    Sub Test()
        Dim xlCell As Range
        Dim sTmp As String
        
        For Each xlCell In Sheet1.Range("A1:F1")
            Debug.Print xlCell.Value
            sTmp = Choose(xlCell.Value, "A", "B", "C", "D", "E", "F")
            
            With Sheet1.Range("A2:F20")
                .Replace What:=xlCell.Value, Replacement:=sTmp, LookAt:=xlPart, SearchOrder:=xlByRows, _
                    MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            End With
        Next
    End Sub

    Hasil prosesnya seperti berikut :

    image_2022-11-15_170055623.png

    Silahkan dikembangkan. Semoga sesuai.

    Demikian.

  3. terima kasih @ Caton atas bantuannya

 

atau Mendaftar untuk ikut berdiskusi!