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 16-01-2014, 10:30   #1
ilhanbatu
 
Giriş: 08/01/2009
Şehir: izmir
Mesaj: 79
Excel Vers. ve Dili:
Excel 2003 Türkçe alicetinkaya1@gmail.com
Varsayılan Sayfalar arası aktarma.

Arkadaşlar,
Sizlerin bir desteğine ihtiyacım olacak.
Excel'de hücrelere yazdığım bilgileri kayıt butonuna bastığım da shett 2'de başka hücreye aktarmak istiyorum ancan beceremedim bu konuda yardımcı olabilirseniz sevinirim
Konu ile ilgili örneği içeren excel dosyasını yükleyemedim yükleyebilsem daha açıklayıcı olacaktı.
ilhanbatu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-01-2014, 10:40   #2
systran
Destek Ekibi
 
Giriş: 15/12/2007
Mesaj: 1,383
Excel Vers. ve Dili:
2007 [TR]
Varsayılan

Sayfa1, A1:B2 aralığını, Sayfa2 A2 den başlayıp kopyalar.
kodu Command buton içine yaz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sayfa1.Range("A1:B2").Copy Destination:=Sayfa2.Range("A2")
systran Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-01-2014, 10:54   #3
ilhanbatu
 
Giriş: 08/01/2009
Şehir: izmir
Mesaj: 79
Excel Vers. ve Dili:
Excel 2003 Türkçe alicetinkaya1@gmail.com
Varsayılan

Teşekkürler
şimdi a1'i ayrı b1'i ayrı kopyalayıp sayfa ikide b3'e ve c3'e kopyalamak istiyorum
ilhanbatu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-01-2014, 11:01   #4
asi_kral
Özel Üye
 
asi_kral kullanıcısının avatarı
 
Giriş: 22/02/2012
Şehir: İstanbul /
Mesaj: 2,761
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Alıntı:
ilhanbatu tarafından gönderildi Mesajı Görüntüle
Teşekkürler
şimdi a1'i ayrı b1'i ayrı kopyalayıp sayfa ikide b3'e ve c3'e kopyalamak istiyorum
Merhaba
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub aktar()
Sayfa2.Range("B3") = Sayfa1.Range("A1")
Sayfa2.Range("C3") = Sayfa1.Range("B1")
End Sub
__________________
Dosyalarınızı UPLOAD sitelerine yükleyip link ile ekleyebilirsiniz.
asi_kral Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-01-2014, 11:05   #5
ilhanbatu
 
Giriş: 08/01/2009
Şehir: izmir
Mesaj: 79
Excel Vers. ve Dili:
Excel 2003 Türkçe alicetinkaya1@gmail.com
Varsayılan

Teşekkür ederim, şimdi daha iyi oldu.
Emeğinize sağlık.
ilhanbatu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-01-2014, 11:53   #6
asi_kral
Özel Üye
 
asi_kral kullanıcısının avatarı
 
Giriş: 22/02/2012
Şehir: İstanbul /
Mesaj: 2,761
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Alıntı:
ilhanbatu tarafından gönderildi Mesajı Görüntüle
Teşekkür ederim, şimdi daha iyi oldu.
Emeğinize sağlık.
Kolay Gelsin
__________________
Dosyalarınızı UPLOAD sitelerine yükleyip link ile ekleyebilirsiniz.
asi_kral Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-01-2014, 13:14   #7
ilhanbatu
 
Giriş: 08/01/2009
Şehir: izmir
Mesaj: 79
Excel Vers. ve Dili:
Excel 2003 Türkçe alicetinkaya1@gmail.com
Varsayılan

tekrar merhabalar,

bu işlemi yaptıktan sonar her satıra bilgi geldikten enter'a bastığımda atamayı yapabilme şansımız varmıdır ?
ilhanbatu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-01-2014, 13:23   #8
systran
Destek Ekibi
 
Giriş: 15/12/2007
Mesaj: 1,383
Excel Vers. ve Dili:
2007 [TR]
Varsayılan

kodu Sayfa1 worksheet_selectionchange() olayına yazarsan her işlemden sonra otomatik ekler. sadece sayfa1 deki a1 ve b1 deki değişimleri kontrol eder ve sayfa2 ye aktarır.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1", "A2")) Is Nothing Then Exit Sub
Sayfa2.Range("B2") = Sayfa1.Range("A1")
Sayfa2.Range("B3") = Sayfa1.Range("A2")

End Sub

Bu mesaj en son " 16-01-2014 " tarihinde saat 13:40 itibariyle systran tarafından düzenlenmiştir....
systran Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-01-2014, 13:30   #9
ilhanbatu
 
Giriş: 08/01/2009
Şehir: izmir
Mesaj: 79
Excel Vers. ve Dili:
Excel 2003 Türkçe alicetinkaya1@gmail.com
Varsayılan

teşekkürler,
a1 yazdıktan sonra enter yapacağım sayfa 2 de b2ye yazacak
a2'ye yazacağım enter diyince sayfa 2 de b3'e yazacak.onu yapamadım bu kod ile.
ilhanbatu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-01-2014, 13:41   #10
systran
Destek Ekibi
 
Giriş: 15/12/2007
Mesaj: 1,383
Excel Vers. ve Dili:
2007 [TR]
Varsayılan

#8 nolu mesaja tekrar bak.
DİKKAT:
aslında son istediğin şeyi referans yöntemiyle daha rahat yaparsın
-Sayfa2, b2 de = işareti yaz,
-fareyle sayfa1 e geç, A1 i seç ENTER bas.
aynı mantığı istediğin diğer hücre bağlantıları içinde yapabilirsin.
systran Ç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 11:40


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 - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu 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- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden