• DİKKAT

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

tek forma dönüştürme

Katılım
9 Ocak 2008
Mesajlar
41
Excel Vers. ve Dili
excell 2007 türkçe
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
 
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Ş)))
 
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.
 
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.

Kod:
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

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

Size örnek bir dosya gönderiyorum. İnceleyiniz
 
teşekürler....

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