Makro ile bilgi aktarmak

[bmutlu966]

Arkadaşlar selam,
Bir sayfadaki tablodan diğer sayfaya birkaç kolondaki bilgileri makro ile bazı şartlara göre aktarmam gerekiyor. Örnek dosya ekledim. Yardımcı olabilecek ustalarımdan yardım bekliyorum.

Şimdiden teşekkürler.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[bmutlu966]

Sayın Maymun çok teşekkürler. Sadece küçük bir yanlışlık olmuş onu da ben düzelttim. Eksi değerler için 50 artı değeler için 40 kodu vermesi gerekiyordu.

If s1.Cells(i, "d") < 0 Then s2.Cells(sonsatir, "b") = 50
If s1.Cells(i, "d") > 0 Then s2.Cells(sonsatir, "b") = 40

Elinize sağlık çok teşekkürler.