Excel Forum
 
 

Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk

DUYURU SİSTEMİ

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama



Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 17-05-2012, 13:44   #1
phaeton
 
Giriş: 28/09/2009
Şehir: İstanbul
Mesaj: 7
Excel Vers. ve Dili:
2007 / İngilizce
Exclamation Arşiv Listesi oluşturma.

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.
Eklenmiş Dosyalar
Dosya Türü: xlsx ARŞİV (RÜCU).xlsx (23.3 KB, 57 Görüntülenme)
phaeton Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-05-2012, 20:46   #2
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Mesaj: 17,345
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

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.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-05-2012, 12:45   #3
phaeton
 
Giriş: 28/09/2009
Şehir: İstanbul
Mesaj: 7
Excel Vers. ve Dili:
2007 / İngilizce
Varsayılan

Alıntı:
Ömer tarafından gönderildi Mesajı Görüntüle
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.
phaeton Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-05-2012, 22:48   #4
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Mesaj: 17,345
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Alıntı:
phaeton tarafından gönderildi Mesajı Görüntüle
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.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 
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
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-05-2012, 09:45   #5
phaeton
 
Giriş: 28/09/2009
Şehir: İstanbul
Mesaj: 7
Excel Vers. ve Dili:
2007 / İngilizce
Varsayılan

Oldu, çok teşekkürler.

Bu mesaj en son " 22-05-2012 " tarihinde saat 10:10 itibariyle phaeton tarafından düzenlenmiştir....
phaeton Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-05-2012, 10:03   #6
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Mesaj: 17,345
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Kodu uygulayıp hata aldığınız dosyayı eklermisiniz.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-05-2012, 15:50   #7
ofis34
 
Giriş: 31/05/2010
Şehir: istanbul
Mesaj: 60
Excel Vers. ve Dili:
türkçe
Varsayılan

bende böyle bir çalışmayı merak ediyorum
ofis34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-06-2012, 09:27   #8
phaeton
 
Giriş: 28/09/2009
Şehir: İstanbul
Mesaj: 7
Excel Vers. ve Dili:
2007 / İngilizce
Lightbulb

Alıntı:
Ömer tarafından gönderildi Mesajı Görüntüle
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?

Bu mesaj en son " 08-06-2012 " tarihinde saat 10:28 itibariyle phaeton tarafından düzenlenmiştir....
phaeton Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 04:52


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.


Bahis Forum - Termal Kemer - Define - Samsung Fernseher - Wheat Flour Gönen Tarım Fuarı Çorlu Telefon Santralı - Ergene Kamera - Çorlu Su Arıtma - Kaplin - Redüktör - Teknik Borulama, Tesisat, Tank ve Baca - Bulvar Palas - Plastik Yüzey Boyama - İzmit Sigorta - Çorlu Kompresör - Çorlu İnşaat - Ambalaj
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden