Dear Ngademin
Bagaimana jika dengan solusi conditional Formatting?
Karena kedua2nya harus sama dan tidak ada yang jadi patokan cell.
Jika harus ada "Notification Message?" bagaimana Jika banyak yang tidak sama ?
Banyak dong messagenya.
Terlampir-semoga bermanfaat
Ade
On Wed, 03 Oct 2012 14:03:13 +0700, aji mumpung <[email protected]> wrote:
> maaf.. koreksi.. ternyata yang diminta hasil di 1 baris
>
> Option Explicit
>
> Sub iseng()
> Dim rgC As Range
> Dim rC As Range
> Dim sC As String
>
> Sheets("Sheet1").Select
> Range("c1").Select
> sC = "Kesalahan di baris "
> Set rgC = Range(ActiveCell, ActiveCell.End(xlDown))
> For Each rC In rgC
> With rC
> If .Value <> .Offset(0, 3).Value Then
> sC = sC & " ; " & .Row
> End If
> End With
> Next rC
> Range("i2").Value = sC
> End Sub
>
> wassalam,
>
> -aji mumpung-
> Pada 3 Oktober 2012 13:52, aji mumpung <[email protected]> menulis:
>
>> hai pak amin..
>>
>> kalo pake formula saya belum ketemu caranya.. maklum masih tahap belajar
>> tapi kalo boleh pakai macro (VBA) maka kodenya sbb:
>>
>> Option Explicit
>>
>> Sub iseng()
>> Dim rgC As Range
>> Dim rC As Range
>>
>> Sheets("Sheet1").Select
>> Range("c1").Select
>> Set rgC = Range(ActiveCell, ActiveCell.End(xlDown))
>> For Each rC In rgC
>> With rC
>> If .Value = .Offset(0, 3).Value Then
>> .Offset(0, 6).Value = "OK"
>> Else
>> .Offset(0, 6).Value = "Kesalahan di baris " & .Row
>> End If
>> End With
>> Next rC
>> End Sub
>>
>> script di atas ditulis dalam sebuah modul
>>
>> wassalam,
>>
>> -aji mumpung-
>>
>> Pada 3 Oktober 2012 11:49, ngademin Thohari
>> <[email protected]>menulis:
>>
>> **
>>>
>>>
>>> terima kasih inputannya pak maaf pak bukan begitu , tapi saya mau cek
>>> c1,c2,c3,c4,c5,f1,f2,f3,f4,f5 bila ada kesalahan akan menunjukkan ok,
>>> bila
>>> tidak sama menujukkan ng
>>>
>>> terima kasih
>>>
>>>
>>> amin
>>>
>>> National day demo
>>>
>>> ------------------------------
>>> *Dari:* utthank abe <[email protected]>
>>> *Kepada:* [email protected]
>>> *Dikirim:* Rabu, 3 Oktober 2012 8:10
>>> *Judul:* Re: [belajar-excel] verifikasi terjadi kesalahan
>>>
>>>
>>> mungkin bisa pake rumus if
>>> =IF(C1=F1;"ok";"zalah")
>>>
>>>
>>>
>>>
>>
>>
> maaf.. koreksi.. ternyata yang diminta hasil di 1 baris
>
> Option Explicit
>
> Sub iseng()
> Dim rgC As Range
> Dim rC As Range
> Dim sC As String
>
> Sheets("Sheet1").Select
> Range("c1").Select
> sC = "Kesalahan di baris "
> Set rgC = Range(ActiveCell, ActiveCell.End(xlDown))
> For Each rC In rgC
> With rC
> If .Value <> .Offset(0, 3).Value Then
> sC = sC & " ; " & .Row
> End If
> End With
> Next rC
> Range("i2").Value = sC
> End Sub
>
> wassalam,
>
> -aji mumpung-
> Pada 3 Oktober 2012 13:52, aji mumpung <[email protected]> menulis:
>
>> hai pak amin..
>>
>> kalo pake formula saya belum ketemu caranya.. maklum masih tahap belajar
>> tapi kalo boleh pakai macro (VBA) maka kodenya sbb:
>>
>> Option Explicit
>>
>> Sub iseng()
>> Dim rgC As Range
>> Dim rC As Range
>>
>> Sheets("Sheet1").Select
>> Range("c1").Select
>> Set rgC = Range(ActiveCell, ActiveCell.End(xlDown))
>> For Each rC In rgC
>> With rC
>> If .Value = .Offset(0, 3).Value Then
>> .Offset(0, 6).Value = "OK"
>> Else
>> .Offset(0, 6).Value = "Kesalahan di baris " & .Row
>> End If
>> End With
>> Next rC
>> End Sub
>>
>> script di atas ditulis dalam sebuah modul
>>
>> wassalam,
>>
>> -aji mumpung-
>>
>> Pada 3 Oktober 2012 11:49, ngademin Thohari
>> <[email protected]>menulis:
>>
>> **
>>>
>>>
>>> terima kasih inputannya pak maaf pak bukan begitu , tapi saya mau cek
>>> c1,c2,c3,c4,c5,f1,f2,f3,f4,f5 bila ada kesalahan akan menunjukkan ok,
>>> bila
>>> tidak sama menujukkan ng
>>>
>>> terima kasih
>>>
>>>
>>> amin
>>>
>>> National day demo
>>>
>>> ------------------------------
>>> *Dari:* utthank abe <[email protected]>
>>> *Kepada:* [email protected]
>>> *Dikirim:* Rabu, 3 Oktober 2012 8:10
>>> *Judul:* Re: [belajar-excel] verifikasi terjadi kesalahan
>>>
>>>
>>> mungkin bisa pake rumus if
>>> =IF(C1=F1;"ok";"zalah")
>>>
>>>
>>>
>>>
>>
>>
copy-verifikasi kesalahan.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
