A1 HÜCRESİNDEKİ RAKKAMA GÖRE TOMATİK KOPYALAMA

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
652
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Arkadaşlar ; Ek'te bulunan KOPYA ÖRNEK Dosyasında Sayfa1 'deki B3 Hücresi ( 1 ) olduğunda Sayfa2 'de A2:I23 Arasındakileri otomatik olarak Sayfa4 A2:I23 Aralığına kopyalasın Eğer Sayfa1 B3 Hücresi ( 2 ) olursa Bu sefer Sayfa3 'deki A2:I22 Aralığını Sayfa4 A24:I44 Aralığına kopyalasın. Bu kod'lara ihtiyacım var yardım edebilirmisiniz.
 

Ekli dosyalar

EmrExcel16

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,520
Excel Vers. ve Dili
Office 365 Türkçe
Merhaba Sayfa1 in kod sayfasına yapıştırıp dener misin?
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
    If Target.Address = "$B$3" Then
        If Target.Value = 1 Then
            Sheets("Sayfa4").Range("A2:I23").ClearContents
            Sheets("Sayfa4").Range("A2:I23").Value = Sheets("Sayfa2").Range("A2:I23").Value
        End If
    
        If Target.Value = 2 Then
            Sheets("Sayfa4").Range("A2:I23").ClearContents
            Sheets("Sayfa4").Range("A2:I23").Value = Sheets("Sayfa3").Range("A2:I23").Value
        End If
    
    End If
Application.ScreenUpdating = True
End Sub
 
Katılım
21 Şubat 2007
Mesajlar
351
Excel Vers. ve Dili
Microsoft Ev ve Ofis 2016
Merhaba Sayfa1 in kod sayfasına yapıştırıp dener misin?
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
    If Target.Address = "$B$3" Then
        If Target.Value = 1 Then
            Sheets("Sayfa4").Range("A2:I23").ClearContents
            Sheets("Sayfa4").Range("A2:I23").Value = Sheets("Sayfa2").Range("A2:I23").Value
        End If
   
        If Target.Value = 2 Then
            Sheets("Sayfa4").Range("A2:I23").ClearContents
            Sheets("Sayfa4").Range("A2:I23").Value = Sheets("Sayfa3").Range("A2:I23").Value
        End If
   
    End If
Application.ScreenUpdating = True
End Sub
Maalesef giriş sayfasındaki B1 hücresindeki sayıyı bir artırmadı
 

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
652
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
KOD'ları Sayfa1 kod bölümüne ekledim ama çalışmıyor ! hiç kopyalama yapmadı
 

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,103
Excel Vers. ve Dili
Excel-2003 Türkçe
Merhaba;
syn. emr123'ün kodları çalışıyor. (sadece bir iki adreste düzeltme yaptım)
 

Ekli dosyalar

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
652
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Harika :) Çok teşekkürler...
 
Üst