Çözüldü Veri getirme - Bulma ve Üzerine Yazma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

itosun

Yeni Üye
Katılım
6 May 2019
Mesajlar
2
Puanları
1
Yaş
40
Konum
İstanbul
Ad Soyad
İbrahim Tosun
Merhaba,

Elimde 2 tane sayfa var. Birisinde verilerin olduğu dosya. Diğer sayfadan dosya numarasını yazdığım zaman Veri sayfasındaki bilgileri getirmesini istiyorum. Gelen bilgileri değiştirip aktar dediğimde de Veri sayfasında ilgili kaydı ( dosya numarasını ) bulup değişen alanları güncellemesini istiyorum. Desteğimiz için şimdiden çok teşekkür ederim.
 

Ekli dosyalar

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,082
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Merhaba,
Giriş sayfasının kod sayfasına bu kodları yapıştırıp kullanabilirsiniz.
Hem diğer sayfadan bulup getirir, hem de yapılan değişikliği aynı anda diğer sayfaya da gönderir.
VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Column = 1 Then
        kac = WorksheetFunction.Match(Target.Value, Sheet1.Range("A:A"), 0)
        If kac = Empty Then Range("B" & Target.Row).Resize(, 4).Value = ""
        Range("B" & Target.Row).Resize(, 4).Value = Sheet1.Range("B" & kac).Resize(, 4).Value
    ElseIf Target.Column > 1 And Target.Column < 6 Then
        kac = WorksheetFunction.Match(Cells(Target.Row, "A"), Sheet1.Range("A:A"), 0)
        Sheet1.Range("B" & kac).Resize(, 4).Value = Range("B" & Target.Row).Resize(, 4).Value
    End If
End Sub
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt