rapor içinde istenilen verinin özeti

[gurbuzsucuoglu]

Merhabalar

yardım istediğim dosya ektedir.

Yardımınızı rica ederim

Slmlr

 

[Ömer]

Merhaba,

B2:

=KAYDIR(Sayfa1!$A$2;KAÇINCI($A2;Sayfa1!$A:$A;0);1)

C2:

=KAYDIR(Sayfa1!$A$2;KAÇINCI($C$1&":";DOLAYLI("Sayfa1!"&ADRES(KAÇINCI(
$A2;Sayfa1!$A:$A;0);3)&":C65536");0)+KAÇINCI($A2;Sayfa1!$A:$A;0)-3;3)

hücrelerine yazarak alt satırlara kopyalayınız..

.

 

[gurbuzsucuoglu]

Merhaba,

B2:

=KAYDIR(Sayfa1!$A$2;KAÇINCI($A2;Sayfa1!$A:$A;0);1)

C2:

=KAYDIR(Sayfa1!$A$2;KAÇINCI($C$1&":";DOLAYLI("Sayfa1!"&ADRES(KAÇINCI(
$A2;Sayfa1!$A:$A;0);3)&":C65536");0)+KAÇINCI($A2;Sayfa1!$A:$A;0)-3;3)

hücrelerine yazarak alt satırlara kopyalayınız..

.

yardım için tşkler ancak ben yaptığımda formül hata veriyor sizden ricam uygulayıp dosyayı paylaşırmısınız?

,tşkler,

 

[Ömer]

Dosyanız ektedir..

.

 

[usubaykan]

Merhaba,
Alternatif olsun.
E sütunu yardımcı sütun olarak kullanılmıştır.

Option Explicit
Sub İsim_Ekle()
Dim U As Long, S As Long, SU As Long, S1 As Worksheet, S2 As Worksheet
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
 
    Application.ScreenUpdating = False
    S1.Range("E:E").ClearContents
    For U = 1 To S1.[C65536].End(3).Row
        If S1.Cells(U, "A").Font.Bold = True Then
            For S = U To S1.[C65536].End(3).Row
                S1.Cells(S, "E") = S1.Cells(U, "A") & " " & S1.Cells(S, "A") & S1.Cells(S, "C")
            Next
        End If
    Next
    Application.Calculate
    Application.ScreenUpdating = True
 
MsgBox "İşleminiz tamamlanmıştır !", vbInformation
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

Kullanılan formüller;

B2 hücresine;

=EĞER($A2="";"";EĞER(EHATALIYSA(DÜŞEYARA("fiş sayısı";DOLAYLI("Sayfa1!A"&KAÇINCI($A2;Sayfa1!$A:$A;0)&":B65536");2;0));"";DÜŞEYARA("fiş sayısı";DOLAYLI("Sayfa1!A"&KAÇINCI($A2;Sayfa1!$A:$A;0)&":B65536");2;0)))

C2 hücresine;

=EĞER($A2="";"";EĞER(EHATALIYSA(DÜŞEYARA("şube toplamı:";DOLAYLI("Sayfa1!C"&KAÇINCI($A2;Sayfa1!$A:$A;0)&":D65536");2;0));"";DÜŞEYARA("şube toplamı:";DOLAYLI("Sayfa1!C"&KAÇINCI($A2;Sayfa1!$A:$A;0)&":D65536");2;0)))

 

[gurbuzsucuoglu]

Ömer bey yardımlarınız için çok tşk ederim,

ayrıca Korhan ve Baykan bey sizlerede alternatifleriniz için çok teşekkür ederim

Emeğinize bilginize sağlık
umarım bende sizler gibi üstad olurum bir gün

 

[gurbuzsucuoglu]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

Kullanılan formüller;

B2 hücresine;

=EĞER($A2="";"";EĞER(EHATALIYSA(DÜŞEYARA("fiş sayısı";DOLAYLI("Sayfa1!A"&KAÇINCI($A2;Sayfa1!$A:$A;0)&":B65536");2;0));"";DÜŞEYARA("fiş sayısı";DOLAYLI("Sayfa1!A"&KAÇINCI($A2;Sayfa1!$A:$A;0)&":B65536");2;0)))

C2 hücresine;

=EĞER($A2="";"";EĞER(EHATALIYSA(DÜŞEYARA("şube toplamı:";DOLAYLI("Sayfa1!C"&KAÇINCI($A2;Sayfa1!$A:$A;0)&":D65536");2;0));"";DÜŞEYARA("şube toplamı:";DOLAYLI("Sayfa1!C"&KAÇINCI($A2;Sayfa1!$A:$A;0)&":D65536");2;0)))

sayın üstadlarım ,

gönderdiğimiz formülleri ve makroyu ekteki dosyaya uyarlayamadım. Bu şekilde 200 şube var ve rapor bu formatta geliyor. Ekteki örneğe formülü çok çok çekinerek rica etsem uyarlayabilirmisiniz.

Tşkler