bir sayfadan diğerine veri girişi yapmak istiyorum

[hwoarangxc]

sayfa 2 de a3 hücresine sıra numarası gireceğim sonra c3 e geçip oraya yazdığım sayının sayfa 1 de c sutununda ilgili yere yazmasını sonra onu kaydetmesini yani sayfa 2 den sayfa 1 e veri girişi yapmak istiyorum.yenisini yazdıkça önceki yazdığımı sayfa 1 de ilgili yere kaydetsin istiyorum.bu yapılabilir mi? yardımcı olan arkadaşlara teşekkürler.

 

[Ömer]

Merhaba,

Sayfa2 kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Set S1 = Sheets("Sayfa1")
If Intersect(Target, [C3]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
    Set c = S1.Range("A:A").Find(Target.Offset(0, -2), LookIn:=xlValues)
    If Not c Is Nothing Then
        S1.Range("C" & c.Row) = Target
    End If
End Sub

.

 

[korayergit]

nasıl yapılır

Sayın arkadaşım benimde bir problemim var, EKLİ DOSYADA VERİYİ SAYFA 1 DE D6 YA GİRDİĞİMDE (2011/1111 YAZAN YER) ESAS KAYIT A BASTIĞIMDA BU VERİYİ ESAS KAYIT SAYFASINDA B1 HÜCRESİNE YAZACAK, DAYFA 1 DE D6 YA YENİ BİR VERİ GİRİP ESAS KAYIT A BASTIĞIMDA SAYFA 2 DE B2 YE KAYDEDECEK, D6 YA VİR VERİ GİRİP BUL DEDİĞİMİZDE SAYFA 2 DEN BU VERİYİ BULUP A SUTUNUNDA YANINDA NE YAZIYORSA ONU D12 DE YAZACAK YARDIM EDEBİLİRMİSİNİZ.... sELAMLAR.....