Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


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

DUYURU SİSTEMİ / REKLAM PANOSU

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 02-07-2013, 22:55   #1
slayshot
 
Giriş: 25/05/2013
Şehir: İSTANBUL
Mesaj: 2
Excel Vers. ve Dili:
2010 türkçe
Varsayılan Makro ile tüm satırı diğer sayfalara kopyalama sorunu.

Merhaba arkadaşlar;

Sorunu excel şablonu içerisinde anlattım fakat buradan da ön bilgi olarak paylaşayım. Forumdaki paylaşımlarınızdan faydalanarak bir makro oluşturdum kendime fakat tam olarak istediğim gibi çalışmıyor. YILDIRIM3 yazan yeri YILDIRIM3 isimli sayfaya kopyalamasına kadar güzelce yaptım fakat ana sayfada mesala 9. satıra YILDIRIM3 yazdığım zaman YILDIRIM3 sayfasındaki 9. satıra kopyalıyor yine. Benim isteğim ise her sayfada alt alta sıralasın olduğu satıra kopyalamasın direk. Konu hakkındaki yardımlarınızı bekler iyi çalışmalar dilerim..
Eklenmiş Dosyalar
Dosya Türü: xlsm YILDIRIM DENEME1.xlsm (361.4 KB, 26 Görüntülenme)
slayshot Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-07-2013, 23:04   #2
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,612
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

sheets(2) için yaptım.sizde diğerlerini yapınız.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
If Target = "YILDIRIM1" Then
sat = Sheets(2).Cells(Rows.Count, "B").End(xlUp).Row + 1
Rows(Target.Row).Copy
Sheets(2).Range("a" & sat).PasteSpecial
End If
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 02-07-2013, 23:34   #3
slayshot
 
Giriş: 25/05/2013
Şehir: İSTANBUL
Mesaj: 2
Excel Vers. ve Dili:
2010 türkçe
Varsayılan

Alıntı:
Orion1 tarafından gönderildi Mesajı Görüntüle
sheets(2) için yaptım.sizde diğerlerini yapınız.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
If Target = "YILDIRIM1" Then
sat = Sheets(2).Cells(Rows.Count, "B").End(xlUp).Row + 1
Rows(Target.Row).Copy
Sheets(2).Range("a" & sat).PasteSpecial
End If
Çok teşekkür ederim bu kadar kısa sürede cevap alabileceğimi düşünmemiştim. Yardımınız sayesinde şablonu oluşturdum. Çok çok teşekkürler yeniden. İyi forumlar..
slayshot Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-07-2013, 23:40   #4
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,612
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
slayshot tarafından gönderildi Mesajı Görüntüle
Çok teşekkür ederim bu kadar kısa sürede cevap alabileceğimi düşünmemiştim. Yardımınız sayesinde şablonu oluşturdum. Çok çok teşekkürler yeniden. İyi forumlar..
Kolay gelsin.
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 01-11-2013, 18:21   #5
bunyamin07
 
Giriş: 17/11/2011
Şehir: mersin
Mesaj: 31
Excel Vers. ve Dili:
2003 ve 2007
Varsayılan

Bu formülde kopyala yaparken öndeki sıra no da gidiyor. Ayrıca kopyala yapıştır yerine kes yapıştır yapmak mümkün mü?
bunyamin07 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-11-2013, 19:50   #6
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,612
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
bunyamin07 tarafından gönderildi Mesajı Görüntüle
Bu formülde kopyala yaparken öndeki sıra no da gidiyor. Ayrıca kopyala yapıştır yerine kes yapıştır yapmak mümkün mü?
Deneyiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
If Target = "YILDIRIM1" Then
sat = Sheets(2).Cells(Rows.Count, "B").End(xlUp).Row + 1
Rows(Target.Row).Cut
sheets(2).select
range("a",sat).select
activesheet.paste
End If
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 01-11-2013, 20:02   #7
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,612
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

aşağıdakiş ki kodu deneyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
sat = Sheets(2).Cells(Rows.Count, "B").End(xlUp).Row + 1
Rows(Target.Row).Copy
Sheets(2).Range("a" & sat).PasteSpecial
Rows(Target.Row).Delete
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 01-11-2013, 21:06   #8
bunyamin07
 
Giriş: 17/11/2011
Şehir: mersin
Mesaj: 31
Excel Vers. ve Dili:
2003 ve 2007
Varsayılan

Çok teşekkür ederim ama Hata 13 falan verdi.. Alttaki kodda ayrıca ilk sıra numarasını halen alıyor..
bunyamin07 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-11-2013, 21:29   #9
bunyamin07
 
Giriş: 17/11/2011
Şehir: mersin
Mesaj: 31
Excel Vers. ve Dili:
2003 ve 2007
Varsayılan

Ayrıca şöyle bir soru sorabilirmiyim..

A stununda nereyi tıklarsam (a1;a65554)arası.. TIKLANAN SÜTUNDA 5 HÜCREDEN ALDIĞIM BİLGİYİ a1,B1,C1,D1,E1 HÜCRELERİNDEN ALACAK

BİR BAŞKA SAYFAYA: A1 DEN ALINANI B1,
B1 DEN ALINANI BAŞKA BİR SÜTUNA ŞEKLİNDE
bunyamin07 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-11-2013, 21:41   #10
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,612
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Örnek dosya yollarmısınız?
Ayrıca üzerindede açıklama yaparsanız iyi olur.
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimiçi   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 22:20


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- 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- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden