Satış takip tablosu

[wirtue]

Merhaba arkadaşlar ekteki tabloyu incelerseniz yapılması gerekenleri açıklama olarak satış 2007 tablosuna ekledim

yardımlarınız için şimdiden tşk ler

 

[hamitcan]

Aşağıdaki kodu dener misiniz?

Sub tek()
son = [C65536].End(3).Row
[g:h].Clear
[h1] = "2007 satış SAYFASINDA OLMAYANLAR"
    c = 1
    For i = 1 To son
    say = WorksheetFunction.CountIf(Range("C" & i + 1 & ":" & "C" & son), Cells(i, 3))
    
    If say = 0 Then
    k = k + 1
    Cells(k, "G") = Cells(i, 3)
End If
Next
For ii = 2 To Sheets("mart").[C65536].End(3).Row
        If Columns("g").Find(Sheets("mart").Cells(ii, "c")) Is Nothing Then
            c = c + 1
            Cells(c, "h") = Sheets("mart").Cells(ii, "c")
        End If
Next ii
End Sub

 

[wirtue]

rica etsem macroyu belgeye siz uygularmısınız

 

[hamitcan]

Dosyayı ekledim.

 

[Orion1]

2007 satış sayfasındaki Bezersiz butonuna tıklayarak Teke düşürülmüş verileri
2007_satıs_tek sayfasına aktarıyorsunuz.
Sonra mart sayfasındada İsmi olmayanlar butonuna basarak isimi olmayanları F sütununda listeliyorsunuz.

 

[wirtue]

arkadaşlar tşk ler
Emeğinize bilginize sağlık

 

[mkeros]

dosyayı güncelleye bilirmisiniz