Bir sayfadan diğer sayfaya veri girişi

[burcin_end_muh]

merhaba,
Konuyu çok arattım ama doğru tanımlamayı yapamadığım için hiçbirşey bulamadım.

2 sayfam var, mağazayı veri doğrulama ile seçince kadrosu aşağıya gelecek şekilde ayarladım. shift giriş sayfasındaki sarı alana girilen saatleri data sayfasında ilgili sicile karşılık gelen yere aktarmak istiyorum.
değerli vaktiniz için şimdiden teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.

'Shift Giriş' adlı sayfa adını sağ tıklatın "Kod Görüntüle" seçin açılan sayfaya aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Range
    If Not Intersect(Target, Range("C:C")) Is Nothing Then
        Set Bak = Worksheets("data").Range("A:A").Find(Cells(Target.Row, "A"), lookat:=xlWhole)
        If Bak Is Nothing Then
            MsgBox "Sicil no 'Data' sayfasında bulunamadı"
            Exit Sub
        Else
            Worksheets("data").Cells(Bak.Row, "C") = Target.Text
        End If
    End If
End Sub

'Shift Giriş' sayfasının "C" kolonunda bir değişiklik olduğunda kodlar otomatik çalışacaktır.

 

[1Al2Ver]

Merhaba,

Alternatif, formül ;

Data Sayfası C2'ye ;

=EĞERHATA(İNDİS('Shift giriş'!$C$4:$C$7;KAÇINCI(A2;'Shift giriş'!$A$4:$A$7;0));"Sicil Yok")

yazıp aşağıya doğru çoğaltınız,

Formüldeki aralıkta olan 7 sayısını satır sayınıza göre çoğaltabilir siniz.

Kolay gelsin.

 

[burcin_end_muh]

Merhaba.

'Shift Giriş' adlı sayfa adını sağ tıklatın "Kod Görüntüle" seçin açılan sayfaya aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Range
    If Not Intersect(Target, Range("C:C")) Is Nothing Then
        Set Bak = Worksheets("data").Range("A:A").Find(Cells(Target.Row, "A"), lookat:=xlWhole)
        If Bak Is Nothing Then
            MsgBox "Sicil no 'Data' sayfasında bulunamadı"
            Exit Sub
        Else
            Worksheets("data").Cells(Bak.Row, "C") = Target.Text
        End If
    End If
End Sub

'Shift Giriş' sayfasının "C" kolonunda bir değişiklik olduğunda kodlar otomatik çalışacaktır.

uyguladım ama çalışmadı.

 

[burcin_end_muh]

Merhaba,

Alternatif, formül ;

Data Sayfası C2'ye ;

=EĞERHATA(İNDİS('Shift giriş'!$C$4:$C$7;KAÇINCI(A2;'Shift giriş'!$A$4:$A$7;0));"Sicil Yok")

yazıp aşağıya doğru çoğaltınız,

Formüldeki aralıkta olan 7 sayısını satır sayınıza göre çoğaltabilir siniz.

Kolay gelsin.

makroyla yapılması gerekiyor

 

[burcin_end_muh]

Derdimi tam anlatamadığıma inanıyorum, aslında temel istediğim bir for döngüsüyle vlookup yaparak arka tabloyu doldurması(makroyla)

 

[Korhan Ayhan]

Kodu sayfanın kod bölümüne uygulayınız.

Siz modül içine uygulamışsınız.

 

[Muzaffer Ali]

uyguladım ama çalışmadı.

Lütfen 2 numaralı mesajda yazdıklarımı tekrar okuyunuz ve kodu doğru yere kopyalayınız.