Selamlar ;
Ekteki dosyayı nasıl anlatabilirim bilmiyorum. 5 adet tanımlı ismim var. Bunlar "A3";"A4";"A5";"AMB";"MATBAA" şeklinde. yazı ve harici işler sayfamda cinsine bu tanımlamalardan birini yazıyorum. yanına kaç adet olduğunu ; onun yanına da kaç renk olduğunu yazıyorum. Formülüm
Ekteki dosyayı nasıl anlatabilirim bilmiyorum. 5 adet tanımlı ismim var. Bunlar "A3";"A4";"A5";"AMB";"MATBAA" şeklinde. yazı ve harici işler sayfamda cinsine bu tanımlamalardan birini yazıyorum. yanına kaç adet olduğunu ; onun yanına da kaç renk olduğunu yazıyorum. Formülüm
bu şekilde. Ben ise bunu VBA'da Worksheet Selection Change olayında yapmak istiyorum ancak alttaki kod gibi her alt satırda işlem yapınca bir alt satıra yapmalı. Yani kod alttaki kod gibi olmalı.=EĞER('Yazı ve Har. İşler'!B3<>"";YATAYARA('Yazı ve Har. İşler'!B3;Fiyatlar!$N$1:$T$10001;'Yazı ve Har. İşler'!C3);"")
Yardımcı olur musunuz bu konuda ? TeşekkürlerFor i = 3 To sayfa2.Range("A65536").End(3).Row
If WorksheetFunction.Sum(sayfa2.Range("a" & i & ":ıv" & i)) = 0 Then
Sayfa21.Range("A" & i).Value = ""
Else
Sayfa21.Range("A" & i).Value = ""
Sayfa21.Range("A" & i).Value = WorksheetFunction.Sum(sayfa2.Range("a" & i & ":ıv" & i))
End If
Next
Ekli dosyalar
-
289.3 KB Görüntüleme: 55