Formül hatasını düzeltebilir miyiz?

[Jeeday]

=SHEETNAME(5) --> SONUCU "55"

=SUM('55:1'!L2) OLMASINI İSTEDİĞİM FORMÜLÜ ALTTAKİ GİBİ YAPMAK DURUMUNDAYIM

=SUM(INDIRECT("'"&SHEETNAME(5)&":1'!L2"))

neden hata veriyor?

 

[asi_kral]

Merhaba
Dosya ekliyebilir misiniz_?

 

[Merhum İdris SERDAR]

=SHEETNAME(5) --> SONUCU "55"

=SUM('55:1'!L2) OLMASINI İSTEDİĞİM FORMÜLÜ ALTTAKİ GİBİ YAPMAK DURUMUNDAYIM

=SUM(INDIRECT("'"&SHEETNAME(5)&":1'!L2"))

neden hata veriyor?

.


Buradadaki konuyu inceleyin.

http://www.excel.web.tr/f60/indirect-dolayly-fonksiyonu-t68405.html

.

 

[Jeeday]

.


Buradadaki konuyu inceleyin.

http://www.excel.web.tr/f60/indirect-dolayly-fonksiyonu-t68405.html

.

incelemiştim zaten...

 

[Ömer]

=SHEETNAME(5) --> SONUCU "55"

=SUM('55:1'!L2) OLMASINI İSTEDİĞİM FORMÜLÜ ALTTAKİ GİBİ YAPMAK DURUMUNDAYIM

=SUM(INDIRECT("'"&SHEETNAME(5)&":1'!L2"))

neden hata veriyor?

Merhaba,

Dolaylı fonksiyonu bu metod ile hazırlanan 3 Boyutlu fonksiyonun içinde çalışmaz.

 

[Jeeday]

dolaylı formülünü kullanmadan halledebilir miyiz? çünkü sheetname(5) sürekli değişken olacak...

 

[Ömer]

Sayfa adlarını tanımlamanız gerekir.

3B - 3D formülleri

.

 

[Jeeday]

Örnek olmadan sanırım çözemicez... Ekte yolladım...

 

[Merhum İdris SERDAR]

Örnek olmadan sanırım çözemicez... Ekte yolladım...

.

Ben örneğinizden bir şey anlayamadım.


Umarım anlayan olur.

.

 

[Jeeday]

yani daha nası anlatayım ki? msn falan kullanıyo musunuz?

 

[Merhum İdris SERDAR]

yani daha nası anlatayım ki? msn falan kullanıyo musunuz?

.

Orasını siz bileceksiniz. Demek ki kimse bir şey anlamamış. Bakın hiç kimse cevap vermeye yanaşmıyor.

Benim Msn'im yok.

.

.

 

[Ömer]

Benzersiz listeleme kodlarını aşağıdaki gibi değiştirin.

Sub BenzersizListele()
 
    Dim i As Integer, syf As Worksheet, j As Long
    Dim a1, d As Object, deg, sat As Integer
 
    Set d = CreateObject("Scripting.Dictionary")
 
    Application.ScreenUpdating = False
    Sheets("STOK ÇIKIŞ 01-02-03").Select
 
    Range("A3:A" & Rows.Count).ClearContents
    Range("U3:U" & Rows.Count).ClearContents
 
    sat = 1
    For i = 1 To Worksheets.Count
        Set syf = Sheets(i)
        If syf.Name <> "STOK ÇIKIŞ 01-02-03" And syf.Name <> _
            "Döküm" And syf.Name <> "Maliyet" And syf.Name <> _
            "Renk" And syf.Name <> "Maliyet" And syf.Name <> _
            "STOK GİRİŞ 01-02-03" And syf.Name <> "Döküm 01-02-03" Then
            Cells(sat, "U") = syf.Name
            sat = sat + 1
            For j = 1 To syf.Cells(Rows.Count, "K").End(xlUp).Row
                deg = syf.Cells(j, "K")
                If deg <> 0 Then
                    If Not d.exists(deg) Then
                        d.Add deg, Nothing
                    End If
                End If
            Next j
        End If
    Next i
 
    a1 = d.keys
    Range("A2").Resize(UBound(a1) + 1, 1) = WorksheetFunction.Transpose(a1)
 
    Range("A3:A" & Rows.Count).Sort Key1:=Range("A3"), Order1:=xlAscending
    ActiveWorkbook.Names.Add Name:="sayfa", RefersTo:="='STOK ÇIKIŞ 01-02-03'!$U$1:$U$" & sat - 1
 
End Sub

Daha sonra B3 hücresine yazarak yana ve alt hücrelere kopyalayın.

=TOPLA.ÇARPIM(ETOPLA(DOLAYLI("'"&sayfa&"'!K2:K23");$A3;DOLAYLI("'"&sayfa&"'!"&ADRES(2;11+SÜTUNSAY($B2:B2))&":"&ADRES(23;11+SÜTUNSAY($B2:B2)))))

Sanırım istediğiniz bu.

.

 

[Jeeday]

Sayın yurttaş,

Anlatmaya çalıştığım şeyin komplike olduğunun farkındayım. Başka şekilde anlatamazdım sanırım. Örnekte biraz yardımcı olur diye düşündüm. İlgi gösterdiğiniz ilgi için teşekkür ederim...

Ömer Bey,

Yardımınız için teşekkür ederim.