• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Karışık Bilgi Girilen Sayfadan Anasayfalara koşula göre bilgi getirmek

T

topal52

Katılım
13 Nisan 2006
Mesajlar
62
Öncelikle Herkese Slmlar,
Karışık Bilgi girişi yapılan sayfadan diğer anasayfalara bilgi çekmek için nasıl bi formül yazmalıyım bu konuyla ilgili forumda birçok konu var ama bir türlü kendime uyarlayamadım. Örnek dosyam ekte Yardımlarınızı bekliyorum. Saygılar.
 

Ekli dosyalar

dosyanın içine elle örnek girermisiniz bu şekilde anlayamadım ne yapılacağını
 
merhaba
eki inceler misiniz
tek eksik olan fatura nosu için ayırt edecek bir madde bulamadım ondan onu çıkartmadım. mesela bilgi sayfasına birim yerine fatura nosunu yazdırırsanız onuda ayarlıyabilirim.
 

Ekli dosyalar

ihsan bey bilgi sayfasındaki fatura tutarı bölümüne sadece fatura sayfasından o firmaya ait faturanın tutarını toplayıp alsın yeterli birde 2 tane anasayfam var bu anasayfadaki firmaların karşılarına data sayfasından tutarlar otomatik yansımamış sanki birde anasayfalardan firmanın solundaki sıra numarasına tıkladıgımda otomatik bilgi sayfasını açmıyor sanki
 
1. fatura tutarını nereye toplayacak o firmaya ait birden fazla fatura mevcut.
2. sorunuzu anlamadım dosyada böyle bir şey göremedim.
3. sorunuz ise böyle bir şey istemediğiniz için yapılmadı o basit hemen yapılır.

sorularıma yanıt verirseniz dosyanızla ilgilenirim.
dilerseniz dosya üzerinde örnekler ile anlatın daha iyi olur
 
Anasayfalar olan taşeron ve tedarikçi sayfalarında örneğin birinci sıradaki a firmasına ait söz bed toplamındaki dolar euro tl bilgileri otomatik olarak data sayfasından buraya gelecek aynı şekilde diğer başlıklar olan avans tutarı fatura tutarı gibi rakamlar ilgili yerlere gelecek . Kısaca ben data s ayfasından elle giriş yaptıkça buraya veriler otomatik gelecek sonra firmalar sutununda herhangi bir firmanın solundaki numaraya tıkladıgımda direk bilgi sayfasını açacak ve o firmanın ayrıntılı bilgilerini ben bilgi sayfasında görmek istiyorum.
Fatura tutarını fatura sayfasına gidecek o firmayla ilgili kaçtane fatura varsa önce toplayacak sonra toplamını fatura başlığı altına getirecek . Ilgi ve alakanız için çok teşekkür ederim.
 
topal52' Alıntı:
Fatura tutarını fatura sayfasına gidecek o firmayla ilgili kaçtane fatura varsa önce toplayacak sonra toplamını fatura başlığı altına getirecek . Ilgi ve alakanız için çok teşekkür ederim.
Genişletmek için tıkla ...

işte sıkıntı burada burada bu faturaları ayırt edebileceğimiz bilgiler olmalı. mesela fatura no gibi tek olacak.
bilmem anlatabildim mi_?
 
sizin söylediğinizi ya ben anlamıyorum yada tam isteğimi antalamıyorum kafam karıştı şimdi yani faturaları ayırt etmek derken zaten firmaya göre ayırt etmiş olmuyormuyuz a firmasının 4 tane faturası var bu dört tane faturanın toplamını anasayfalardaki ilgili yerlere yazdırıcaz. yani düşeyara ile yapmaya çalışsak desek ki örneğin bilgi sayfasındayken a2 deki firma ismini fatura sayfasında ara kaç tane fatura bulduysan o firmaya ait tutarları topla toplamı buraya yaz gibi olmazmı
 
toplamı yazdırırsın sorun yok orda sorun şu : bu firmaya ait 1 den fazla fatura var ve sen bunun da dökümünü istiyorsun. bu dökümü alacağımız yerde bilgi sayfası ile aynı olduğundan dökümü yaptığında ilk gördüğü andan itibaren listelemeye başlıyacak ve bu da verilerin yanlış yerlerde olmasını sağlayacak bilmem anlatabildim mi_?
örneğin
A firmasının bilgi sayfasına tüm bilgilerini aktardık
bu firmanın ilk satırındaki veri ya fatura sayfasındaki 10 satır ise bunu nasıl ayırt edeceğiz.
 
ustam ben fatura dökümü istemiyorum sadece o firmaya ait birden fazla fatura varsa toplasın sadece sonucu yazdırsın yeterli sen guzel ve sistematik anlatıyosun ben anlayamıyorum sorun orda dediğim gibi sadece sonucu getirsin yeterli
 
topal52' Alıntı:
ustam ben fatura dökümü istemiyorum sadece o firmaya ait birden fazla fatura varsa toplasın sadece sonucu yazdırsın yeterli sen guzel ve sistematik anlatıyosun ben anlayamıyorum sorun orda dediğim gibi sadece sonucu getirsin yeterli
Genişletmek için tıkla ...

