control sayfasına capex opex tutarlarının gelmesi

[jsawyer]

Arkadaşlar Merhaba,
F&B Service,kitchen ve spa gibi sheetlerde görünen kdv hariç toplam tutarların capex veya opex seçildiğinde control sayfasında ki capex ve opex sütunlarına getirmesini istiyorum,yardımcı olabilir misiniz rica etsem? Herkese kolay gelsin!..

 

[Orion1]

H sütununda capex yada opex üzerine çift tıklayın.
Dosyanız linktedir.

DOSYAYI İNDİR

Private Sub Workbook_SheetBeforeDoubleClick(ByVal sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim sonsat As Long, i As Long, s As String, sut As Byte, toplam As Double
If ActiveSheet.Name = "CAPEX & OPEX CONTROL" Then Exit Sub
sonsat = Cells(Rows.Count, "H").End(xlUp).Row
If sonsat < 7 Then Exit Sub
If Intersect(Target, Range("H7:H" & sonsat)) Is Nothing Then Exit Sub
If Target.Row < 7 Then Exit Sub
If Target.Value <> "CAPEX" And Target.Value <> "OPEX" Then Exit Sub
Cancel = True
s = ActiveSheet.Name
If Target.Value = "CAPEX" Then sut = 4
If Target.Value = "OPEX" Then sut = 5
For i = 16 To Sheets("CAPEX & OPEX CONTROL").Cells(Rows.Count, "B").End(xlUp).Row
    If Sheets("CAPEX & OPEX CONTROL").Cells(i, "B").Value = s Then
        Sheets("CAPEX & OPEX CONTROL").Cells(i, sut).Value = _
                WorksheetFunction.SumIf(Range("H7:H" & sonsat), Target.Value, Range("J7:J" & sonsat))
        Exit For
    End If
Next i
        
End Sub

.

 

[Ömer BARAN]

Merhaba Sayın jsawyer. Foruma hoşgeldiniz.

Yanlış anlamadıysam ve formül ile çözüm isterseniz.
CAPEX & OPEX CONTROL sayfası D16 hücresine;

=ETOPLA(DOLAYLI("'"&$B16&"'!"&"H7:H26");SOLDAN($D$15;BUL(" ";$D$15;1)-1);DOLAYLI("'"&$B16&"'!"&"J7:J26"))

CAPEX & OPEX CONTROL sayfası E16 hücresine;

=ETOPLA(DOLAYLI("'"&$B16&"'!"&"H7:H26");SOLDAN($E$15;BUL(" ";$E$15;1)-1);DOLAYLI("'"&$B16&"'!"&"J7:J26"))

formüllerini uygulayıp aşağı doğru kopyalayın.