Arşiv Listesi oluşturma.

[phaeton]

Merhaba,
Çalıştığım iş yerinde, işi biten dosyaları şirketin arşivine kaldırıyoruz. Her ay yaklaşık 1000 adet dosya arşivlenmektedir. Bu dosyaların arşiv listesini ekteki örnek tabloda tutuyoruz. Her dosya serisini 100 lük gruplara ayırdım ve o gruba ait dosyaları her defasında yön tuşarı veya maus ile kursörü götürüyorum. Sonuç olarak; örneğin A1 hücresine dosya numarasını girdiğim zaman, her numarayı başka bir çalışma sayfası yada başka bir sütunda sıralanmasını istiyorum. Çok şey mi istedim bilmiyorum ama olabileceğini düşünüyorum. Yardımcı olabilirseniz sevinirim.

 

[Ömer]

Merhaba,

Sorunuz net değil. Benim anladığım;

Örnek olarak boş bir sayfanın A1 hücresine her girilen değeri farklı bir sayfada, örneğin sayfa2 ye alt alta sıralanması.

İstediğiniz bu mu? Bu değilse sorunuzu daha detaylı açıklarmısınız.

 

[phaeton]

Merhaba,

Sorunuz net değil. Benim anladığım;

Örnek olarak boş bir sayfanın A1 hücresine her girilen değeri farklı bir sayfada, örneğin sayfa2 ye alt alta sıralanması.

İstediğiniz bu mu? Bu değilse sorunuzu daha detaylı açıklarmısınız.

Evet istediğim tamamen dediğiniz gibidir.

 

[Ömer]

Evet istediğim tamamen dediğiniz gibidir.

A1 hücresine veri gireceğiniz çalışma sayfasının kod bölümüne kopyalayın.

A1 hücresine girdiğiniz veriler Sayfa2 A sütununa aktarılır.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim S2 As Worksheet, son As Long
    
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
 
    Set S2 = Sheets("Sayfa2")
    son = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    S2.Cells(son, "A") = Target.Value
    
End Sub

.

 

[phaeton]

Oldu, çok teşekkürler.

 

[Ömer]

Kodu uygulayıp hata aldığınız dosyayı eklermisiniz.

 

[ofis34]

bende böyle bir çalışmayı merak ediyorum

 

[phaeton]

Kodu uygulayıp hata aldığınız dosyayı eklermisiniz.

Bu konuda bir problem yok. 1. Sayfanın A1 sütununa yazdığım tüm rakamları 2. sayfadaki a sütununa sıralıyor. Yalnız makroyu şu şekilde geliştirmemiz mümkün mü? 1. Çalışma sayfanın a1 sütununa girdiğim değerleri 1den 500 e kadar 2. sayfanın A sütununa sıralasın, 501 den 1000 e kadar olan sayıları ise b sütununa sıralasın ve bu olay 500 er sayılık aralıklarla c,d,e sütunlarına sırlansın istiyorum. Olabilir mi?