koşullu biçimlendirmede kopyalama

[engzooo]

koşullu biçimlendirme de formül koşuluna uymayan hücreleri bulup başka bir yere nasıl kopyalayabiliriz şimdiden teşekkürler

 

[Ömer]

Merhaba,

Eki inceleyiniz..

.

 

[Necdet]

Merhaba,

Makro ile çözüm

Sub KosulaUymayanlarinListesi()
Dim i As Long
Dim j As Long
Dim Bul As Range
Application.ScreenUpdating = False
j = 1
For i = 2 To [A65536].End(3).Row
    Set Bul = Range("H:H").Find(Cells(i, "A"), LookIn:=xlValues, LookAt:=xlWhole)
    If Not Bul Is Nothing Then
        j = j + 1
        Cells(j, "B") = Cells(i, "A")
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

 

[engzooo]

ikinize de çok çok tşkler iyi çalışmalar

 

[engzooo]

tekrar merhaba ilk örneğimde bir problem var A sütunum 9000 satır H sütunum 65000 satır buna göre nasıl uyarlayabiliriz formülü ömer bey tşkler şimdiden

 

[Ömer]

Merhaba,

Satır sayısı fazla ise Necdet Bey'in önerdiği kodları kullanırsanız daha doğru olur. 65000 satırla fonksiyonla işlem yaparsanız dosyadaki çalışma hızı düşecektir..

.