Sayfalar arası koşullu veri aktarımı

[anita]

Herkese kolay gelsin ekte olan dosya ile ilgili ACİL yardımlarınızı bekliyorum.
Teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Sub kod_bir()
Application.ScreenUpdating = False

For i = 1 To [m65536].End(3).Row

aa = Sheets("savaş").[a65536].End(3).Row+1

If Cells(i, "m").Interior.ColorIndex = 3 Then
Sheets("savaş").Cells(aa, "a") = Cells(i, "a")
Sheets("savaş").Cells(aa, "b") = Cells(i, "b")
Sheets("savaş").Cells(aa, "c") = Cells(i, "c")
Sheets("savaş").Cells(aa, "d") = Cells(i, "d")
Sheets("savaş").Cells(aa, "e") = Cells(i, "e")
Sheets("savaş").Cells(aa, "f") = Cells(i, "f")
Sheets("savaş").Cells(aa, "g") = Cells(i, "g")
Sheets("savaş").Cells(aa, "h") = Cells(i, "h")
Sheets("savaş").Cells(aa, "ı") = Cells(i, "ı")
Sheets("savaş").Cells(aa, "j") = Cells(i, "j")
Sheets("savaş").Cells(aa, "k") = Cells(i, "k")
Sheets("savaş").Cells(aa, "l") = Cells(i, "l")
Sheets("savaş").Cells(aa, "m") = Cells(i, "m")

Else
End If

Next i
Application.ScreenUpdating = True
End Sub

. . .

 

[anita]

ilginize teşekkür ederim.
bunu tüm koşullar için ayarlayamadım yardımcı olur musunuz?

 

[Emir Hüseyin Çoban]

. . .

- Kodları sayfanızda göremedim.
- Sayfalarınızda hiç veri yok. Neye göre deneme yapacağız.
- Tüm koşullar dediğiniz nedir ?

. . .

 

[anita]

açıklama

savaş-ilhan-sinan sekmelerinin sonuç bölümlerinde
EK GÖRÜŞME
TEKLİF RED
TEKLİF SÜRECİ
SÖZLEŞME SÜRECİ
PROJE SÜRECİ
PROJE RED
ABONELİK SÜRECİ
GAZ AÇIM
POREJE KAPANDI
seçimler var;

teklif -sözleşme süreci seçimi yapıldığında savaş ek bölümünün boş satırına
tarihe 1 ekleyerek bölge proje adı yetkili tel bilgilerinin seçim yapılan sayfadan aktarmak istiyorum.
proje sürecinde aynı işlemleri murat ek dosyasına
abonelik ve gaz açımı içinde sercan ek bölümüne aktarmak istiyorum.

yapılabilir mi?

 

[anita]

yardımmmm

yardım edebilecek biri var mı?