Verileri koşullu olarak başka sayfalara yazdırmak

[policeman]

Eklediğim örnekte istediklerimi sıraladım,yardımlarınızı bekliyorum..
Saygılarımla...

 

[N.Ziya Hiçdurmaz]

yanıt

GENEL LİSTE Sayfası kod bölümüne yazılacak.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [f:g]) Is Nothing Then Exit Sub
Set gen = Sheets("GENEL LİSTE")
Set cal = Sheets("ÇALIŞANLAR")
Set ay = Sheets("AYRILANLAR")
For sutf = 4 To gen.[f65536].End(3).Row
If gen.Range("f" & sutf).Value <> "" Then
gen.Range("b" & sutf & ":g" & sutf).Copy
s = s + 1
cal.Range("b" & s + 3).PasteSpecial
End If
Next
For sutg = 4 To gen.[g65536].End(3).Row
If gen.Range("g" & sutg).Value <> "" Then
gen.Range("b" & sutg & ":g" & sutg).Copy
ss = ss + 1
ay.Range("b" & ss + 3).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

ÇALIŞANLAR Sayfası kod bölümüne yazılacak.

Private Sub Worksheet_Change(ByVal Target As Range)
For sut = 4 To [g65536].End(3).Row
If Range("g" & sut).Value <> "" Then
Range("b" & sut & ":g" & sut).Delete shift:=xlUp
End If
Next
End Sub

 

[policeman]

Sn. V.Basic For Applications...
Öncelikle ilginize teşekkürler..
Makro ile sorunumu büyük ölçüde halletmişsiniz ama benim makro bilgim az olduğu için örneği geliştirme şansım yok...
Eğer bunu formüller ile çözebilirsek,örneği yanıla deneye geliştirebilirim...
Saygılarımla...

 

[Ali]

Örnek dosyanız ektedir.

 

[policeman]

Sn. Ali Kardeşim...
çok teşekkürler;tam istediğim gibi olmuş...
Saygılarımla...

 

[policeman]

Tüm Arkadaşlara..
01.09.2007 Tarihinde üyesi olduğum www.excel.web.tr sayesinde,kendimi hergün dünden daha iyi hissediyorum.....
Hepinize teşekkürler,hayırlı çalışmalar...

 

[Ali]

Üzerine düşüp uğraştıkça çok daha iyi olacağınıza inanıyorum.Sizede hayır çalışmalar,saygılar.