Eşleştirme

[aksoy53]

Gönderdiğim Dosyada
"A" SÜTÜNDA VAR İSE "B" SÜTÜNDA VAR İSE "C" SÜTÜNDA YAZMAYACAK

"A" SÜTÜNDA VAR "B" SÜTÜNDA YOKSA "C" SÜTÜNUNA YAZSIN

yardımcı olursanız şimdiden teşekkür ederim.

 

[tugkan]

Merhaba,
Demek istediğiniz " Hem A da hem de B de var ise C sütununda yazmayacak.""Sadece A da var B de yok ise C sütununda yazacak"
Yani sadece A sütununda olup B de olmayanları C de yazacak.
Doğru mu?

 

[aksoy53]

Aynen dediğiniz gibi doğru

 

[muygun]

Merhaba;

Sayfanın kod bölümüne;

Sub analiz()
Application.ScreenUpdating = False
On Error Resume Next
Range("c2:c65536").ClearContents
sonn = Range("c65536").End(xlUp).Row
For i = 2 To Range("A65536").End(xlUp).Row
If WorksheetFunction.CountIf(Range("b2:b" & sonn), Cells(i, "a")) = 0 Then
sonsatir = Range("c65536").End(xlUp).Row + 1
Cells(i, "c") = Cells(i, 1) 'Cells(i, "c") yerine Cells(sonsatir, "c") yazarsanız sıralı liste alırsınız.
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını ekleyerek deneyin.
İyi çalışmalar.

 

[aksoy53]

Teşekkür ederim oldu