Kodlardaki sayfayı değiştirme

[ibrahim858]

Sub karsilastır()

Application.ScreenUpdating = False
sat = 3: sat1 = 3: sat2 = 3
For A = 3 To Range("f65536").End(3).Row
If WorksheetFunction.CountIf(Range("d3:d" & Range("d65536").End(3).Row), Cells(A, "f")) = 0 Then
Cells(sat1, "l").Value = Cells(A, "f").Value
sat1 = sat1 + 1
End If
Next
Application.ScreenUpdating = True
End Sub
bu formülü sayfa 1 a sütunu sayfa 2 a sütünu olarak nasıl değiştirebilirim birde olmayanları f sütununa yazsın

 

[Necdet]

Sheets("Sayfa1").cells(sat1,"I") gibi kullanabilirsiniz.

 

[ibrahim858]

Sheets("Sayfa1").cells(sat1,"I") gibi kullanabilirsiniz.

nereyi değiştirmem gerekiyor çok anlamıyorum

 

[ibrahim858]

nereyi değiştirmem gerekiyor çok anlamıyorum

cevap vermediniz sizi rahatsız ediyorum bu arada

 

[Necdet]

Merhaba.

kodunuzda cells diye başlayan kodun başına koyacaksınız, zaten örnek vermişim, siz sayfa adını değiştirerek koyun.