(19/11/2020, 01:46)feraz yazdı: Doğru anladımmı bilemiyorum. Deneyiniz.Mobilden yazıyorum.Bu koda göre 4 sütuna göre arıyor döngü kusmı.Eğer herhangi nirinde varsa işlem yapmıyır zaten.Yada ben tam anlayamadım olayı.
Private Sub SayfayýHazýrla_Click()
Dim bul As Range, s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
Dim arr(), i As Long, son As Long, dogru As Boolean, say As Long, soncomboSayfa As Long
If Len(Trim(Me.ComboBox1.Value)) = 0 Then
MsgBox "Sayfa seciniz...", vbCritical, "Safa sec"
Exit Sub
End If
Set s1 = ThisWorkbook.Sheets("VERÝ") 'Veri
Set s2 = ThisWorkbook.Sheets("KONTROL") 'Kontrol
Set s3 = ThisWorkbook.Sheets(Me.ComboBox1.Value)
son = s1.Cells(Rows.Count, 1).End(3).Row
soncomboSayfa = s3.Cells(Rows.Count, "Aj").End(3).Row
If soncomboSayfa < 7 Then soncomboSayfa = 7
If son < 2 Then GoTo son
ReDim arr(1 To son, 1 To 5)
say = 1
On Error Resume Next
s3.Range("A7:E" & soncomboSayfa).ClearContents
On Error GoTo 0
For i = 2 To son
dogru = False
Set bul = s2.Range("D:F").Find(s1.Cells(i, 2).Value, , , 1) 'Sicil
If Not bul Is Nothing Then dogru = True
Set bul = s2.Range("D:F").Find(s1.Cells(i, 3).Value, , , 1) 'ad
If Not bul Is Nothing Then dogru = True
Set bul = s2.Range("D:F").Find(s1.Cells(i, 4).Value, , , 1) 'soyad
If Not bul Is Nothing Then dogru = True
Set bul = s2.Range("D:F").Find(s1.Cells(i, 5).Value, , , 1) 'rütbe
If Not bul Is Nothing Then dogru = True
If dogru = False Then
arr(say, 1) = say
arr(say, 2) = s1.Cells(i, 2).Value
arr(say, 3) = s1.Cells(i, 5).Value
arr(say, 4) = s1.Cells(i, 3).Value
arr(say, 5) = s1.Cells(i, 4).Value
say = say + 1
End If
Next
If say > 1 Then
s3.Range("A7").Resize(say, UBound(arr, 2)).Value = arr
End If
son:
Set s1 = Nothing: Set s2 = Nothing: Set s3 = Nothing: Set bul = Nothing: Erase arr
MsgBox "Bitti", vbInformation, "Bitti"
End Sub
Öncedende dediğim gibi 1 ve toplam olayı kolay iş.hata almanızın sebebi sheet içinde sayfaad yazmıştım.Burayı böyle denediyseniz ondandır.Yada son diye değişken tanımlamayıp o değikenle son satır no buldurmadığınızdandır.
