Koşullu ETOPLAYI Makro ile yapabilirmiyiz.

[slcflz]

MErhabalar dosyam ektedir. AÇıklama içinde mevcut. Yardımlar için şimdiden tşkler. Saygılar

 

[Vedat Özer]

MErhabalar dosyam ektedir. AÇıklama içinde mevcut. Yardımlar için şimdiden tşkler. Saygılar

Selamlar,

Rapor sayfa sekmesinde tek ölçüt gördüm Yada göremedim
f2 Hücresine aşagıdaki formülü yapıştırın bakalım istediğinizi veriyomu yoksa biraz daha detaylı açıklama yaparsanız yardımcı olmaya çalışırım.

=TOPLA.ÇARPIM((RAPOR!$A$3:$A$800=Data!C2)*(RAPOR!$B$2:$F$2=Data!G2)*(RAPOR!$B$3:$F$800))

 

[slcflz]

Sayın Özer alakanıza tşk ederim. Bu formul iş görmedi ben sanırım biraz karışık sordum. Şimdi, Data Bölümüne userfromdan ben kayıt yaparak verileri alt alta sıralıyorum. Daha Sonra Rapor kısmınada Bu ürünlerin karşılarına Data kısmındaki G sütununda görülen koşula göre toplamları almasını istiyorum.

Yani ; Rapor kısmında diyelimki ANTIFOAM 1030 isimli ürünün karşısına Data kısmındaki G sütununda bulunan veri Sevkiyat olsun. Burda amaç ANTIFOAM 1030 ürününden sevkiyat olan kaç kg'dır bunu bulmak istiyorum. Aynı şekilde sevkiyat değilde Üretim yazarsa Rapor kısmında üretim kısmınada üretim kaç tane ise o yazsın

 

[slcflz]

Data C2 Hücresindeki Üründen Sayım olarak kaçtane varsa veya aynı üründen Sevkiyat kaç tane varsa RaPOR bölümünde ürünün karşılığındaki ilgili sutunlara toplamları alarak yazsn ksacası bu

 

[İhsan Tank]

Data C2 Hücresindeki Üründen Sayım olarak kaçtane varsa veya aynı üründen Sevkiyat kaç tane varsa RaPOR bölümünde ürünün karşılığındaki ilgili sutunlara toplamları alarak yazsn ksacası bu

eki inceleyiniz
rapor sayfasındaki formüller 1000 satırla sınırlandırılmıştır. istediğinize göre değiştiriniz.

 

[slcflz]

tşkler istediğim tam buydu ancak formuller bayağı bir yavaşlatıyor dosyayı acaba makro ile bu formulasyonu uygulamak mümkün mü ? tekrar tekrar tşkler

 

[sbayyigit]

bu da kod ile

Sub aktar()
Set s1 = Sheets("RAPOR")
Set s2 = Sheets("Data")
sat1 = s1.[a65536].End(3).Row
sat2 = s2.[c65536].End(3).Row

For a = 3 To sat1
For b = 2 To sat2
If s2.Range("c" & b).Value = s1.Range("a" & a).Value Then
If s2.Range("g" & b).Value = "Sayım" Then
s1.Range("b" & a).Value = s2.Range("f" & b).Value

ElseIf s2.Range("g" & b).Value = "Satış İade" Then
s1.Range("c" & a).Value = s2.Range("f" & b).Value

ElseIf s2.Range("g" & b).Value = "Sevkiyat" Then
s1.Range("d" & a).Value = s2.Range("f" & b).Value

ElseIf s2.Range("g" & b).Value = "Üretim" Then
s1.Range("e" & a).Value = s2.Range("f" & b).Value

End If

End If
Next

Next


End Sub

 

[slcflz]

hocam tşk ederim. kodu deneyeceğim ancak birşey sormak istiyorum. dosyayı açtığım zaman userform otomatik geliyor. ve X ten kapatamıyorum kodla bunu engelledim. Ben excel sayfasına girerek kod sayfasını açmak istiyorum ama userform buna engel oluyor bunu nasıl yapabilirim bir bilgin varsa söylersen sevinirim.tşkler

Birde bu kodu nereye yazacağım. Kendi değerlere göre otomatik mi yapıyor yoksa butona mı atamak lazm

 

[slcflz]

yukarıda verdiğiniz kodu nereye ve nasıl ekleyeceğim butonamı atancak yoksa kendisimi otomatik hesaplıyor

 

[Vedat Özer]

yukarıda verdiğiniz kodu nereye ve nasıl ekleyeceğim butonamı atancak yoksa kendisimi otomatik hesaplıyor

Selamlar,


Ekdeki örnek dosyayı inceleyin.