Yatayara Formülünü VBA da kullanmak

[BASKICI]

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

=EĞER('Yazı ve Har. İşler'!B3<>"";YATAYARA('Yazı ve Har. İşler'!B3;Fiyatlar!$N$1:$T$10001;'Yazı ve Har. İşler'!C3);"")

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ı.

For 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

Yardımcı olur musunuz bu konuda ? Teşekkürler

 

[Ömer]

Worksheet Selection Change

Merhaba,

Neden change ile yapmak istediğinizi anlamadım. Sonuçta diğer sayfadaki verileri istediğiniz hesaplamalar ile formül sayfasına aktarmak istiyorsunuz. Aynı sayfa da veri girişiyle olsa tamam da diğer sayfadan bana pek işlevsel gelmedi. Bence kod, formül sayfası aktiv olunca çalışsın. Bu şekilde sayafaya girince tüm verileri görmüş olursunuz.

.

 

[BASKICI]

Merhaba Ömer Bey ;
İlginiz için teşekkür ederim.Şimdi yapmak istediğim şu. Ben gördüğünüz hücrelere bilgileri userform üzerinden gireceğim ve bu sayfaları hiçbir şekilde görmeyeceğim. Adet ve renk olayına göre fiyatı formül e getirecek.Ama hangi satırda işlem yaparsam yapayım işlem yaptığım satırda formül sayfasında gerekli yere adet cins ve renk kriterine göre fiyatlamayı yapıp gerekli hücreye yazması lazım ki userform da ben o bilgiyi görebileyim. Ne kadar anlatabildim bilmiyorum yanlış anlatımlarım varsa affola.

 

[bskaa]

Merhaba, bir textbox'ta bulunan β değerine göre altındaki NT değerini bir başka textbox'a atasın istiyorum. Yatayara formülünü oluşturamadım. Yardımcı olabilirseniz sevinirim.

β	75°	80°	85°	90°	95°	100°	105°
NT	2,5​	3​	3,8​	5​	6,7​	10​	15,2​