sayfalar arası veri aktarımı

[poweroflife]

üstadlar denedim başkalarına verilen cevaplarla ama başaramadım(vlookup la).Şu dosyaya bi el atabilirmisiniz.Ekteki dosyada veri ve rapor sayfası var yapmak istediğimse veri kısmındaki faturaların vadesi kaç gün geçtiğini gösteriyor.Rapor kısmında -90,-60-30,0,30,60 gün şeklinde bu tarihlere gelen günleri buraya çekmek istiyorum.
Şimiden teşekkürler.

 

[Ferhat Pazarçevirdi]

Merhabalar

Ekteki dosyayı inceleyiniz. -5000 ve +5000 olarak farazi en alt ve en üst aralık belirlendi.

Daha sonra C8 hücresine aşağıdaki formül girildi ve diğer hücrelere kopyalandı.

=TOPLA.ÇARPIM((VERİ!$A$3:$A$2000=$A8)*(VERİ!$D$3:$D$2000>=B$4)*(VERİ!$D$3:$D$2000<C$4)*(VERİ!$E$3:$E$2000))

Örneği inceleyiniz.

NOT : Şu an yaklaşık 2000 satır veri üzerinden işlem yapılmaktadır. Siz isterseniz, bunu değiştirebilirsiniz veya kendiniz Dinamik alan tanımlayabilirsiniz.

 

[poweroflife]

çok teşekkür ederim istediğim gibi olmuş sadece bu fonksiyonu bilmiyordum ona çalısayım akşama nası yaptığınızı anlayamadım -5000 ve +5000 mantığını anlayamadım ama çalışayım sonra anlamazsam sorarım .Ellerinize sağlık

 

[poweroflife]

yalnız bir sorun var müşteri isimleri otomatik gelmiyor.onuda rakamlar gibi otomatik diğer taraftan alamazmıyız ,tabiki rakamlara bağlı olarak.

 

[Ferhat Pazarçevirdi]

Aşağıdaki Kullanıcı Tanımlı Fonksiyonu-KTF/UDF standart bir modül sayfasına kopyalayınız.

Bu fonksiyon yardımı ile karmaşık ve mükerrer bir listeden benzersiz öğelerin listesini alabilirsiniz.

Option Explicit
Function CARİ(Aralik As Range, Sira As Integer)
Dim hcr As Range
Dim arrVeri()
Dim i&, j&, x&, y&
For Each hcr In Aralik.Cells
    i = i + 1
    If i = 1 Then
       ReDim Preserve arrVeri(y)
       arrVeri(y) = hcr
    Else
       For j = 0 To UBound(arrVeri)
           If hcr = arrVeri(j) Then: x = x + 1
       Next j
       If x = 0 Then
          y = y + 1
          ReDim Preserve arrVeri(y)
          arrVeri(y) = hcr
       End If
       x = 0
    End If
Next
CARİ = arrVeri(Sira - 1)
End Function

Formülün kullanılışı : =CARİ(Aralık,Sıra) şeklindedir.

Aralik, Cari Ünvanların bulunduğu hücre aralığıdır. Sıra numarası ise, dizideki indis numarasıdır.

VERİ sayfasındaki tüm benzersizleri listelemek için, Rapor Sayfasının A8 hücresine şunu yazın.

=CARİ(VERİ!$A$3:$A$16;SATIR(A1))

ve aşağıya doğru kopyalayın. Tüm Benzersiz Cari Ünvanlar gelecektir.

NOT : Aralığı istediğiniz kadar genişletebilirsiniz.

 

[poweroflife]

satır A1 boş değilmi yaw üstad şu benim excele koyarmısın yapamadım Value yazıp duruyor bu merter.benim excel ing di onu soylemedim oı yuzden makro çalışmaması olurmu sende macroyu ing yazmışsın gerçi.

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz.

 

[poweroflife]

işte budur çok saolasın.ellerine gözlerine beynine sağlık.böylecede macrolarla aramın ne kadar berbat olduğu daha çok gün ışığına çıktı sitede çook sürünmemiz lazım.Kolay gelsin.

 

[Ferhat Pazarçevirdi]

Rica ederim. İşinize yaradığına sevindim.

 

[hsayar]

Teşekkür ederim hocam

 

[hsayar]

Sm. Hocam Soruma İstinaden beni buraya yönelndirmiştiniz... bende sizin kodlarınız ile amacıma yaklaştım ancak bir sorun çıktı
Sorumu sorduğum mesajın
http://www.excel.web.tr/showthread.php?t=46154
5. ve 6. mesajlarında derdimi anlattım yardımlarınız esirgemezseniz sevinirim.
saygılarımla