baska sayfaya nasıl yazdırabiliriz?

[ahmetcin]

arkadaşlar problemim, anasayfadan giriş yapacağım, siparişi veren bölümü hanesini x ile işaretliyorum. O zaman o ilgili satırın hepsini ilgili sayfaya yazmasını istiyorum. Nasıl yapabilirm? örneğin elektrod imalat bölümü tarafından sipariş verilmiş, dolayısıyla siparişi yapan, sipariş tarihi malzeme adedi, mazleme adı vbi bütün satır imalat sayfasına yazılacak? Bunu nasıl yapabiliriz?

Teşekkürler, iyi çalışmalar...

 

[Ömer]

Merhaba,

Dosyanız ektedir.

.

 

[Orion1]

Dosyanız ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim syf As String, sat As Long, i As Byte
If Intersect(Target, [D2:F65536]) Is Nothing Then Exit Sub
On Error Resume Next
syf = Cells(1, Target.Column).Value
sat = Sheets(syf).Cells(65536, "A").End(xlUp).Row + 1
If Target.Row = "X" Or Target.Row = "x" Then
    If sat >= 65533 Then
        MsgBox "Sayfa doldu başka kayıt yapamazsınız..", vbCritical, "UYARI"
        Exit Sub
    End If
    For i = 1 To 3
    Sheets(syf).Cells(sat, i).Value = Cells(Target.Row, i).Value
    Next i
End If
End Sub