Excel Dinamik Sayfa Kopyalama

cex

Katılım
23 Haziran 2022
Mesajlar
12
Excel Vers. ve Dili
Türkçe office 365
Bir excel tablosunda 2 farklı sayfam var. Birinde girdiğim değerleri öteki sayfada otomatik yazılmasını istiyorum. =deyip sayfa istediğim hücreyi ya da hücreleri yazdırabiliyorum. Ya da =temiz() istediğim şeyleri yapabiliyorum ama benim sorum; yeni bir satır eklediğimde bu değişiklikleri diğer tarafta göremiyorum. Nasıl yapmam gerekir?
 

Greenblacksea53

Altın Üye
Katılım
5 Ocak 2019
Mesajlar
320
Excel Vers. ve Dili
Ofis 365 Tr
Kod:
=EĞERHATA(İNDİS(Sayfa1!$A:$F;SATIR(A1);SÜTUN(A1));"")
Bu kodu sayfa 2 A1 hücresine yapıştır ve aşağıya sağa doğru çekebilirsin. F hücresi son uzatmak istersen uzatabilirsin. Sayfa 1 yazdığın her şey sayfa 2 gözükecektir.
 

cex

Katılım
23 Haziran 2022
Mesajlar
12
Excel Vers. ve Dili
Türkçe office 365
Çok teşekkür ederim hocam. Peki bu boş hücrelerin yerinde 0 yazıyor onu nasıl aşabilirim?
 

Greenblacksea53

Altın Üye
Katılım
5 Ocak 2019
Mesajlar
320
Excel Vers. ve Dili
Ofis 365 Tr
237403
Dosya/Seçenekler sonra gelişmiş 'e tıkla resimdeki yeri bulup tık'ını kaldır.

Formülle uyapmak istersen
C++:
=EĞER(İNDİS(Sayfa2!$A:$G;SATIR(F4);SÜTUN(F4))="";"";İNDİS(Sayfa2!$A:$G;SATIR(F4);SÜTUN(F4)))
 

cex

Katılım
23 Haziran 2022
Mesajlar
12
Excel Vers. ve Dili
Türkçe office 365
Hocam tabloyu biraz kurcaladım. Bizim formülde sayfa1 de A3 sayfa2 A3 direk yapıştırıyor. Örnek veriyorum; benim tablomda arada güzel görünmesi için birleştir ve ortala yaptığım yerler var. sayfa1'de eklediğim yerler sayfa2 yansıyor ama araya bir satır eklediğimde, o aşağı a1 tablosunda o yer bir aşagı satıra kayıyor ama diğer tabloda sabit duruyor bunu nasıl aşarım acaba?
 

Greenblacksea53

Altın Üye
Katılım
5 Ocak 2019
Mesajlar
320
Excel Vers. ve Dili
Ofis 365 Tr
Dosyana bakamadım neyse, sayfa 1'in aynısı istiyorsun
Şunu yap en iyisi bence

237407

Sarı renge tıkla Tüm komut seç açılan pencere Ortadaki combobox menüsünden tüm komutları seçim Kamerayı bulup ekle de. Kamera işareti hızlı araçlara gelecektir.
1 Sayfa 2 deki verileri hep sil ilk önce
2 Kopyalanmasını istediğin sayfayı seç örnek A1:H30 a kadar gibi seçili iken kamere işaretine tıkla.
3 Sayfa ikiye gel a1 hücresine tıkla

Sayfa 1 deki her şey resim olarak Sayfa 2'ye gelmiş olacak, resim olduğuna bakma yapıtığın tüm değişikler kaydedilecek.
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
35,701
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ofis 2016 Tr-En 32 Bit
Alternatif olarak makro ile bu işlemi yapabilirsiniz.

Sayfa1'in kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Kod hücreye veri girip terk ettiğinizde ya da hücrelerde gezindiğinizde devreye girecektir.

C++:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Sheets("Sayfa1").Cells.Copy Sheets("Sayfa2").Range("A1")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Sheets("Sayfa1").Cells.Copy Sheets("Sayfa2").Range("A1")
    Target.Select
