Aynı sütundaki farklı koşullar

[kimki]

Mrb,

Forumda tam olarak yapmak istediğim şeyi bulamadım, kendi çabalarım da yetersiz kaldı. Örnek dosyayı ekledim. Aynı sütunda bulunan 2 koşul sonrası bulunan değerleri yan taraftaki tabloya geçirmek istiyorum, bu şekilde kendi verilerimde uygulayabilirim.

 

[YUSUF44]

Muhtemelen sorunuzun bu haliyle cevap bulmanız zor olur (ben bulamam mesela). Ancak eğer bölgelerle ürünleri farklı sütunlara yazarsanız çok basit formül ya da makroyla sorun çözülür diye düşünüyorum.

Ekteki örneği inceleyiniz:

https://drive.google.com/file/d/0B43WMUs21VpfVGV2RTNBbmZmaUk/view?usp=sharing

 

[kimki]

Evet data o şekilde olsa çözümü basit ama aldığım data bu şekilde. 36 bölge ve 60 ürün var datamda.

 

[sakman26]

Selam,
gönderdiğiniz örnek için çözüm (çözüm de örnek tabi ki..) ek teki gibidir..
Kendi verileriniz nasıldır ve nasıl uyarlanabilir bilemem...

Not : Sn Yusuf44 e katıldığımı da belirtmeliyim..

 

[kimki]

Çözüm için teşekkürler, yalnız yardımcı satırı anlamadım ayrıca kendi verilerimde denedim ama olmadı yada yanlış birşeyler yaptım.

Peki şöle yapsak madem, A sütunundaki bölgeleri sol tarafa bir sütun daha açıp oraya yazdırabilir miyiz ?

 

[sakman26]

Yardımcı satırı formülün kolay anlaşılabilmesi için yapmıştım. Yardımcı satırın amacı Bölge 1 , Bölge 2 .... ibarelerinin A kolonunda kaçıncı satırda olduğunun bulunmasına yaramaktadır.
Yardımcı satır kullanmadan, yardımcı satırdaki bilgiler de formüle entegre edilebilirdi tabi ki....

Gerçeği yansıtan örnek belge eklenmesi bu yüzden önemlidir. Maalesef ki çoğu zaman "yapılmış örnekte çalışanı kendi dosyama uyarlayamadım" şeklinde dönüşler oluyor.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp denerseniz, örnek dosyanıza bir sütun ekleyerek bölge sütunu olarak kullanacak ve bölge satırlarını silecektir. Daha sonra dosyanıza özet tablo ekleyerek en doğru sonuçları alabilirsiniz:

Sub düzenle()

Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

[A2] = "Bölge"
[B2] = "Ürün"
[A3] = [B3]

son = Cells(Rows.Count, "B").End(3).Row

For a = 3 To son
    If Cells(a - 1, "C") = "" Then
        Cells(a, "A") = Cells(a - 1, "B")
        Rows(a - 1).Delete
        a = a - 1
    Else
        Cells(a, "A") = Cells(a - 1, "A")
    End If
Next

End Sub

 

[kimki]

Sn YUSUF44 teşekkürler bu verdiğiniz çalıştı fakat makrosuz yapmak istiyorum. Sn sakman26 orjinal dosyayı ekliyorum gözatabilirseniz sevinirim. Bu dosya üzerinden çalışmamı devam ettirebilirim. Dosyada B sütunu diğer sayfadaki tabloyu dolduracak.

 

[sakman26]

selam,
dosyanız ektedir...
ilave Not : Dosyadaki B sütunu deyince onu anlamadım ve eski örnek gibi formüle ettim..

 

[kimki]

selam,
dosyanız ektedir...
ilave Not : Dosyadaki B sütunu deyince onu anlamadım ve eski örnek gibi formüle ettim..

:bravo::bravo: Teşekkürler, çok işime yaradı.

 

[sakman26]

Rica ediyorum...
kolaylar gelsin..