verileri ilgili sayfaya dağıtmak

[karakayalı]

dosya ektedir kolay gelsin

 

[leumruk]

Merhaba,
Syn. karakayalı,
Aktarma işi kolay, yapılabilir; ancak G sütununa yazılan değer değiştiğinde eskisini silsin, veriyi yeni sayfaya eklesin demişsiniz. Bunu neye göre yapacak. Bunu gerçekleştirmek için bir kritere ihtiyaç var. Yani satırın bir parmak izinin olması lazım ki diğerlerinden ayrılsın. Sadece ilgili satırda olan, diğer satırlarda olmayan bir kod numarası olması lazım ki bu kod numarasına göre arama yapsın.

 

[karakayalı]

Diyelimki a yı c yaptım program tüm sayfaları kontrol edecek ve bunu sema nın sayfasına ekleyecek...sayfa1 deki veri aynen kalacak. Diğer sayfalardaki veri silinecek...tabi burada hem sayfa1 de hemde ali nin sayfasında aynı veri olacak...diğer sayfalara veri taşınırken mükerrer kayıt yapmayacak...

 

[leumruk]

Diyelim ki "G" sütununda c' yi 4 defa yazdık. Bunlardan birini sonradan a'ya çevirdik. Veriyi a'ya çevirdiğimizde bu dört c den hangisini bulacak bunu belirlemek sıkıntı oluşturur. Ama her girilen satır için ayrı bir kod numarası olursa bu kod numarasına göre diğer sayfalarda arama yaptırıp istediğinizi gereçekleştirebiliriz. Ben aktarma kodunu yazdım. Dosyayı ekliyorum. Fakat silme işlemi için her satırı birbirinden ayıran bir özelliğiniz olması gerekiyor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G:G]) Is Nothing Then Exit Sub
If Target = "A" Then Set Syf = Sheets("ali")
If Target = "B" Then Set Syf = Sheets("saim")
If Target = "C" Then Set Syf = Sheets("sema")
Sat = Syf.[a65536].End(3).Row + 1
For x = 1 To 8
    Syf.Cells(Sat, x) = Cells(Target.Row, x)
Next
End Sub

 

[karakayalı]

Syın leumruk, evet çok güzel olmuş elinize sağlık ancak dediğiniz gibi silme işini yapmıyor...

 

[karakayalı]

Syın leumruk, yukarıda yazdığınız kodla aktarma yaptığımızda, aktarma yapılan ilgili sayfaların tarih bölümüne o günün tarihini yazdırabilirmiyiz...kolay gelsin...

 

[leumruk]

Syın leumruk, yukarıda yazdığınız kodla aktarma yaptığımızda, aktarma yapılan ilgili sayfaların tarih bölümüne o günün tarihini yazdırabilirmiyiz...kolay gelsin...

Sayfa1'deki h sütununu iptal mi edeceğiz? Bildiğiniz gibi bu sütundaki tarihleri de aktarıyordu.

 

[karakayalı]

H sutununa otamatik o günün tarihini atabilir yada bunu a sutununa da yapabiliriz... G sutununa a yazmışsam h sutununa o günün tarihini atmasını istiyorum...kolay gelsin

 

[leumruk]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [G:G]) Is Nothing Then Exit Sub
If Target = "A" Then Set Syf = Sheets("ali")
If Target = "B" Then Set Syf = Sheets("saim")
If Target = "C" Then Set Syf = Sheets("sema")
Sat = Syf.[g65536].End(3).Row + 1
Target.Offset(0, 1) = Date
For x = 1 To 8
    Syf.Cells(Sat, x) = Cells(Target.Row, x)
Next
MsgBox Syf.Name & " sayfasına aktarım yapıldı."
End Sub

 

[karakayalı]

SAYIN LEUMRUK. teşekkürler...ellerinize sağlık...

 

[leumruk]

SAYIN LEUMRUK. teşekkürler...ellerinize sağlık...

Rica ederim.