Cara Formula Otomatis Tercopy Jika Data Pada Sheet Yang Lain Diupdate

  1. 5 minggu lalu

    Selamat sore, nanya lagi.
    Pertanyaan saya cantumkan dalam file contoh.
    Terima kasih

  2. manweljs_

    Agu 21 Terverifikasi + 5.020 Poin

    @Anton Indra

    coba :

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x As Range
    If Not Intersect(Target, [A4:C10]) Is Nothing Then
    Set x = Sheet2.Cells(Target.Row, Target.Column)
       Sheet2.Cells(4, Target.Column).Copy x
    End If
    End Sub

  3. Terima kasih jawabannya Suhu.

    Namun ternyata ada kendala lagi dan saya sdh berusaha mencari solusinya, tetapi masih belum berhasil (maklum newbie).
    Saya lampirkan file beserta pertanyaannya. Mohon bantuannya, lagi..lagi dan lagi... :)

    Terima kasih

  4. manweljs_

    Agu 23 Terverifikasi + 5.020 Poin

    @Anton Indra

    coba :

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x As Range
    If Not Intersect(Target, [B4:G11]) Is Nothing Then
    With Sheet2
    Set x = .Range(.Cells(Target.Row, 2), .Cells(Target.Row, 6))
            .Range(.Cells(4, 2), .Cells(4, 6)).copy x
    End With
    End If
    End Sub

    atau langsung ambil aja nilainya :

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x As Range, sh As Worksheet
    On Error Resume Next
    If Not Intersect(Target, [B4:G11]) Is Nothing Then
    r = Target.Row
    Set sh = Sheet1
    With Sheet2
        .Range(.Cells(r, 2), .Cells(r, 6)).Borders.LineStyle = xlContinuous
        .Cells(r, 2) = sh.Cells(r, 2)
        .Cells(r, 3) = sh.Cells(r, 3)
        .Cells(r, 4) = sh.Cells(r, 7)
        .Cells(r, 5) = sh.Cells(r, 4)
        .Cells(r, 6) = sh.Cells(r, 5) & " " & sh.Cells(r, 6)
    End With
    End If
    End Sub

  5. Terima kasih Pak @manweljs_ , sementara ini berhasil.

 

atau Mendaftar untuk ikut berdiskusi!