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")
>>
>>
>>
>>
>
>
