Sayfalar Arası Veri Aktarma

Katılım
15 Aralık 2017
Mesajlar
3
Excel Vers. ve Dili
2016 Türkçe
Merhabalar,
Sayfa 1 de A1(Adı Soyadı) F1(Bölüm) Sütunları mevcuttur.
Sayfa2 ye Bölüm ismini vererek (Örneğin "Montaj") Sayfa 1 de yer alan personellerin, A1(Sıra No) B1(Adı Soyadı) A2 Sıra numarasını Personel kadar otomatik yazması 1-2-3 gibi b2 ye Adı Soyadını nasıl getirebilirim?
Mümkün değil ise, Sayfa 2de A1 "Montaj" koşulu ile sayfa 1 de yer alan montaj bölümü personelin adı soyadını nasıl aktarabilirim.
İlginiz için şimdiden teşekkürler...
 

cems

Altın Üye
Katılım
2 Eylül 2005
Mesajlar
2,494
Excel Vers. ve Dili
office 2010 tr 32bit
Altın Üyelik Bitiş Tarihi
13-06-2029
Öncelikle foruma hoş geldiniz :)
Altın ğye olana kadar iki sayfada bir kaç satır olan bir örneği www.filebig.net gibi bir dış servera yükleyip indirme linkini sorunuzda paylaşınız ki öyle demedim olmasın. Üçüncü sayfaya da ne görmek istediğinizi elle yazın.

Ayrıca bu başlığı inceleyiniz

b

Ayrıca soru başlığını aratınca şunlar geliyor.
 

cems

Altın Üye
Katılım
2 Eylül 2005
Mesajlar
2,494
Excel Vers. ve Dili
office 2010 tr 32bit
Altın Üyelik Bitiş Tarihi
13-06-2029
Fihrist sayfasında sağdaki tuşa tıklayınız , diğer biçimlendirmeleri kendiniz yapabilirsiniz


Tuş altındaki kodlar:
Kod:
Private Sub CommandButton1_Click()
For syf = 1 To Sheets.Count
son = 2
For i = 2 To Sheets("fihrist").Range("B65536").End(3).Row
  If Sheets("fihrist").Cells(i, "B").Text = Sheets(syf).Name Then
      Sheets(syf).Cells(son, "b").Value = Sheets("fihrist").Cells(i, "a").Text
      Sheets(syf).Cells(son, "c").Value = Sheets("fihrist").Cells(i, "b").Text
      Sheets(syf).Cells(son, "d").Value = Sheets("fihrist").Cells(i, "c").Text

  son = son + 1
  End If
Next

Next
MsgBox "MOBİLYA SAYFASINA AKTARMA  TAMAM...", vbInformation, "cems"
Sheets("mobilya").Select
ThisWorkbook.Save
End Sub
 

Endless033

Altın Üye
Katılım
25 Haziran 2013
Mesajlar
140
Excel Vers. ve Dili
türkçe
Altın Üyelik Bitiş Tarihi
07-09-2025
KARDEŞ SAYFADAKİ İŞLEM DETAY ALTINDA TURKCEL AYNI ŞEKİLDE YAPABİLİRMİSİN KODU UYGULADIM OLMUYOR..
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
KARDEŞ SAYFADAKİ İŞLEM DETAY ALTINDA TURKCEL AYNI ŞEKİLDE YAPABİLİRMİSİN KODU UYGULADIM OLMUYOR..
Bu konu bir ya da daha fazla sayfadaki bilgilerin başka bir sayfaya aktarılmasıyla ilgili. Paylaştığınız dosyada ise sadece bir sayfa var. Bu sayfayla ilgili ne yapılmasını istiyorsunuz? Veriler nereye aktarılacak?
 

hadromer

Altın Üye
Katılım
23 Ekim 2015
Mesajlar
402
Excel Vers. ve Dili
LTSC Professional Plus 2021 64 Bit Türkçe
Altın Üyelik Bitiş Tarihi
26-04-2028
Bu konu bir ya da daha fazla sayfadaki bilgilerin başka bir sayfaya aktarılmasıyla ilgili. Paylaştığınız dosyada ise sadece bir sayfa var. Bu sayfayla ilgili ne yapılmasını istiyorsunuz? Veriler nereye aktarılacak?
Yusuf Hocam benimde benzer bir problemim var, çok özür dileyerek konu linkini bırakmak istiyorum buraya. Biraz vaktim daraldı, kalan sürede manuel olarak yaparsam yetişmeyecek gibi. Konuyu açan arkadaştan da özür diliyorum.
 

Endless033

Altın Üye
Katılım
25 Haziran 2013
Mesajlar
140
Excel Vers. ve Dili
türkçe
Altın Üyelik Bitiş Tarihi
07-09-2025
tekrardan ekledim mizan sayfasındaki işlem detayı altında turkcel yada evea sayfaları ayrı ayrı örnek veriyorum aynı taplo ne kadar turkcel varsa diğer sayfaya alt alta sıralanmaısnı istiyorum aveada sayfasındaki aynı olacak şekilde mizan sayfaısnda kayıt yapılan aktrıldı diye sutunun birine yazsın devamlı aktarılmasını istiyorum
 

Ekli dosyalar

Üst