araçların yakıt durumu

[manisali_mdr]

arkadaşlar merhaba..
ekteki dosyada sayfa 1'de araçların plakaları ve bu araçlara aait petrol istasyonlarından alınan mazot miktarları (litre ve tl) var
benim isteğim sayfa 2'ye her plakanın toplam mazot litre ve tutarını toplamak. siz değerli üstadlar için basit bir konu bu biliyorum..şimdiden taşakkürler..

 

[ozgretmen]

Dosya ekte...

 

[Ömer]

arkadaşlar merhaba..
ekteki dosyada sayfa 1'de araçların plakaları ve bu araçlara aait petrol istasyonlarından alınan mazot miktarları (litre ve tl) var
benim isteğim sayfa 2'ye her plakanın toplam mazot litre ve tutarını toplamak. siz değerli üstadlar için basit bir konu bu biliyorum..şimdiden taşakkürler..

Merhaba,

B2 hücresi için,

=ETOPLA(Sayfa1!$C$5:$C$15;A2;Sayfa1!$D$5:$D$15)

C2 hücresi için,

=ETOPLA(Sayfa1!$C$5:$C$15;A2;Sayfa1!$F$5:$F$15)

.

 

[manisali_mdr]

Üstad harika olmuş..yalnız ben soruyu yanlış sormuşum..2. sayfaya plakaları da her plaka bir tane olacak şekilde sıralayabilir mi??

 

[ozgretmen]

Sayfa1 e bir buton,butonada aşağıdaki kodu ekleyiniz..

Sub sec()
For i = 5 To [B65536].End(3).Row
If WorksheetFunction.CountIf(Range("C5:C" & i), Cells(i, "C")) = 1 Then
k = k + 1
Sheets("Sayfa2").Cells(k + 1, 1).Value = Cells(i, "C").Value
End If
Next i
End Sub

 

[Ali]

2. sayfaya plakaları da her plaka bir tane olacak şekilde sıralayabilir mi??

A sütunundaki ve D1 hücresindeki formüller dizi formülü olup formül çubuğundan iken direk ENTER tuşuna basılmadan CTRL+SHIFT+ENTER tuşuna birlikte basılarak girilmelidir. Excel formül başına ve sonuna { } ayıraçlarını otomatik olarak ekleyecektir.


Örnek dosya ektedir.

 

[manisali_mdr]

sayın hocam..sizi kızdırmanın tam zamanı ben bu butonu nasıl açacağım? bu kodları nereye yazacağım ve bu kodları nasıl öalıştıracağım..
(not : nickinizden yanlış anlamadıysam siz de öğretmensiniz..ben de 27 yıl öğretmenlik yaptıktan sonra yeni emekli oldum)

 

[manisali_mdr]

ALİ hocam muhteşem olmuş...bilgine sağlık,ilgine teşekkürler...sizin vasıtanız aracılığıyla burada bizlere yardımcı olan tüm üstadlara sonsuz sevgi,saygı ve teşekkürler

 

[ozgretmen]

sayın hocam..sizi kızdırmanın tam zamanı ben bu butonu nasıl açacağım? bu kodları nereye yazacağım ve bu kodları nasıl öalıştıracağım..
(not : nickinizden yanlış anlamadıysam siz de öğretmensiniz..ben de 27 yıl öğretmenlik yaptıktan sonra yeni emekli oldum)

Dosya ekte...
Not: Daha bizim emekli olmamıza çok var...Size sağlık dolu , mutlu günler dilerim...

 

[manisali_mdr]

hocam..seç butonuna basına "makro çalıştırılamıyor" uyarısı çıkıyor..ben bu kod yazmayı bir türlü anlayamadım..basamak basamak (yazılışından kullanıncaya kadar) anlatır mısın??

 

[ozgretmen]

hocam..seç butonuna basına "makro çalıştırılamıyor" uyarısı çıkıyor..ben bu kod yazmayı bir türlü anlayamadım..basamak basamak (yazılışından kullanıncaya kadar) anlatır mısın??

Bu dosya için kod yazmanıza gerek yok...Zaten ben kodları yazmışım.Siz sadece dosyayı açıp ( bu arada makrolar etkinleştirilmiş olmalı ) Sayfa1 e geçip SEÇ butonuna tıklamanız yeterlidir.

Not : Makro etkinleştirmek için : Araçlar > Makro > Güvenlik > Orta seçip dosya açılışında Makroları Etkinleştir seçeneği seçilmelidir.