inceleyin bakalım istediğiniz oluyor mu_?
Not : dosyadaki kodların bir kısmı 2007 alt sürümlerinde çalışmamaktadır.
Kod: 
Range("H2:H4").ClearContents
Range("H2") = WorksheetFunction.SumIfs(Sheets("Fatura").Range("E2:E1048576"), Sheets("Fatura").Range("B2:B1048576"), Sheets("BİLGİ").Range("A2").Value, _
Sheets("Fatura").Range("F2:F1048576"), Sheets("BİLGİ").Range("J2").Value)
Range("H3") = WorksheetFunction.SumIfs(Sheets("Fatura").Range("E2:E1048576"), Sheets("Fatura").Range("B2:B1048576"), Sheets("BİLGİ").Range("A2").Value, _
Sheets("Fatura").Range("F2:F1048576"), Sheets("BİLGİ").Range("J3").Value)
Range("H4") = WorksheetFunction.SumIfs(Sheets("Fatura").Range("E2:E1048576"), Sheets("Fatura").Range("B2:B1048576"), Sheets("BİLGİ").Range("A2").Value, _
Sheets("Fatura").Range("F2:F1048576"), Sheets("BİLGİ").Range("J4").Value)
bu kodların yerine
Kod: 
Range("H2:H4").ClearContents
Range("H2") = Evaluate("=SumProduct((Fatura!B2:B65536=A2)*(Fatura!F2:F65536=J2)*(Fatura!E2:E65536))")
Range("H3") = Evaluate("=SumProduct((Fatura!B2:B65536=A2)*(Fatura!F2:F65536=J3)*(Fatura!E2:E65536))")
Range("H4") = Evaluate("=SumProduct((Fatura!B2:B65536=A2)*(Fatura!F2:F65536=J4)*(Fatura!E2:E65536))")
bu kodları kullanınız
yani kısaca bilgi sayfasındaki kod bu olmalı
Kod: 
Private Sub Worksheet_Activate()
Dim c As Range, sat As Long, ilkadres As Variant
Sheets("BİLGİ").Range("A7:P" & Rows.Count).ClearContents
sat = 7
With Sheets("DATA").Range("B:B")
Set c = .Find(Range("A2"), LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
ilkadres = c.Address
Do
Sheets("BİLGİ").Cells(sat, "B") = Sheets("DATA").Cells(c.Row, "B")
Sheets("BİLGİ").Cells(sat, "C") = Sheets("DATA").Cells(c.Row, "C")
Sheets("BİLGİ").Cells(sat, "D") = Sheets("DATA").Cells(c.Row, "D")
Sheets("BİLGİ").Cells(sat, "E") = Sheets("DATA").Cells(c.Row, "E")
Sheets("BİLGİ").Cells(sat, "F") = Sheets("DATA").Cells(c.Row, "F")
Sheets("BİLGİ").Cells(sat, "G") = Sheets("DATA").Cells(c.Row, "G")
Sheets("BİLGİ").Cells(sat, "J") = Sheets("DATA").Cells(c.Row, "H")
Sheets("BİLGİ").Cells(sat, "K") = Sheets("DATA").Cells(c.Row, "I")
sat = sat + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> ilkadres
End If
End With
Dim a As Long
a = Cells(65536, "B").End(xlUp).Row
Range("A7") = 1
Range("A7:A" & a).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False
Range("H2:H4").ClearContents
Range("H2") = Evaluate("=SumProduct((Fatura!B2:B65536=A2)*(Fatura!F2:F65536=J2)*(Fatura!E2:E65536))")
Range("H3") = Evaluate("=SumProduct((Fatura!B2:B65536=A2)*(Fatura!F2:F65536=J3)*(Fatura!E2:E65536))")
Range("H4") = Evaluate("=SumProduct((Fatura!B2:B65536=A2)*(Fatura!F2:F65536=J4)*(Fatura!E2:E65536))")
End Sub
 

Ekli dosyalar

peki usta taşeron sayfasına ve tedarik sayfasına nasıl getirtcez data sayfasından süzdürüpte
 
neyi getireceksiniz buralara anlamadım.
lütfen örnekte şöyle olsun diye anlatın bu şekilde anlaşılmıyor
çok kısıtlı bilgi veriyorsunuz ( inanın şüphe etmeye başladım acaba sorunuzun çözülmesini istemiyor musunuz diye )
 
ihsan bey defalarca söyledim ama oraları okumadınnız sanırım taşaron ve tedarikçi diye 2 tane sayfa var gördünüz sanırım işte o sayfaları ben ana sayfa olarak kullanacagımdan o sayfalardaki boş yerlere data sayfasından veri çekmek istiyorum hepsi bu örnek dosya ekledim
 

Ekli dosyalar

Son düzenleme:
kalan'ı nasıl belirleyeceğiz.
onu söyleyin dosyanızın tamamını tekrardan ekliyeyim.
 
kalanı sözleşme bedelleri toplamı -avans tutarı-fatura= şeklinde basitce bi çıkarma işlemi yapıcaz onun için ayrıca uğraşmasanızda olur
 
Sayın İhsan Tank öğretmenimiz her zaman size bir çözüm bulur.

Katkıları için teşekkürler.

Sevgiler.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst