tek forma dönüştürme

[sedatkilci]

arkadaşlar,
sistemimizden hergün geğişen 7 farklı matbu form gelmektedir.
bu matbu formları icmal tabloya tek form olarak dönüştürmek istemekteyim. örnek tablo ektedir.
yardımlarınız için teşekkürler

 

[Ferhat Pazarçevirdi]

Merhabalar,

Aşağıdaki formülü; B5 hücresine girin ve sağa/aşağıya istediğiniz kadar kopyalayın.

=EĞER($A5="";"";EĞER(EHATALIYSA(DÜŞEYARA($A5;DOLAYLI(B$4&"!$J$11:$L$1000");3;YANLIŞ));"";DÜŞEYARA($A5;DOLAYLI(B$4&"!$J$11:$L$1000");3;YANLIŞ)))

 

[sedatkilci]

tarihleri tek sıarada alt alta dizme

İlginize teşekkür ederim fakat diğer tablolardaki tarihleri mükerrerlik olmadan icmal tablonun A sütununa alt alta dizmenin bir yolu var mıdır?
Bu arada formulude çalıştıramadım.

 

[Ferhat Pazarçevirdi]

fakat diğer tablolardaki tarihleri mükerrerlik olmadan icmal tablonun A sütununa alt alta dizmenin bir yolu var mıdır?

Bunu, daha önceki isteğinizde belirtmemiştiniz. Çözümü için; KTF (Kullanıcı tanımlı Fonksiyon) geliştirilmesi gerekli .... Aşağıda bu isteğinizi yerine getiren bir fonksiyon kodu vardır.

Option Explicit
Public Function Tarihler(sirano As Integer)
Dim sh As Worksheet
Dim arrtar(), arrTarih()
Dim y%, i%, j%, x%
Dim z As Date
For Each sh In ThisWorkbook.Worksheets
    If sh.Name <> "icmal tablo" Then
       For i = 11 To sh.Cells(65536, "J").End(xlUp).Row
           y = y + 1
           ReDim Preserve arrtar(1 To y)
           arrtar(y) = sh.Cells(i, "J")
       Next i
    End If
Next
y = 1
ReDim Preserve arrTarih(1 To y)
arrTarih(y) = arrtar(1)
For i = 1 To UBound(arrtar)
    For j = 1 To UBound(arrTarih)
        If arrtar(i) = arrTarih(j) Then: x = x + 1
    Next j
    If x = 0 Then
       y = y + 1
       ReDim Preserve arrTarih(1 To y)
       arrTarih(y) = arrtar(i)
    End If
    x = 0
Next i
For i = 1 To UBound(arrTarih)
    For j = 1 To UBound(arrTarih)
        If arrTarih(i) < arrTarih(j) Then
           z = arrTarih(i)
           arrTarih(i) = arrTarih(j)
           arrTarih(j) = z
        End If
    Next j
Next i
Tarihler = arrTarih(sirano)
End Function

Bu arada formulude çalıştıramadım.

Size örnek bir dosya gönderiyorum. İnceleyiniz

 

[sedatkilci]

teşekürler....

Gerçekten harikasınız, teşekkürler..