farklı sayfaları tek sayfaya giriş zamanına göre yazdırma

[tezcandanaci]

Sayın hocalarım çalıştığım şirkette kullandığım yanyana 20 sayfadan oluşan bir excel çalışma kitabındaki verilerin en son 21. çalışma sayfasına verilerin giriş sırasına göre alt alta aktarılmasını nasıl sağlarım. Örneğin
1sayfaya veri girdim 21.sayfa 1satıra atıcak daha sonra mesela 8.sayfaya veri girdim 21 sayfa 2satıra atıcak

Lütfen yardımlarınızı bekliyorum dosya ektedir.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz. İlgili sayfada A sütununda değişiklik olduğunda o satırı Sayfa21'e aktarır.

Uygulamada sorun olursa kodları değişiklik değil Çift tıklamaya bağlayabilirsiniz. Çünkü A arası dolu iken bir değişiklik olduğunda ikinci kez ilgili sayfaya aktarabilir.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If ActiveSheet.Name = "Sayfa21" Then Exit Sub
    If Intersect(Target, [A:D]) Is Nothing Or Target.Row < 2 Then Exit Sub
    If Application.WorksheetFunction.CountA(Range("A" & Target.Row & ":D" & Target.Row)) < 4 Then Exit Sub
    
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
    Dim i As Long
    
    i = Sheets("Sayfa21").Cells(Rows.Count, "A").End(3).Row + 1
    
    ActiveSheet.Range("A" & Target.Row & ":D" & Target.Row).Copy Sheets("Sayfa21").Range("A" & i)
    
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .CutCopyMode = False
    End With
    
End Sub

 

[tezcandanaci]

Teşekkür ederim hocam en kısa sürede denicem.

 

[tezcandanaci]

hocam verdiğiniz kodu giriyorum fakat dosyayı save yapamıyorum

 

[tezcandanaci]

hocam verdiğiniz kodu giriyorum fakat dosyayı save yapamıyorum

ekte gönderdiğim hatayı alıyorum

 

[Orion1]

Dosyanızı xlsx değilde xlsm uzantılı olarak kaydedin.Çünkü dosyanızda makro oluştu.

 

[tezcandanaci]

Dosyanızı xlsx değilde xlsm uzantılı olarak kaydedin.Çünkü dosyanızda makro oluştu.

nasıl yapıcamı bilmiyorum

 

[Orion1]

Dosyayı kaydetmek istediğinizde karşınıza bir form geliyor.
Orada kayıt türünde xlsx yazıyor.O seçeneği değilde xlsm seçin.

 

[tezcandanaci]

hocam bu kodu yazdığım yerde kayıt yapamıyorum kaydet tuşuna basıyorum gönderdiğim ekran alıntısı çıkıyor.

 

[tezcandanaci]

hocam bu kodu yazdığım yerde kayıt yapamıyorum kaydet tuşuna basıyorum gönderdiğim ekran alıntısı çıkıyor.

bu seferde bu uyarıyı alıyorum

 

[Orion1]

bu seferde bu uyarıyı alıyorum

Tamam a basın.

 

[tezcandanaci]

Tamam a basın.

tamam deyip dosyayı kapattığımda yeniden açıyorum eklediğim kod görünmüyor kaydetmiyor sanırım

 

[Orion1]

Aklıma başka bir şey gelmiyor.

 

[Orion1]

Necdet Beyde bir baksın.Belki onun söyleyeceği bir şey vardır.

 

[tezcandanaci]

Aklıma başka bir şey gelmiyor.[/QUOTE

bir örnek taslak ekledim bu kodu buna işleyip kod çalıır durumda tekrar geri yükleyebilirmisiniz mümkünse

 

[tezcandanaci]

Aklıma başka bir şey gelmiyor.[/QUOTE

bir örnek taslak ekledim bu kodu buna işleyip kod çalıır durumda tekrar geri yükleyebilirmisiniz mümkünse

çok minnettar kalırım

 

[Orion1]

Necdet beyin kodlarını olduğu gibi ekledim.
Dosyanız ektedir.

 

[vardar07]

Resimdeki yolu takip ettinizmi .
Farklı kaydet dedikten sonra:

 

[tezcandanaci]

Necdet beyin kodlarını olduğu gibi ekledim.
Dosyanız ektedir.

hocam adamın dibinin kod yazanındansın çok teşekkür ederim süper oldu

 

[Orion1]

hocam adamın dibinin kod yazanındansın çok teşekkür ederim süper oldu

Kodları ben yazmadım.Sadece Necdet beyin kodlarınız olduğu gibi ekledim.