Excel Dinamik Sayfa Kopyalama

[cex]

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]

=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]

Çok teşekkür ederim hocam. Peki bu boş hücrelerin yerinde 0 yazıyor onu nasıl aşabilirim?

 

[Greenblacksea53]

Dosya/Seçenekler sonra gelişmiş 'e tıkla resimdeki yeri bulup tık'ını kaldır.

Formülle uyapmak istersen

=EĞER(İNDİS(Sayfa2!$A:$G;SATIR(F4);SÜTUN(F4))="";"";İNDİS(Sayfa2!$A:$G;SATIR(F4);SÜTUN(F4)))

 

[cex]

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]

Dosyanızı link yoluyla paylaşır mısınız.

 

[cex]

deniz - Google Drive

drive.google.com

 

[Greenblacksea53]

Dosyana bakamadım neyse, sayfa 1'in aynısı istiyorsun
Şunu yap en iyisi bence



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]

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.

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]

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]

Ö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]

Option Explicit

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheets("Sayfa1").Range("A15100").Copy Sheets("Sayfa2").Range("A15100")
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]

Şöyle deneyiniz.

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

 

[cex]

Bu şekilde de denedim maalesef olmadı hocam
Option Explicit

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

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

 

[cex]

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]

Paylaştığınız dosyada mı bu sorun oluyor.

 

[cex]

Evet hocam çalıştırmayı başardım. Ama ilk sayfada satır ekleyemiyorum nasıl ekleyebilirim?

 

[cex]

Evet hocam çalıştırmayı başardım. Ama ilk sayfada satır ekleyemiyorum nasıl ekleyebilirim?

Hocam bide yapılan değişiklikleri ctrl+z ile geri alamıyorum.

 

[Korhan Ayhan]

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]

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.