Tek Referans ile Farklı Satırdaki Değerleri Bulmak

[puppy_snoopy]

Herkese iyi akşamlar,
Elimde alt alta olacak şekilde bayi satışı ,hedefi ve gerçekleşme oranlarının olduğu 2500 satırlık bir veri var. Ben bu verileri satırlardan sütunlara aktarmak istiyorum. ancak referans değeri sadece bu üçlü veri grubundan sadece 1 tanesinde olduğu için düşeyara işimi görmüyor. Eğreti bir şekilde sorunumu çözdüm ama üst yönetime bu şekilde sunamıyorum. Ekte mevcut durumu ve istediğim tablo şeklini bulabilirsiniz. Bana da yardımcı olursanız çok sevinirim
Saygılarımla

 

[excel03]

merhaba;ekli dosyayı inceleyiniz.

 

[puppy_snoopy]

teşekkürler ama makro kullanmadan bu işi yapmanın bir yolu varmıdır ?
Benim asıl istediğim rapor sayfasını açtığımda tüm verilerin yerine oturması. sonuç olarak yaptığım tablo/rapor yaşayan bir rapor olacak.
saygılar.

 

[excel03]

...Benim asıl istediğim rapor sayfasını açtığımda tüm verilerin yerine oturması...

isteklerinize uygun örnek bir dosya oluşturursanız,yardımcı olunmaya çalışılır.

 

[Orion1]

Dosyanız ektedir.

Option Base 1
Sub liste_59()
'date:15.02.2011
'Coder:Evren GİZLEN
'email:evrengizlen@hotmail.com
Dim sat As Long, i As Long, z As Object, n As Long, list(), myarr()
Sheets("Sayfa1").Select
sat = Cells(65536, "A").End(xlUp).Row
ReDim myarr(1 To 4, 1 To sat)
If sat < 3 Then GoTo son
Application.ScreenUpdating = False
Range("F3:I65536").ClearContents
Range("I3:I65536").NumberFormat = "%#0"
list = Range("A3:B" & sat).Value
Set z = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(list) Step 5
    If i Mod 5 = 1 Then
        If Not z.exists(list(i, 1)) Then
            n = n + 1
            z.Add list(i, 1), n
            myarr(1, n) = list(i, 1)
        End If
        myarr(2, z.Item(list(i, 1))) = myarr(2, z.Item(list(i, 1))) + list(i, 2)
        myarr(3, z.Item(list(i, 1))) = myarr(3, z.Item(list(i, 1))) + list(i + 1, 2)
        myarr(4, z.Item(list(i, 1))) = Format(myarr(4, z.Item(list(i, 1))) + list(i + 2, 2), "#0%")
    End If
Next
Set z = Nothing
Erase list
Range("F3").Resize(n, 4) = Application.Transpose(myarr)
son:
Erase myarr
Application.ScreenUpdating = True
MsgBox "İşlem Sona Erdi." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
        
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki formülleri denermisiniz.

F3 hücresine;

=DOLAYLI("A"&YUKARIYUVARLA(SATIRSAY($A$3:$A3)/1;0)*5-2)

G3 hücresine;

=DOLAYLI("B"&YUKARIYUVARLA(SATIRSAY($A$3:$A3)/1;0)*5-2)

H3 hücresine;

=DOLAYLI("B"&YUKARIYUVARLA(SATIRSAY($A$3:$A3)/1;0)*5-1)

I3 hücresine;

=DOLAYLI("B"&YUKARIYUVARLA(SATIRSAY($A$3:$A3)/1;0)*5)

Son olarak F3:I3 hücrelerini ihtiyacınız kadar alt hücrelere sürükleyin.

 

[puppy_snoopy]

ekteki dosyada belirttim, umarım yadımcı olabilirsiniz.
şimdiden teşekkürler

 

[puppy_snoopy]

Selamlar,

Aşağıdaki formülleri denermisiniz.

F3 hücresine;

=DOLAYLI("A"&YUKARIYUVARLA(SATIRSAY($A$3:$A3)/1;0)*5-2)

G3 hücresine;

=DOLAYLI("B"&YUKARIYUVARLA(SATIRSAY($A$3:$A3)/1;0)*5-2)

H3 hücresine;

=DOLAYLI("B"&YUKARIYUVARLA(SATIRSAY($A$3:$A3)/1;0)*5-1)

I3 hücresine;

=DOLAYLI("B"&YUKARIYUVARLA(SATIRSAY($A$3:$A3)/1;0)*5)

Son olarak F3:I3 hücrelerini ihtiyacınız kadar alt hücrelere sürükleyin.

Zannedersem bu işimi görecek, rapora uyarladığımda size bilgisini veririm çok teşekkürler....

 

[puppy_snoopy]

korhan bey merhabalar
formülü kendi raporuma denedim ama farklı sheetlerde olduğu için başaramadım.
ekte benim raporumun orjinal satır sütun sayılarından ilk 4 bayi için olan bölümü var.
sizden ricam target hücrelerini "istediğim durum" sheetinde BW sütununa getirebilir miyiz ?
çok teşekkür ederim

 

[puppy_snoopy]

günaydınlar,
sorunumu çözebilecek bir kişi var mı ?
tüm raporu bitirdim koca raporda tek bir kolon kaldı
siz üstadların yardımını rica ederim

 

[Korhan Ayhan]

Selamlar,

Aynı başlık altında 3 farklı dosya ekleyerek çözüm istiyorsunuz. Neden bu şekilde davranıyorsunuz? Bizleri sürekli mesajlarımızı güncellemek zorunda bırakıyorsunuz.

BW2 hücresine aşağıdaki formülü uygulayın.

=KAYDIR('Mevcut durum'!BR$1;KAÇINCI(A2;'Mevcut durum'!A:A;0);0)

 

[puppy_snoopy]

formül için teşekkürler, fazla karışık bir tablo ile karşınıza çıkmak istemediğim için örnek teşkil etmesi açısından ilk mesajımla beraber sade bir tablo gönderdim. Gelen çözüm makro olduğundan ve benim bunu makro ile çözmek istememem üzerine excel03'ün talebi üzerine 2. tabloyu gönderdim. bu sırada sizin formülü kendi tabloma uyarlayamadığım içinde son tabloyu gönderdim.Yanlış bir şey yaptığımı düşünmüyorum ancak zahmet verdiysem de kusura bakmayın.