hücre adına göre diğer sayfalara otomatik veri ekleme

[orhanselimcan]

ekli dosyada hücrelere yazılı klasör adına göre diğer sayfalara otomatikolarak verileri nasıl yazdırabiliriz..

 

[orhanselimcan]

ustadların cevaplarını bekliyoruz...

 

[dEdE]

Merhaba,
Aşağıdaki kodu kayıt sayfanızın kod bölümüne yapıştırarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
    Set s1 = Sheets("sevkler")
    Set s2 = Sheets("idari işlemler")
    ss = Sheets(Target.Value).[A65536].End(3).Row + 1
    Sheets(Target.Value).Cells(ss, 1) = Cells(Target.Row, Target.Column - 2).Value
    Sheets(Target.Value).Cells(ss, 2) = Cells(Target.Row, Target.Column - 1).Value
End Sub

 

[Orion1]

Dosyanız ektedir.

Sub kls59()
Dim sh As Worksheet, i As Long, sat As Long, sat2 As Long
Sheets("kayıt").Select
sat = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
For i = 3 To sat
    Set sh = Sheets(Cells(i, "C").Value)
    'sh.Range("A3:B" & Rows.Count).Clear
    sat2 = sh.Cells(Rows.Count, "B").End(xlUp).Row + 1
    sh.Cells(sat2, "A").Value = Cells(i, "A").Value
    sh.Cells(sat2, "B").Value = Cells(i, "B").Value
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName
End Sub

 

[orhanselimcan]

veri listesinden aktarma yapıyor ama daha önceden aktarılanlarıda tekrar aktarıyor bunu nasıl düzeltebiliriz...