En alt satıra veri aktarma

[Schuba]

Arkadaşlar sayfa 1 in (B3:B1000) arasındaki hücrelerin birine çift tıkladığımda tıkladığımda hücrenin içindeki değerin.
Sayfa2 nin (B) sütunundaki en son dolu olan hücrenin altındaki ilk boş hücreye yazmasını istiyorum

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

 

[Ömer BARAN]

Merhaba.

Alt taraftan Sayfa1'in adına fareyle sağ tıklayıp KOD GÖRÜNÜTÜLEyi seçin,
açılan VBA ekranında sağdaki boş alana aşağıdaki kod'uu yapıştırın.
.

[B]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)[/B]
If Intersect(Target, [[B][COLOR="Red"]B3:B1000[/COLOR][/B]]) Is Nothing Then Exit Sub
Sheets("[B][COLOR="Blue"]Sayfa2[/COLOR][/B]").Cells(Sheets("[B][COLOR="Blue"]Sayfa2[/COLOR][/B]").Cells(Rows.Count, "B").End(3).Row + 1, "B") = Target
Cancel = True
[B]End Sub[/B]