• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Sayfalar arasi veri akisi

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

enesCode

Yeni Üye
Katılım
14 Şub 2024
Mesajlar
10
En iyi yanıt
0
Puanları
1
Yaş
26
Konum
Ankara
Ad Soyad
Enes
Office Vers.
365
Herkese merhaba,

Elimde bir Excel dosyası bulunmakta ve içerisine 10-15 adet sayfa ekliyorum. Örneğin, 10 sayfa olsun; bu sayfaların sonuncusu tüm verileri içerecek, geri kalan 9 sayfa ise sınıfları temsil edecek. Yani, 10 sayfadaki başlıklar aynı olacak: isim, soyisim, TC, sınıf, vb. Örnek olarak, 1. sayfaya veri eklediğimde ve sınıfı "3a" ise, bu veri son sayfada tutulacak. Ancak, 2. sayfaya da veri eklediğimde araya baglanti yapamiyorum ve son sayfaya kaydedemiyorum.

Bu işlemi tek sayfa için başarılı bir şekilde gerçekleştirebiliyorum ancak çoklu sayfalarda sorun yaşıyorum. Yani, 2. sayfaya veri eklediğimde ve son sayfaya gitmesini istediğimde bir hata alıyorum. Bu sorunu nasıl çözebilirim? Altta gönderdiğim Excel dosyasında, ilk sayfaya eklediğim veri son sayfaya gidiyor, ancak bir sayfa daha ekleyip oraya veri eklediğimde sorun yaşıyorum. Umarım sorunumu anlatabilmişimdir.
 

Ekli dosyalar

  • test123.xlsx
    12.9 KB · Görüntüleme: 5

karakan

Yeni Üye
Katılım
14 Şub 2024
Mesajlar
13
En iyi yanıt
0
Puanları
3
Yaş
48
Konum
ankara
Ad Soyad
Yasin Kara
Office Vers.
2016
Ekte son sayfayı göremedim
 

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
454
En iyi yanıt
29
Puanları
43
Konum
Excel 2003
Ad Soyad
Mustafa UYGUN
Office Vers.
Office 2003
Merhaba;
Eki deneyin.
İyi çalışmalar.

Not : Dosyada veri alınacak sayfalar ve data sayfası dışında sayfa olmaması gerekiyor. Ayrıca data sayfasının adını değiştirmeyin.
 

Ekli dosyalar

  • enesCode-test123.zip
    15.1 KB · Görüntüleme: 6

enesCode

Yeni Üye
Katılım
14 Şub 2024
Mesajlar
10
En iyi yanıt
0
Puanları
1
Yaş
26
Konum
Ankara
Ad Soyad
Enes
Office Vers.
365
Merhaba;
Eki deneyin.
İyi çalışmalar.

Not : Dosyada veri alınacak sayfalar ve data sayfası dışında sayfa olmaması gerekiyor. Ayrıca data sayfasının adını değiştirmeyin.
hocam bu sekılde calıstı tesekkurler, peki daha fazla sayfa ekleme yaparsam alta ne yapmam gerek?
 

karakan

Yeni Üye
Katılım
14 Şub 2024
Mesajlar
13
En iyi yanıt
0
Puanları
3
Yaş
48
Konum
ankara
Ad Soyad
Yasin Kara
Office Vers.
2016
İki sayfa için makrosuz çözüm ektedir. Ancak ben yaptığım bir dosyada 6 sayfadan sonra bunaldım.
 

Ekli dosyalar

  • enesCode-test123.xls
    98.5 KB · Görüntüleme: 4

enesCode

Yeni Üye
Katılım
14 Şub 2024
Mesajlar
10
En iyi yanıt
0
Puanları
1
Yaş
26
Konum
Ankara
Ad Soyad
Enes
Office Vers.
365
Kullandığım versiyon da (gönderdiğim dosyada) 254 sayfaya kadar çalışır.
hocam peki birsey daha sormak istiyorum butona tiklamadan otomatik olarak ekleme yapildikca son sayfaya kaydetmesini nasil yaparim?
 

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
454
En iyi yanıt
29
Puanları
43
Konum
Excel 2003
Ad Soyad
Mustafa UYGUN
Office Vers.
Office 2003
hocam peki birsey daha sormak istiyorum butona tiklamadan otomatik olarak ekleme yapildikca son sayfaya kaydetmesini nasil yaparim?
Ben bu yöntemi önermem.
Bu sayfalara her veri girişinde makronun tetiklenmesini gerektirir.
Bunun yerine ihtiyaç halinde makroyu çalıştırmak daha mantıklı.
İyi çalışmalar.
 

enesCode

