Koşullu Sayma Hakkında

[k.guclu]

İyi günler arkadaşlar;

Forumda inceledim fakat bulamadım eğer yardımcı olursanız sevinirim.

Sorunum şu; Ben VRF seçimi yapıyorum ve kaç adet olduğunu karşısına işliyorum. çok sayıda tip var ben bunlardan hangisini seçtiğimi ve adetlerini karşısına yazsın istiyorum. VB makro yapmak mümkünse memnun olurum.

kaynak göstersenizde olur.

Örneği gönderiyorum.

Tüm Dostlarıma saygılar.
_____________________________________________________________
İyi davula sert vurmak gerekmez. / Atasözü

:yardim:

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Long
If Intersect(Target, Range("K3:K65536")) Is Nothing Then Exit Sub
On Error Resume Next
Target.Offset(0, 1).ClearContents
sat = Cells(65536, "B").End(xlUp).Row
Target.Offset(0, 1).Value = WorksheetFunction.SumIf(Range("B3:B" & sat), Target.Value, Range("C3:C" & sat))
End Sub

 

[k.guclu]

Üstat mükemmelsin.
Çok teşekkür ederim soldaki sarıları otomatik alma imkanı yok mu?

Yani "Kaset - 4" gibi çok tipi var hepsine bakarak girmem gerekir. Hepsini girersemde çok boş yer olur.

Onuda yaparsan duble mükemmel olursun.

Çok Teşekkür ederim Üstadım. Gerçekten saol

 

[Orion1]

Üstat mükemmelsin.
Çok teşekkür ederim soldaki sarıları otomatik alma imkanı yok mu?

Yani "Kaset - 4" gibi çok tipi var hepsine bakarak girmem gerekir. Hepsini girersemde çok boş yer olur.

Onuda yaparsan duble mükemmel olursun.

Çok Teşekkür ederim Üstadım. Gerçekten saol

Dosyaı günceledim.
2 numaralı mesajdan indirebilirsiniz.

 

[k.guclu]

Sen Üstadımsın çok teşekkür ederim. Çok işime yaradı buna benzer bir çok hususla karşılaşıyordum. İnşallah kullanacağım. Emeğine sağlık, değerli vaktini böyle basit bir şey için ayırdığın için ayrıca teşekkür ederim.
Kolay gelsin.

 

[Orion1]

Sen Üstadımsın çok teşekkür ederim. Çok işime yaradı buna benzer bir çok hususla karşılaşıyordum. İnşallah kullanacağım. Emeğine sağlık, değerli vaktini böyle basit bir şey için ayırdığın için ayrıca teşekkür ederim.
Kolay gelsin.

Rica ederim.
İyi çalışmalar.