Sayfalar arası veri kopyalama

[ates_2001]

İyi günler, hepinize iyi çalışmalar.

Bir sorunum var yardımcı olmanız dileğiyle.

Ekte vermiş olduğum örnek dosyada Q hücresine tarih girdiğim zaman sayfa1 deki ana başlıktaki gibi verilerin o hücrelere kopyalamasını istiyorum.

Biraz daha açıklayıcı olmak gerekirse "WELD LOG" sayfasında Q hücresine tarih girdiğim zaman "weld log" sayfasındaki " ISOMETRIC NO, REV No, CATEGORY, MATERIAL ve SERVICE " ana başlıklardaki bilgiler "sayfa1"e aynı başlık altına kopyalasın.

Küçük bir dipnot vermem gerekirse Q sütununun her hücresine tarih girmeyeceğim yani boş bıraktığım yerlerin bilgileri "sayfa1" e getirmesin dolu hücelerin bilgileri gelsin.

İlginiz için şimdiden teşekkürlerimi sunuyorum.

 

[Murat OSMA]

Sayfa1'deki hücre birleştirmesini kaldırın, başlıklar tek satırda olsun.
Sonra da aşağıdaki kodu WELD LOG sayfasının kod penceresine yapıştıp deneyiniz;

[SIZE="2"][FONT="Trebuchet MS"]Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 17 Then
        Sayfa1.Range("A65536").End(3)(2, 1) = Target.Offset(0, -15).Value
        Sayfa1.Range("B65536").End(3)(2, 1) = Target.Offset(0, -14).Value
        Sayfa1.Range("C65536").End(3)(2, 1) = Target.Offset(0, -7).Value
        Sayfa1.Range("D65536").End(3)(2, 1) = Target.Offset(0, -6).Value
        Sayfa1.Range("E65536").End(3)(2, 1) = Target.Offset(0, -5).Value
    End If
End Sub[/FONT][/SIZE]

 

[ates_2001]

Teşekkürler Murat Bey, dediğiniz gibi kodu weld log sayfasına ekledim ama bilgileri alamadım, ekstradan yapmam gereken bir şey mi var?

 

[Murat OSMA]

Mesajımdaki ilk satırı uyguladınız mı ?

 

[ates_2001]

pardon onu gözden kaçırmışım şimdi oldu teşekkürler ama bir sıkıntı var oda şudur

mesela tarihi girdim veriler geldi ama yanlış hücreye girmişim, tarihi sildiğim sayfa1 deki veriler silinmiyor oda liste için büyük risk oluşturuyor.

 

[Murat OSMA]

O hâlde, tarihleri girerken daha dikkatli gireceksiniz...

Tarih girmede önce bir kontrol eklemek işinizi görürse; şu kodu sayfanın kod pencerine yapıştırıp deneyiniz;

[SIZE="2"][FONT="Trebuchet MS"]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 17 Then
        If MsgBox("Doğru Hücre Olduğuna Emin misiniz ?", vbExclamation + vbYesNo + _
        vbMsgBoxRtlReading, "D İ K K A T !!!") = vbNo Then
            Target.Offset(0, -1).Select
        End If
    End If
End Sub
[/FONT][/SIZE]

 

[ates_2001]

ilginiz için teşekkürler.