Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 12-10-2017, 10:32   #1
ForeveReal
Altın Üye
 
Giriş: 14/09/2017
Şehir: Ankara
Mesaj: 34
Excel Vers. ve Dili:
2013 VBA
Varsayılan Seçilin alanları başka excel aktarma

Merhaba Arkadaşlar,

Herkese kolay gelsin.

A2 den H20 kadar kişi listem var. Yapmak istediğim bu alana bir buton oluşturup, basılması durumunda ilgili satırları yeni bir excel sayfasına dökmesini istiyorum.

Teşekkür ederim.
ForeveReal Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-10-2017, 10:39   #2
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,037
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Merhaba,
Aşağıdaki kodu deneyiniz (sayfa isimlerini kendinize göre düzenleyiniz).
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub sayfaya_kopyala()
Sayfa1.Range("A2:H20").Copy Sayfa2
End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-10-2017, 10:48   #3
ForeveReal
Altın Üye
 
Giriş: 14/09/2017
Şehir: Ankara
Mesaj: 34
Excel Vers. ve Dili:
2013 VBA
Varsayılan

Alıntı:
antonio tarafından gönderildi Mesajı Görüntüle
Merhaba,
Aşağıdaki kodu deneyiniz (sayfa isimlerini kendinize göre düzenleyiniz).
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub sayfaya_kopyala()
Sayfa1.Range("A2:H20").Worksheets.Add
End Sub
Peki hocam yeni bir excel sayfası açmak için aşağıdaki gibi girmek mümkün müdür

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub sayfaya_kopyala()
Sayfa1.Range("A2:H20").Worksheets.Add
End Sub
[/quote]
ForeveReal Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-10-2017, 11:30   #4
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,037
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Alıntı:
ForeveReal tarafından gönderildi Mesajı Görüntüle
Peki hocam yeni bir excel sayfası açmak için aşağıdaki gibi girmek mümkün müdür
Sayfa kopyalama olaylarında en kısa ve kestirme şekilde kod yazılmasında hiç bir sakınca yoktur. Ancak, sayfadaki belli hücreleri kopyalayıp diğer sayfaya yapıştırma konusunda adım adım ve çok ayrıntılı kod yazılması daha avantajlıdır. Herzaman hızlı hareket etmeyi seven Excel, bu kez adım adım hareket etmeyi sever. Aksi halde hata verir.
Senaryo: Sayfa1 isimli bir sayfamız vardır. A2:H20 arasındaki hücreler kopyalancak, yeni bir sayfa oluşturulacak, bu sayfaya da "Sayfa2" ismi verilecek. Yeni oluşturulan sayfanın ("Sayfa2") aynı hücre aralığına yapıştırılacak.
Tavsiye edeceğim kodlar:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub yeni_sayfaya_kopyala()
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Sayfa2"
    Sheets("Sayfa1").Activate
    ActiveSheet.Range("A2:H19").Select
    Selection.Copy
    
    Sheets("Sayfa2").Activate
    ActiveSheet.Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Sayfa2").Range("A2").Select
End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-10-2017, 11:49   #5
ForeveReal
Altın Üye
 
Giriş: 14/09/2017
Şehir: Ankara
Mesaj: 34
Excel Vers. ve Dili:
2013 VBA
Varsayılan

Alıntı:
antonio tarafından gönderildi Mesajı Görüntüle
Sayfa kopyalama olaylarında en kısa ve kestirme şekilde kod yazılmasında hiç bir sakınca yoktur. Ancak, sayfadaki belli hücreleri kopyalayıp diğer sayfaya yapıştırma konusunda adım adım ve çok ayrıntılı kod yazılması daha avantajlıdır. Herzaman hızlı hareket etmeyi seven Excel, bu kez adım adım hareket etmeyi sever. Aksi halde hata verir.
Senaryo: Sayfa1 isimli bir sayfamız vardır. A2:H20 arasındaki hücreler kopyalancak, yeni bir sayfa oluşturulacak, bu sayfaya da "Sayfa2" ismi verilecek. Yeni oluşturulan sayfanın ("Sayfa2") aynı hücre aralığına yapıştırılacak.
Tavsiye edeceğim kodlar:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub yeni_sayfaya_kopyala()
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Sayfa2"
    Sheets("Sayfa1").Activate
    ActiveSheet.Range("A2:H19").Select
    Selection.Copy
    
    Sheets("Sayfa2").Activate
    ActiveSheet.Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Sayfa2").Range("A2").Select
End Sub
Hocam sizin hakkınızı biz nasıl ödeyeceğiz acaba

Çok teşekkür ederim.
ForeveReal Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-10-2017, 12:55   #6
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,037
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Rica ederim. Hakkımız varsa helal hoş olsun.
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Ç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 06:02


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- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden