Sayfa 1 den sayfa 2 ye koşullu hücre kopyalama.

[weschino]

Derdimi şöyle anlatim. Sayfa 1 deki B sütunundan ne seçilirse sayfa 2 de ki A1 sütununa yapışmasını istiyorum aynı şekilde G sütunundan ne seçilirse A3 sütununa yapıştırılmasını istiyorum. Ama bunlar sadece bir seferlik olacak... Mesela B12 ü ve G12 yi seçtim otomatik olarak sayfaya yapıştı. Daha sonra B11 ve G11 i seçtiğimde gene gene sayfa 2 de a1 ve a3 e yapışmasını istiyorum.. böyle bir makro mevcut mu acaba.. (formülde olur forumlarda aradım ama tam olarak böyle bir kod veya formül görmedim).=Sayfa1!B2 formülünü daha kapsamlısını istiyorum açıkcası.. derdimi anlatabildim mi bilmiyorum

 

[Orion1]

Dosyanız hazır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B:G]) Is Nothing Then Exit Sub
If Target.Column = 2 Then
    Sheets("Sayfa2").Range("A1").Value = Target.Value
    Else
    Sheets("Sayfa2").Range("A3").Value = Target.Value
End If
End Sub

 

[weschino]

valla helal olsun çok saol

 

[Orion1]

valla helal olsun çok saol

Rica ederim.
iyi çalışmalar.

 

[derwishh]

merhaba hocam örnek dosyada belirtmeye çalıştım da sorunuma çözümde yardımcı olmanızı rica ediyorum.
Technik sayfasının AT sütununa AZ yazıldığı zaman o satırın A:AW arası komple AZ sayfasında 6. satrıdan başlayarak eklemesi lazım ama technik sayfasında ki asıl veriler silinmeyecek , ve sadece ilgili satırları sırasıyla AZ sayfasına yapıştıracak ,

Ayrıca AZ sayfasında AV Satırına erledigt yazıldığı zaman B sütünu yeşil olamalı ve aynı konu technik sayfasında da yeşil olmalı
bunu koşullu biçimlendirme ile denedim ama olmadı bu iki işlem için uygun bir kod varmıdır .
umarım anlatabilmişimdir.

Yardımlarınızı rica ediyorum.....