hücre değeri aktarımı

[akyyuc]

Merhaba,
Sayfa1 "H" sütunundan herhangi bir hücreyi tıkladığımda, yine Sayfa1 "G" sütunundan aynı satırdaki değeri Sayfa2 "K22" hücresine aktarılmasını amaçlıyorum.
Ancak Sayfa2 "K22" hücresi bu aktarımı kaydetmemeli. Yani bu işlemi her yaptığımda, son gönderilen yeni veriyi yazmalı.

Yardımınız için şimdiden teşekkürler...

 

[uzmanamele]

Merhaba

Sayfanın kod bölümüne yazın,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("h:h")) Is Nothing Then Exit Sub
Sheets("Sayfa2").Range("k22") = Target.Offset(0, -1).Value
End Sub

 

[akyyuc]

Çok teşekkürler

Peki, aynı anda Sayfa1 den ayrılıp Sayfa2 ye geçiş de mümkün müdür?

Yoruyorum sizi ama...

 

[Orion1]

Çok teşekkürler

Peki, aynı anda Sayfa1 den ayrılıp Sayfa2 ye geçiş de mümkün müdür?

Yoruyorum sizi ama...

Sayın Uzmanamele şu an yok.
Ben cevaplayım.
Kırmızı satırı ilave edeceksiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("h:h")) Is Nothing Then Exit Sub
Sheets("Sayfa2").Range("k22") = Target.Offset(0, -1).Value
[B][COLOR="Red"]sheets("Sayfa2").select[/COLOR][/B]
End Sub

 

[akyyuc]

Sayın Uzmanamele şu an yok.
Ben cevaplayım.
Kırmızı satırı ilave edeceksiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("h:h")) Is Nothing Then Exit Sub
Sheets("Sayfa2").Range("k22") = Target.Offset(0, -1).Value
[B][COLOR="Red"]sheets("Sayfa2").select[/COLOR][/B]
End Sub

Teşekkür ederim

 

[akyyuc]

Sayın Uzmanamele şu an yok.
Ben cevaplayım.
Kırmızı satırı ilave edeceksiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("h:h")) Is Nothing Then Exit Sub
Sheets("Sayfa2").Range("k22") = Target.Offset(0, -1).Value
[B][COLOR="Red"]sheets("Sayfa2").select[/COLOR][/B]
End Sub

Teşekkür ederim... İyi çalışmalar dilerim...