AutoCopy

[pelin5353]

Selamlar,

Benim 2 Sorum olacak.

1.si Ekte gordugunuz " DEF " sayfasindaki organizasyonlarin gerceklesme tarihleri " I " sutununda yer almakta. Yapmak istedigim sey, I sutunundaki tarihin E1 hucresindeki tarihten kucuk olmasi durumunda tum satirin ACT sayfasina otomatik olarak kopyalanmasi..

2. si... Sayfanin AutoSave etmesi gerekiyor.. Sayfa Shared olarak calisiyor.. macrolar belli bir zamandan sonra problem yaratiyor..Sayfa kilitleniyor yada save basarisiz diyor..save'e bastigimizda ise save as cikiyor..

Simdiden yardimlariniz icin tesekkurler...

 

[Kemal Demir]

iyi geceler pelin5353,

Aşagıdaki kodda tasıma ile zannedersem isteyinizin 1.kısmını gerçekleştirmiş olursunuz.Aşagıdaki kodu bir butona bağlayınız.

Sub onay()
 For x = 5 To [a65536].End(3).Row
 yaz = WorksheetFunction.CountA(Sheets("ACT").Range("A4:A65536")) + 1
 tar = Sheets("DEF").Range("t1").Value
 bak = Cells(x, 9).Value
 If bak < tar Then
 Rows(x).Copy
 Sheets("ACT").Select
 Cells(yaz, 1).PasteSpecial
 Sheets(1).Select
 End If
 Next
End Sub

Bir deneyiniz.Umarım iş görür.

 

[pelin5353]

sayin Kemal Demir
Oncelikle yardiminiz icin tesekkurler. Ama Bu macro calismadi.Dediklerinizi yaptim ama olmadi..Acaba baska bi noktayi mi gozden kaciriyorum??