mükerer kayıtlar

[SOYOLA]

Herkse merhaba
İçinden çıkamadığım ve formda uyacak bir örnek bulamadığımdan dolayı yazmak zorunda kaldım.
Ekli dosyada cari hesap sütununda ki mükerrer kayıtları satır halinde ayrı ayrı sayfalara atabirmiyiz birde bunlara o cari hesabın adını sayfa adı olarak yazdırabilirmiyiz

 

[SOYOLA]

mükerer kayıt

dosya ekte

 

[SOYOLA]

dosya büyükmüş azaltıp yükledim kusura bakmayın

 

[SOYOLA]

mükerrer kayıtlar

yardımcı olabilecek bir üstat varmı acaba

 

[SOYOLA]

mükerrer kayıtlar

cevap verebilecek biri varmıdır acaba

 

[excel41]

Sub mükerrer_renklendir()
Dim i As Integer
Dim say As Integer
Dim s1 As Worksheet
Set s1 = Workbooks("eternity.xlsx").Worksheets("Sayfa1")

say = WorksheetFunction.CountA(s1.Range("A:A"))

For i = say To 2 Step -1
If (s1.Cells(i, 4) = s1.Cells(i - 1, 3)) And s1.Cells(i, 4) <> 0 Then
s1.Cells(i - 1, 3).Interior.Color = vbYellow
s1.Cells(i, 4).Interior.Color = vbRed
End If
Next i

End Sub

 

[turk-x]

Sayın SOYOLA;
istemiş olduğunuz çalışmaya ait dosya ektedir. güle güle kullanın...