Yeni Üye
Katılım
14 Şub 2024
Mesajlar
10
En iyi yanıt
0
Puanları
1
Yaş
26
Konum
Ankara
Ad Soyad
Enes
Office Vers.
365
Ben bu yöntemi önermem.
Bu sayfalara her veri girişinde makronun tetiklenmesini gerektirir.
Bunun yerine ihtiyaç halinde makroyu çalıştırmak daha mantıklı.
İyi çalışmalar.
hocam tesekkur ediyorum, birsey daha sormak istiyorum ornegin data sayfamda tum veriler var ve baska sayfam yok 2 buton koymak istiyorum 1 butona bastigim zaman subelere gore verileri ayirsin yani sube isimlerine gore sayfalar olustursun ve veriyi oralara dagitsin daha sonra o olusturulan ayri sayfalarda bi degisiklik yapip 2.butona bastigimda yukarida yaptiginiz islem gibi tum verinin oldugu yeride guncellesin istiyorum nasil yapabilirim bunu? excele biraz uzagim o yuzden yonlendiriseniz seviniirm
 

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
454
En iyi yanıt
29
Puanları
43
Konum
Excel 2003
Ad Soyad
Mustafa UYGUN
Office Vers.
Office 2003
data sayfanızın olduğu örnek dosya ekleyin.
 

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
454
En iyi yanıt
29
Puanları
43
Konum
Excel 2003
Ad Soyad
Mustafa UYGUN
Office Vers.
Office 2003
Merhaba;
Eki deneyin.
İyi çalışmalar.

Not: Buffer'in dolma ihtimaline karşı zaman zaman dosyayı kapatıp yeniden açın.
 

Ekli dosyalar

  • enesCode-testS-1.zip
    24.7 KB · Görüntüleme: 1

şahin

Yeni Üye
Katılım
13 Eki 2019
Mesajlar
58
En iyi yanıt
2
Puanları
8
Yaş
37
Konum
ankara
Ad Soyad
sahin
veri sayfası haricinde istediğiniz kadar sayfaya giriş (A ve E sütunları arasına) yapabilirsiniz
 

Ekli dosyalar

  • test123.xlsm
    19.5 KB · Görüntüleme: 3

enesCode

Yeni Üye
Katılım
14 Şub 2024
Mesajlar
10
En iyi yanıt
0
Puanları
1
Yaş
26
Konum
Ankara
Ad Soyad
Enes
Office Vers.
365
hocam cok tesekkur edıyorum. 🙏💙💙
hocam bu makro ile onceki makroyu birlestiriyorum fakat sayfalari birlestir yaptigim zaman data sayfamdaki veriyi silip alta yaziyor. normalde sayfalari olusturduktan sonra bir sayfaya gidip bir veriyi degistirdim diyelim ve sayfalari birlestir dedigimde degisen verinin data adli sayfada da degismesini istiyorum bu tek basina calisiyordu aslinda. alttaki kodumda hatali bir islem var mi yoksa kodlar cakisiyor mu?

Kod:
Sub sayfalari_birlestir()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("data")
s1.Range("a2:k65536").ClearContents
s1.Range("a2:k65536").Borders.LineStyle = xlNone

For Sayfa = 1 To Sheets.Count
If Sheets(Sayfa).Name <> s1.Name Then
Set s2 = ThisWorkbook.Worksheets(Sheets(Sayfa).Name)
For i = 2 To s2.Range("A65536").End(xlUp).Row
sonsatir = s1.Range("A65536").End(xlUp).Row + 1
For k = 1 To 9
s1.Cells(sonsatir, k) = s2.Cells(i, k)
s1.Cells(sonsatir, k).Borders.LineStyle = xlContinuous
Next k
Next i
End If
Next Sayfa
End Sub
 

enesCode

Yeni Üye
Katılım
14 Şub 2024
Mesajlar
10
En iyi yanıt
0
Puanları
1
Yaş
26
Konum
Ankara
Ad Soyad
Enes
Office Vers.
365
hocam bu makro ile onceki makroyu birlestiriyorum fakat sayfalari birlestir yaptigim zaman data sayfamdaki veriyi silip alta yaziyor. normalde sayfalari olusturduktan sonra bir sayfaya gidip bir veriyi degistirdim diyelim ve sayfalari birlestir dedigimde degisen verinin data adli sayfada da degismesini istiyorum bu tek basina calisiyordu aslinda. alttaki kodumda hatali bir islem var mi yoksa kodlar cakisiyor mu?

Kod:
Sub sayfalari_birlestir()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("data")
s1.Range("a2:k65536").ClearContents
s1.Range("a2:k65536").Borders.LineStyle = xlNone

For Sayfa = 1 To Sheets.Count
If Sheets(Sayfa).Name <> s1.Name Then
Set s2 = ThisWorkbook.Worksheets(Sheets(Sayfa).Name)
For i = 2 To s2.Range("A65536").End(xlUp).Row
sonsatir = s1.Range("A65536").End(xlUp).Row + 1
For k = 1 To 9
s1.Cells(sonsatir, k) = s2.Cells(i, k)
s1.Cells(sonsatir, k).Borders.LineStyle = xlContinuous
Next k
Next i
End If
Next Sayfa
End Sub
Bu sorunumu cozdum tesekkur ediyorum
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt