Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 03-05-2009, 13:08   #1
kurmayy
 
Giriş: 04/02/2006
Şehir: İstanbul
Mesaj: 66
Excel Vers. ve Dili:
Excel 2010 İngilizce
Varsayılan Verileri Otomatik Arşivleme

Merhabalar....

Benim sorunum kısaca şöyle.12 sheet'ten oluşan bir excel dosyam var bu sayfalar her gün yeni veriler ekleniyor alt,alta eklenerek devam ediyor..Bu excel dosyasına arşiv diye bir sheet daha ekledim.Her gün 1.sayfadan başlayarak 12.sayfaya kadar tüm verileri sırayla buraya arşivlemesini istiyorum...

Yardımlarınız için şimdiden teşekkürlerimi sunuyorum..
Eklenmiş Dosyalar
Dosya Türü: zip deneme.zip (3.3 KB, 19 Görüntülenme)
__________________
Excel 2003 İngilizce
kurmayy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-05-2009, 13:27   #2
Necdet Yeşertener
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 12,019
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Merhaba,

Dosyayı inceleyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 
Sub Birlestir()
Dim sa As Worksheet
Dim s1 As Worksheet
Dim i As Integer
Dim SonKayit As Long
Dim SonK As Long
Set sa = Sheets("arşiv")
Application.ScreenUpdating = False
SonK = sa.[A65536].End(3).Row
Range("A2:I" & SonK).ClearContents
For i = 2 To Sheets.Count
    Set s1 = Sheets(i)
    SonKayit = s1.[A65536].End(3).Row
    SonK = sa.[A65536].End(3).Row + 1
    s1.Range("A2:I" & SonKayit).Copy sa.Cells(SonK, "A")
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Tüm Sayfalar Aktarılmıştır...:"
End Sub
Eklenmiş Dosyalar
Dosya Türü: zip deneme_Arsiv.zip (17.2 KB, 34 Görüntülenme)
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Yeşertener Ç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 19:01


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden