• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

düşey aradaaynıveriden birden fazlavarsa sadece ilkini gösteriyor

  • Konbuyu başlatan Konbuyu başlatan emino
  • Başlangıç tarihi Başlangıç tarihi
Katılım
28 Şubat 2007
Mesajlar
27
Excel Vers. ve Dili
türkçe
düşeyara formülüileyazdığım programda,e5 stununa girdiğim tarihtenbirden fazla veri varsasadece ilk sıradakini gösteriyorben hepsini altalta göstersin istiyorum yardımedermizsiniz
 
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
 
Slm.
Soru büyük ölçüde yanıtlanmış ama alternatif olsun.
 
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
 
Geri
Üst