End Sub
 

cex

Katılım
23 Haziran 2022
Mesajlar
12
Excel Vers. ve Dili
Türkçe office 365
Teşekkür ederim cevabınız için. Makro ile yaptığımda birebir aynısı oluyor. Fakat ben belli bir aralıktaki değerleri diğer tarafa aktarmak onun üzerinden işlem yapmak istiyorum. Bunu nasıl yapabilirim? Bide her veri girişinde sayfa1'de fotoğraf kopyalanarak 2. sayfada kirli bir görüntü oluşturuyor.
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
35,701
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ofis 2016 Tr-En 32 Bit
Önerdiğim kodu dilediğiniz gibi düzenleyebilirsiniz.

Sheets("Sayfa1").Cells.Copy Sheets("Sayfa2").Range("A1")

Üstteki satırı aşağıdaki gibi düzenlerseniz belirlediğiniz hücreleri kopyalayabilirsiniz.

Sheets("Sayfa1").Range("A1:Z100").Copy Sheets("Sayfa2").Range("A1")

Bold bölümleri kendinize göre düzenleyebilirsiniz.
 

cex

Katılım
23 Haziran 2022
Mesajlar
12
Excel Vers. ve Dili
Türkçe office 365
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Sheets("Sayfa1").Range("A15:D100").Copy Sheets("Sayfa2").Range("A15:D100")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheets("Sayfa1").Range("A15:D100").Copy Sheets("Sayfa2").Range("A15:D100")
Target.Select
End Sub

Bunu yazıyorum A15'den başlayıp D:100 kadar gitmek istiyorum fakat değişiklik olmuyor hocam nedeni ne olabilir?
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
35,701
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ofis 2016 Tr-En 32 Bit
Şöyle deneyiniz.

C++:
Sheets("Sayfa1").Range("A15:D100").Copy Sheets("Sayfa2").Range("A15")
 

cex

Katılım
23 Haziran 2022
Mesajlar
12
Excel Vers. ve Dili
Türkçe office 365
Bu şekilde de denedim maalesef olmadı hocam
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Sheets("Sayfa1").Range("A15:D100").Copy Sheets("Sayfa2").Range("A15")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheets("Sayfa1").Range("A15:D100").Copy Sheets("Sayfa2").Range("A15")
Target.Select
End Sub
 

cex

Katılım
23 Haziran 2022
Mesajlar
12
Excel Vers. ve Dili
Türkçe office 365
C++:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
   Sheets("Sayfa1").Range("A15:D15").Copy Sheets("Sayfa2").Range("A15")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
Sheets("Sayfa1").Range("A15:D15").Copy Sheets("Sayfa2").Range("A15")
    Target.Select
End Sub
Bu şekilde yaptığımda a15'den d15'e kadar sorun olmuyor hocam
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
35,701
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ofis 2016 Tr-En 32 Bit
Paylaştığınız dosyada mı bu sorun oluyor.
 

cex

Katılım
23 Haziran 2022
Mesajlar
12
Excel Vers. ve Dili
Türkçe office 365
Evet hocam çalıştırmayı başardım. Ama ilk sayfada satır ekleyemiyorum nasıl ekleyebilirim?
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
35,701
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ofis 2016 Tr-En 32 Bit
Makro kullanımında CTRL+Z çalışmaz.

Ek olarak siz bu işlemi ne amaçla kullanmak istiyorsunuz? Belki farklı çözüm yolları denenebilir.
 

cex

Katılım
23 Haziran 2022
Mesajlar
12
Excel Vers. ve Dili
Türkçe office 365
Bir excel tablosu yapıp onu referans alarak onun üzerinden farklı veriler gircem. Bunun içinde iki sayfa açıyorum ilki müşterilere verdiğim ürünler ve fiyat olan tablo ikinci tabloda elemanlarıma verdiğim sadece ürünlerin olduğu tablo. Ben ilk tabloyu güncellerken ikinci sayfada güncellenecek ek olarak ikinci sayfada o girilen ürünler ve adetlerine göre hesaplamalar yaptıracağım.
 
Üst