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 22-12-2017, 18:23   #1
stmbox
 
Giriş: 11/09/2014
Şehir: K.K.T.C
Mesaj: 53
Excel Vers. ve Dili:
2007 türkçe
Varsayılan sayfalar arası veri aktarımı yardımı

arkadaşlar ekte verdiğim dosyada şunu yapmak istiyorum
sayfa 1 deki tarih yerine(E1 hüçresi)tarih yazdığımzaman sayfa 2 nin A11 e yazmasını istiyorum yalnız ertesi gün tarihi deyiştiğim zaman sayfa ikinin A12 si olarak bir altına yazmasını istiyorum tarih deyiştik sonra alta yazmasını istiyorum birde sayfa1 D3 e yazacağım sayfa 2 nin C11 yazılmasını istiyorum yalnız sayfa1
D3 yazılanlar hergün deyişeceğinden sayfa2 nin C11 altına yazılmasını istiyorum

böyle bişey olabilirmi tüm forum arkadaşlarıma şimdiden teşekkürler
http://s7.dosya.tc/server/2e73t5/GOR...IM_1.xlsx.html
stmbox Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-12-2017, 20:04   #2
TanerSaydam
Altın Üye
 
Giriş: 13/10/2017
Şehir: Kayseri
Mesaj: 175
Excel Vers. ve Dili:
2003-tr
Varsayılan

E1 hücresindeki tarihi her değiştirdiğinde, Sayfa2'deki A'nın son boş satırına yazar.
D hücresini her değiştirdiğinde Sayfa2'deki C'nin son boş satırına yazar.
WorkSheet_Change özelliği ile herhangi bir tuşa basmana gerek yok. Sen her değişiklik yaptığında otomatik ayarlar.

Dosyan:
https://www.dosyaupload.com/5agj


KODLAR:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub WorkSheet_Change(ByVal Target As Range)
Dim ilk As Integer, son As Integer
Dim ilk2 As Integer, son2 As Integer, son3 As Integer
Dim yer As Integer, a As Date

ilk = 3
İlk2 = 11
son = Sayfa2.Range("A" & Rows.Count).End(xlUp).Row
son2 = Sayfa2.Range("C" & Rows.Count).End(xlUp).Row
son3 = Sayfa1.Range("D" & Rows.Count).End(xlUp).Row
a = Range("E1").Value

If Sayfa2.Range("A" & son).Value = a Then GoTo atla
Sayfa2.Range("A" & son + 1).Value = a

atla:
If Sayfa2.Range("C" & son2).Value = Range("D" & son3).Value Then
Exit Sub
ElseIf Range("D" & son3).Value = "Bölge" Then GoTo atla2
Else
Sayfa2.Range("C" & son2 + 1).Value = Sayfa1.Range("D" & son3).Value
atla2:
End If
End Sub
TanerSaydam Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-12-2017, 14:24   #3
stmbox
 
Giriş: 11/09/2014
Şehir: K.K.T.C
Mesaj: 53
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

hocam dosyada kodlar yazılı mı
stmbox Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-12-2017, 15:16   #4
stmbox
 
Giriş: 11/09/2014
Şehir: K.K.T.C
Mesaj: 53
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

hocam teşekkür ederim çalışıyor ellerine sağlık peki söyle bişey yapılabilinir mi
sayfa 2 den örneğin 30 sayfa var ve sayfa birde tarihi her yazdığımda gerideki 30 sayfanında aynı yerlerine yazsın ve her tarih deyiştiğimde 30 sayfanında altına yazsın yalnız sayfa1 de D3 yazdığım
sayfa 2nin C11 ne sayfa 1 in D4 sayfa üçün C11 bu sıra sayfa 30 za kadar devam etsin yalnız ertesi gün tarihi deyiştiğimde sayfa birde D3-D4-D5-D30 kadar deyiştiğim zaman diyer sayfaların C 12 kisine yazsın
yardımlarınız için teşekkür ederim
stmbox Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-12-2017, 15:30   #5
TanerSaydam
Altın Üye
 
Giriş: 13/10/2017
Şehir: Kayseri
Mesaj: 175
Excel Vers. ve Dili:
2003-tr
Varsayılan

Yazdığınız biraz karışık geldi ama şöyle toparlayalım. Şimdi örn 30 sayfa dediğiniz sabit bir rakam mı yoksa sayfa sayısı artıp azalabiliyor mu? Birde C - D mevzunu anlamadım. Biraz daha sade ve tam olarak ne yapmak istediğinizi anlatabilirseniz.

NOT: Buraya eklediğim kodlar, diğer arkadaşlar görsün diye. Yoksa sayfada kod var zaten.
TanerSaydam Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-12-2017, 16:40   #6
stmbox
 
Giriş: 11/09/2014
Şehir: K.K.T.C
Mesaj: 53
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

hocam dosyamız yukarda formül girdiğniz exel dosyası toplam sayfa 31 sayfa 1 de tarih deyişince(E1 HÜCRESİ)
sayfa 2 den sayfa 31 kadar A11 hücrelerine yazsın ertesi gün tarihi deyişince gerike kalan sayfaların bir alt hücreye yani (A12 yazsın bu hep böyle devam etsin
yalnız sayfa1 D3 sayfa 2 C11 gitsin sayfa1 D4 sayfa3 C11 gitsin sayfa1 D5 sayfa4 C11 bu sırada böyle olacak sayfa 1 D43 sayfa31 C 11 bitecek
ertesi gün tarihi deyişince yine bu hücrelerdekilerini deyisince sayfa 2 den sayfa 31 kadar C 12 yazsın hergün bu böyle devam etsin
dosya ekte hocam teşekkürler
http://s7.dosya.tc/server/0q6wl1/GOR...LIM_1.xls.html
stmbox Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-12-2017, 12:03   #7
stmbox
 
Giriş: 11/09/2014
Şehir: K.K.T.C
Mesaj: 53
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

arkadaşlar yardım lütfen
stmbox Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-12-2017, 19:20   #8
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,116
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Merhaba,
Örnek dosyanız ektedir.
NOT: Sayfa2 de bir alt satırın doğru şekilde bulunması için, sebepsiz yere 42. satıra (özellikle A sütunu ve C sütunu) notlar düşmeyiniz.
Eklenmiş Dosyalar
Dosya Türü: xlsm GOREV_DAGILIM_antonio.xlsm (28.9 KB, 5 Görüntülenme)
__________________
Ö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 26-12-2017, 19:57   #9
stmbox
 
Giriş: 11/09/2014
Şehir: K.K.T.C
Mesaj: 53
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

hocam farklı yere yükleme şansınız var mı altın üyeliğim yok
stmbox Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-12-2017, 20:07   #10
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,116
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Haklısınız. Dosyanızı tekrar gönderiyorum
http://s7.dosya.tc/server/0qvjh1/GOR...tonio.rar.html
__________________
Ö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 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 - 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- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden