• 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...
E

enesCode

Yeni Üye
Katılım
14 Şub 2024
Mesajlar
10
En iyi yanıt
0
Puanları
1
Yaş
27
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
K

karakan

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

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
492
En iyi yanıt
28
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
E

enesCode

Yeni Üye
Katılım
14 Şub 2024
Mesajlar
10
En iyi yanıt
0
Puanları
1
Yaş
27
Konum
Ankara
Ad Soyad
Enes
Office Vers.
365
muygun' Alıntı:
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.
Genişletmek için tıkla ...
hocam bu sekılde calıstı tesekkurler, peki daha fazla sayfa ekleme yaparsam alta ne yapmam gerek?
 
K

karakan

Yeni Üye
Katılım
14 Şub 2024
Mesajlar
21
En iyi yanıt
0
Puanları
3
Yaş
49
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: 5
E

enesCode

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

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
492
En iyi yanıt
28
Puanları
43
Konum
Excel 2003
Ad Soyad
Mustafa UYGUN
Office Vers.
Office 2003
enesCode' Alıntı:
hocam peki birsey daha sormak istiyorum butona tiklamadan otomatik olarak ekleme yapildikca son sayfaya kaydetmesini nasil yaparim?
Genişletmek için tıkla ...
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.
 
E

enesCode

Yeni Üye
Katılım
14 Şub 2024
Mesajlar
10
En iyi yanıt
0
Puanları
1
Yaş
27
Konum
Ankara
Ad Soyad
Enes
Office Vers.
365
muygun' Alıntı:
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.
Genişletmek için tıkla ...
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

muygun

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

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
492
En iyi yanıt
28
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: 2
Ş

şahin

Yeni Üye
Katılım
13 Eki 2019
Mesajlar
58
En iyi yanıt
2
Puanları
8
Yaş
38
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: 4
E

enesCode

Yeni Üye
Katılım
14 Şub 2024
Mesajlar
10
En iyi yanıt
0
Puanları
1
Yaş
27
Konum
Ankara
Ad Soyad
Enes
Office Vers.
365
enesCode' Alıntı:
hocam cok tesekkur edıyorum. 🙏💙💙
Genişletmek için tıkla ...
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
 
E

enesCode

Yeni Üye
Katılım
14 Şub 2024
Mesajlar
10
En iyi yanıt
0
Puanları
1
Yaş
27
Konum
Ankara
Ad Soyad
Enes
Office Vers.
365
enesCode' Alıntı:
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
Genişletmek için tıkla ...
Bu sorunumu cozdum tesekkur ediyorum
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt