sayfalar arası veri aktarma

[fk3816]

merhaba,
ekteki dosyada isteğimi izah etmeye çalıştım. yardımcı olursanız memnun olurum. şimdiden teşekkür ederim...

 

[apocalyt]

merhaba...sayfa1 de sayfa adına sağ klik yapıp kod görünütüle diyiniz..daha sonra gönderdiğim kodu oraya kopyalayınız..

Private Sub Worksheet_Change(ByVal Target As Range)
Dim adr As Variant, ilkadres As String, x As Variant
If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub
Sheets(1).Range("b2:b1000").ClearContents
Set adr = Sheets(2).Range("b5:e12").Find(Cells(1, 1), , , 1)
If Not adr Is Nothing Then
ilkadres = adr.Address
End If
Do
Set adr = Sheets(2).Range("b5:e12").FindNext(adr)
x = adr.Address
Sheets(1).Cells(Sheets(1).[b2000].End(3).Row + 1, 2) = CDate(Sheets(2).Range("a" & Mid(x, 4, 2)))
Loop While Not adr Is Nothing And adr.Address <> ilkadres
Sheets(1).Range("b2:b100").Sort key1:=Range("b2")
End Sub

 

[fk3816]

Çok teşekkür ederim. tam istediğim işlemi yapıyor.

 

[apocalyt]

rica ederim..

 

[erdenek]

hocam şuna da bakarsan sevinirim.