Bir verinin kaç defa olduğunu bulmak

[sakoz]

Sevgili Üstadlar merhaba ,

Benim bir konuda sizlerin yardımına ihtiyacım olacak...

25.07 tarihli sheette araçların şasileri var.Bu şasileri bir önceki tarihli sheet ile karşılaştırıp var olanlar icin 25.07 sheette H sütununa "2.kez sürüldü" mesajını yazmasını istiyorum.Aynı şekilde daha önceki tarihli sheetlerlede karşılaştıracak ve "3.kez , 4.kez sürüldü şeklinde mesaj yazacak..."

İlgilinize şimdiden teşekkür ederim....

İyi çalışmalar...

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre aşağıdaki kodu denermisiniz.

Sub SÜRÜŞ_KONTROL()
    Sheets(1).Select
    [H:H].ClearContents
    For X = 2 To [A65536].End(3).Row
    For Y = 2 To Sheets.Count
    SAY = WorksheetFunction.CountIf(Sheets(Y).[A:A], Cells(X, 1))
    If SAY > 0 Then
    ADET = ADET + SAY
    End If: Next
    Cells(X, 8) = ADET & ". kez sürüldü."
    ADET = 0
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[sakoz]

Sayın Cost_Control ,

Öncelikle ilginize teşekkür ederim....Sadece şöyle bir durum var.
"0.kez sürüldü yerine 1.kez sürüldü " demesi gerekiyor. Aynı şekilde diğerleri icinde "1.kez yerine 2.kez , 2.kez yerine 3.kez demesi gerekiyor"

Tşk ederim...

 

[Korhan Ayhan]

Selamlar,

Bu durumda ilk sayfayıda döngüye eklersek sorun çözülür.

Koddaki aşağıdaki kısmı değiştirip denermisiniz.

Eski hali;

    For Y = 2 To Sheets.Count

Yeni hali;

    For Y = [COLOR=RED]1[/COLOR] To Sheets.Count

 

[sakoz]

Sayın Cost_control süpersiniz....

Ellerinize sağlık....SAolun ...Teşekkürler...