• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çö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
En iyi yanıt
0
Puanları
1
Yaş
45
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

  • veri.xlsx
    9.1 KB · Görüntüleme: 33

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
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.
PHP:
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