- Katılım
- 14 Şubat 2006
- Mesajlar
- 710
- Excel Vers. ve Dili
- 2002-TÜRKÇE
Merhabalar Ekteki Çalışmada Bir dizi Formüle ihtiyacım var Açıklama Çalışma sayfasındadır.Yardımcı olan herkese şimdiden teşekkür ederim.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub KONTROL()
On Error Resume Next
Dim sonuc As Boolean
Application.ScreenUpdating = False
[d2].Select
son1 = WorksheetFunction.CountA([d1:d5000])
son2 = WorksheetFunction.CountA([a1:a5000])
For i = 2 To son1
sonuc = False
For k = 2 To son2
If Cells(k, "a").Value = Cells(i, "d").Value And Cells(k, "a").Offset(0, 1).Value = Cells(i, "d").Offset(0, 1).Value Then
sonuc = True
End If
Cells(i, "d").Offset(0, 2).Value = sonuc
Next k
Next i
MsgBox "Bitti"
[d2].Select
Application.ScreenUpdating = True
End Sub