düşeyara formülü c10 sütununda yazılı, tarih sırasına göre arama yaparken m sütununda aynı tarihten bazen birdrn fazla olabiliyor böyle durumlarda formül n sütunundaki ilk kayıdı getiriyor. Ben bu durmlarda tüm kayıtları alt alta sıralansın istiyorum teşekkürler
daha önce siteden almış olduğum aşağıdaki kod için aynı amaçla nasıl bir değişiklik yapılmalı?
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a2:a65536]) Is Nothing Then Exit Sub
If Target = 0 Then
Rows(Target.Row).ClearContents
Exit Sub
End If
For a = 2 To Sheets.Count
sat = Sheets(a).[a1:a65536].Find(Target.Value).Row
If sat > 0 Then
For b = 2 To 4
Cells(Target.Row, b) = Sheets(a).Cells(sat, b)
Next
Exit Sub
End If
Next
MsgBox "POZ NO BULUNAMADI"
Target.ClearContents
Target.Select
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.